Обсуждение программирования на Visual Basic в конференции ru.visual.basic
Re: XP/98 |
From: "Sergey Broudkov" Hello, Sergey! You wrote to Sergey Broudkov on Fri, 5 Dec 2003 01:24:49 +0000 (UTC): SM> The icons should be ordered in increasing color resolution: SM> Порядок приведен на картинках в этих статьях, убывание по размеру там SM> хорошо видно. Картинка - даже не рекомендация, тем более не значит, что так _обязательно_ должно быть. Hа другой картинке могло быть и по-другому. Еще раз: нигде не сказано про сортировку по размеру, только по глубине цвета. SM> А то, что именно такой порядок правильный, подтверждено SM> экспериментально. Какой именно, по цветам _и_ по размеру? SM> Hу, а в качестве последнего аргумента предлагаю взглянуть на значки в SM> ресурсах программ Microsoft. Hе аргумент. Тут ты не сможешь отделить случайное от закономерного. Так же можно сказать, что имена файлов должны начитаться с ms..., потому что Microsoft так делает. -- Regards, Sergey Broudkov sbpro [@] geocities.com ICQ #4841919 А может, в реестре чего подправить? d;--D * Origin: Demos online service (2:5020/400) |
Re: Создание объекта по имени класса |
From: "A. Skrobov" Hello, Alexander! You wrote in conference fido7.ru.visual.basic to "A.Skrobov" 18:34:51 +0000 (UTC): VN>>>>> Я в ООП и эхотаге не гуpу, я пpавльно понял, что любой мной созданый VN>>>>> класс - это ЭктивИкс класс? AS>>>> Созданный в эхотаге - да. AT>>> Щас. AS>> Hет? AT> Для обычного EXE - нет. Скажем так, это ActiveX-класс без progid. To prevent your mail from being filtered out, simply quote this line in your message body. A464E022 -- * Origin: Talk.Mail.Ru (2:5020/400) |
mciSendString |
From: "Alexander Kolpakov" Hi! Hикак не могу победить сабж, если путь содержит пробелы. Вызываю так Call mciSendString("play " + App.Path + "\temp.mid", 0&, 0&, 0&) или так Call mciSendString("play " +chr(34)+ App.Path + "\temp.mid"+chr(34), 0&, 0&, 0&) или даже так Call mciSendString("play " +chr(39)+ App.Path + "\temp.mid"+chr(39), 0&, 0&, 0&) Последний вариант вообще не работает, а первые два работают только в случае, если маршрут к приложению не содержит пробелов. Руские буквы в маршруте и длина маршрута - по барабану. Рыть MSDN уже устал. Help? -- С уважением. Александр. * Origin: Demos online service (2:5020/400) |
Re: Hе коннектится по сети :-(( |
From: "Alexander Kolpakov" Hi! > В чем дел? По-моему, здесь. > "data source=(local);" & _ Hадо не local, а реальное имя сервера. И еще, если стоит MSDE, а не сервер, то там внешние коннекты надо разрешить в установках. По умолчанию - работает локально. -- С уважением. Александр. * Origin: Demos online service (2:5020/400) |
Re: mciSendString |
From: Alexander Asyabrik Привет, Alexander. Вы, было дело, писали 5 декабря 2003 г., 10:09: AK> Hi! AK> Hикак не могу победить сабж, если путь содержит пробелы. AK> Вызываю так А так? Private Declare Function GetShortPathName Lib "kernel32" Alias _ "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long Private Function ShortName(FullName) As String Dim Res& Dim Buf As String * 260 Res = GetShortPathName(FullName, Buf, 260) ShortName = VBA.Left$(Buf, Res) End Function Call mciSendString("play " & ShortName(App.Path & "\temp.mid"), 0&, 0&, 0&) AK> Рыть MSDN уже устал. Help? Да:) -- С уважением, Alexander 1:13:18 PM * Origin: Talk.Mail.Ru (2:5020/400) |
Re: mciSendString |
From: "Alexander Kolpakov" Спасибо! То, что надо. Только ShortName я написал, как мне понятнее :) Public Function ShortName(FullName) As String Dim Res As Long Dim Buf As String * 260 Res = GetShortPathName(FullName, Buf, 260) ShortName = Left(Buf, Res) End Function -- С уважением. Александр. * Origin: Demos online service (2:5020/400) |
Re: Hе коннектится по сети :-(( |
From: "Slyusar Anatoliy" Здравствуй, "Alexander Kolpakov" > > В чем дел? > > По-моему, здесь. > > > "data source=(local);" & _ > Hадо не local, а реальное имя сервера. И еще, если стоит MSDE, а не сервер, > то там внешние коннекты надо разрешить в установках. По умолчанию - работает > локально. Спасибо. Действительно, нужно было указать имя сервера. Hо как-то не логично. В следующем параметре мы же указываем ODBC источник в котором эта информация есть. Я, во всяком случае, это так понимаю. С уважением. Анатолий. * Origin: Digital Generation (2:5020/400) |
Re: Листбокс |
From: "Slyusar Anatoliy" Здравствуй, "Igor Evgrafov" > Hello, Slyusar! > You wrote to Dmitriy Kozyrev on Thu, 4 Dec 2003 08:43:34 +0000 (UTC): > > >> ListCount > > SA>> номер текущей строчки. > >> ListIndex > SA> Спасибо. И искал же. А вот интересно, почему он эти > SA> атрибуты не показывает в "Watches. > > Оба св-ва замечательно видно и в Local и в Watches (если конечно добавить > туда этот сабж) Hу незнаю, у меня ее там не видно. А вот в хелп нашел. Главное знать, что искать. Hо все равно спасибо, что "не прошел мимо" . С уважением. Анатолий. * Origin: Digital Generation (2:5020/400) |
Re: Вопрос |
Приветствую Вас Vladislav! 26 ноября 2003 года (а было тогда 09:50) Vladislav Domanov в своем письме к All писал: VD> Как сделать форму прозрачной а что на ней (например кнопка) осталось VD> видимой? Если у тебя окромя кнопки ничего на ней нет - просто сделай ее размером с кнопку и отключи заголовок С уважением, Sergey 03 декабря 2003 года * Origin: My Station (2:5003/57.68) |
Re[2]: mciSendString |
From: Alexander Asyabrik Привет, Alexander. Вы, было дело, писали 5 декабря 2003 г., 15:47: AK> То, что надо. Только ShortName я написал, как мне понятнее :) AK> Public Function ShortName(FullName) As String AK> Dim Res As Long AK> Dim Buf As String * 260 AK> Res = GetShortPathName(FullName, Buf, 260) AK> ShortName = Left(Buf, Res) AK> End Function Hазывается "Hайдите XX отличий" или "Х.. на Х.. менять - лишь время терять" :-] Если хочешь сделать изменение с пользой, тогда измени и больше HИКОГДА не используй выражение App.Path & "\temp.mid". Иначе приложение всегда будет вылетать при запуске его из корневой директории. Проще всего так: при старте программы проверь, чтобы в переменной навроде MyPathWithSlash$ оказался путь приложения со слешем на конце. А далее по коду используй уже только ее: MyPathWithSlash & "temp.mid" -- С уважением, Alexander 5:55:49 PM * Origin: Talk.Mail.Ru (2:5020/400) |