Visual Basic 6.0 - XP/98
Re: XP/98
From: "Sergey Broudkov" <broudkov [@] PointLtd.com>
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" <tyomitch [@] r66.ru>
Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov" <fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Thu, 4 Dec 2003
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" <kolpakov_av [@] npz-saratov.ru>
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" <kolpakov_av [@] npz-saratov.ru>
Hi!
> В чем дел?
По-моему, здесь.
> "data source=(local);" & _
Hадо не local, а реальное имя сервера. И еще, если стоит MSDE, а не сервер,
то там внешние коннекты надо разрешить в установках. По умолчанию - работает
локально.
--
С уважением.
Александр.
* Origin: Demos online service (2:5020/400)
Re: mciSendString
From: Alexander Asyabrik <belmis [@] mail.belpak.by>
Привет, 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" <kolpakov_av [@] npz-saratov.ru>
Спасибо!
То, что надо. Только 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" <samsk [@] ukrpack.net>
Здравствуй, "Alexander Kolpakov"
> > В чем дел?
>
> По-моему, здесь.
>
> > "data source=(local);" & _
> Hадо не local, а реальное имя сервера. И еще, если стоит MSDE, а не
сервер,
> то там внешние коннекты надо разрешить в установках. По умолчанию -
работает
> локально.
Спасибо. Действительно, нужно было указать имя сервера.
Hо как-то не логично. В следующем параметре мы же указываем
ODBC источник в котором эта информация есть.
Я, во всяком случае, это так понимаю.
С уважением.
Анатолий.
* Origin: Digital Generation (2:5020/400)
Re: Листбокс
From: "Slyusar Anatoliy" <samsk [@] ukrpack.net>
Здравствуй, "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 <belmis [@] mail.belpak.by>
Привет, 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)