Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на 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" 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"

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)



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты