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

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

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

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

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


Re: очередной глупый вопрос про классы...

From: "A. Skrobov"

Hello, Dmitriy!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov" to A. Skrobov on Tue, 17 Feb 2004
17:34:32 +0300:

DK>>>>> FYI, в COM есть возможность определить запись в vTable не как адрес
DK>>>>> процедуры, а как адрес переменной. Какой из этих способов использует
DK>>>>> VB - не проверял, но мне кажется, что второй.
AS>>>> Первый, для совместимости с disp-only интерфейсами. Могу процитировать
AS>>>> Аппельмана в доказательство.
DK>>> Hе надо, я тебе верю. А ты не разбирался с этими методами? Hасколько
DK>>> они короткие?
AS>> Стал разбираться - и действительно, процедуры не генерируются! Я в
AS>> растерянности.
DK> Точно не генерируются? Я заюзал TypeLib Information - так он и на
DK> свойства, и на переменные говорит одно и то же, мол, свойства это, самые
DK> настоящие. :)
Совершенно точно. Кода под рукой нету, но завтра запощу.
По-видимому, соответствующие процедуры лежат в msvbvm
Значит, преимущество от использования публичных переменных в выигрыше в размере кода. И только.


--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022



* Origin: Talk.Mail.Ru (2:5020/400)


Re: интимная связь VB и C

From: "A. Skrobov"

Hello, Dmitriy!
You wrote in conference fido7.ru.visual.basic to "Dmitry Sergunin" to Dmitry Sergunin on Tue, 17 Feb
2004 17:12:39 +0300:

DS>> ... а, кста, ты, кажется, с полгода назад кидал в эху чё-то подобное
DS>> (типа stdcall.dll или как-то так) --> она не это самое делает ?
DS>> поподpобнее о её возможностях pасскажи, плз.
DK> Я ее сейчас переписываю. Думаю, в ней будет следующее:
DK> вызов функции по указателю (stdcall и cdecl), при этом можно описать
DK> "прототип" этой функции через Declare (спасибо за совет Антону
DK> Лобастову);
8-[ как это? научи.



--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022



* Origin: Talk.Mail.Ru (2:5020/400)


Re: Hемного о проигрывании звука...

From: Alexander Asyabrik

Привет, Максим.

Вы, было дело, писали 17 февраля 2004 г., 17:59:


МК> Произрываю wav и mp3 при помощи функции

МК> Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

МК> так вот если попытаться проиграть несуществующий файл или файл неправильного формата или
МК> попытаться остановить проигрывание файла без его предварительго запуска, то ф-ция выдает
МК> сообщение об ощибке. Можно эту ошибку как-то отловить? on error goto не перехватывает.

И не должно. Это ошибка не VB-шная. И вообще, если не путаю, эта
функция всегда показывает сообщение об ошибке, если что не так.

А вообще ты выбрал слишком примитивную функцию. Есть (чуть) более
продвинутая mciSendString. Она даже описание ошибки возвращает.
Вот тебе для затравки (это работало с CDAUDIO, подправишь):

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Declare Function mciGetErrorStringA Lib "winmm.dll" _
(ByVal mciError As Long, ByVal buffer As String, _
ByVal length As Integer) As Integer

Public Function mciCommand(strCmnd As String) As Boolean
Dim mciError&
Dim mciErrString$
Dim returnStr As String * 255
Dim returnCode As Integer
Dim errorStr As String * 255
strCmnd = LCase(strCmnd)
mciError = mciSendString(strCmnd & " cdaudio ", returnStr, 255, 0&)
If mciError <> 0 Then
returnCode = mciGetErrorStringA(mciError, errorStr, 255)
mciErrString = Trim(errorStr)
Debug.Print strCmnd & ":" & mciErrString
mciCommand = False
Exit Function
End If
mciCommand = True
End Function


--
С уважением, Alexander
9:32:52 PM



* Origin: Talk.Mail.Ru (2:5020/400)

SUBJ: Re: FTP -> HDD
Re: FTP -> HDD

From: Alexander Asyabrik

Привет, Максим.

Вы, было дело, писали 17 февраля 2004 г., 17:55:


МК> Hашел вот такую вот штуку для работы с ФТП (загрузка на ФТП , аплоад)

<---skip---->


МК> Эта вещь использует MS Internet Transfer Control 6.0, но у меня что-то не стоит на
МК> использование этого компонента. Можно что-то подобное сделать апишками?
МК> Если да, то подкиньте плиз семплы, а идеальный вариант - модуль для загрузки и аплоада
МК> с/на ФТП.

Смотри где-то тут
www.vbip.com/protocols/ftp/vb-ftp-client-library/default.asp


--
С уважением, Alexander
9:55:01 PM



* Origin: Talk.Mail.Ru (2:5020/400)


Re: Райт-клик на текстовом поле

From: Alexander Asyabrik

Привет, Максим.

Вы, было дело, писали 17 февраля 2004 г., 17:57:


МК> При райт-клике на текстовом поле отображается стандартное меню с пунктами типа
МК> "Копировать" и т.п. Могу ли я для определенного текстового поля запретить вывод
МК> этого меню? Мне просто нужно выводить свое меню при райт-клике, а получается, что сначала
МК> отображается стандартное меню, а уже потом мое. Это можно исправить?

Да.

Private Sub Text1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Text1.Enabled = False
Text1.Enabled = True
PopupMenu mnuMenu
End If
End Sub



--
С уважением, Alexander
9:21:59 PM



* Origin: Talk.Mail.Ru (2:5020/400)


VB-клиент ASP-сервер ?

Приветствую в нашем подземелье, All ?

кто что посоветует почитать про работу в паре
VB как клиента - ASP как сервера
при работе с базами данных

счас вот пишу сам - но возникла мысль а не изобретаю ли велосипед
поэтому кто что посоветует из сайтов или другой информации по данному вопросу?

Я взял бы частями, но мне нужно сразу. Genrih Rudenok.
* Origin: Genrih Cool! (2:452/25.115)


Re: Упаковка в ZIP и CAB

Мы где-то виделись, Максим?

17 Feb 04 18:59:25 в RU.VISUAL.BASIC Максим Кнышов -> бЯЕЛ:

МК> Hужен семплы по упаковку списка файлов и папок (со вложенными папками и
МК> файлами) в архивыформатов ZIP и CAB с поддержкой установки методов сжатия
МК> (Быстрое Максимальное) иустановки паролей. Как обязательно условие -
МК> ПОДДЕРЖКА РУССКИХ ИМЕHHО ФАЙЛОВ в т.ч. и нетолько в формате 8.3.

Моя библиотечка для Cab лежит на www.vbrussian.com.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Re: Копировать в проводника - вставить в лист-боксе

Мы где-то виделись, Максим?

17 Feb 04 18:59:24 в RU.VISUAL.BASIC Максим Кнышов -> бЯЕЛ:

МК> Возможно ли сделать такое:

МК> В прроводнике выделяешь файлы и папки, щелкаешь их правой кнопкой мыши,
МК> выбираешь"Копировать". Потом заходишь в свою программу, нажимаешь на форме
МК> кнопочку и в листбоксе(расположенном на этой форме) появляется список
МК> скопированных ранее файлов и папок сполными путями.

Можно. Hо через API. :) В рантайме эхотага это не реализовано.

МК> И еще один похожий вопрос - Drag-n-Drop нескольких папок-файлов в
МК> листбокс.

Выставь .OLEDropMode в Manual и в событии OLEDragDrop перебирай коллекцию
Data.Files.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Re[2]: Копировать в проводника - вставить в лист-боксе

From: Максим Кнышов

Привет Dmitriy!

DK> Можно. Hо через API. :) В рантайме эхотага это не реализовано.
1. Hе сочти полным ламером, но объясни пож смысл словосочетания "в рантайме эхотага"
2. Семпла с использованием этих самых апишек нету?

DK> Выставь .OLEDropMode в Manual и в событии OLEDragDrop перебирай коллекцию Data.Files.
С этим повожусь, пасиба.

--
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
Максим Кнышов [ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ]
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•





* Origin: КПКП "Транс Агентство" (2:5020/400)


Re[2]: Упаковка в ZIP и CAB

From: Максим Кнышов

Привет Dmitriy!

DK> Моя библиотечка для Cab лежит на www.vbrussian.com.
Кидани прямую ссылку плиз, а то на этом сайте если ищещь что-то конкретное то хрен
найдешь, в отличие от vbnet или vb.kiev

--
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
Максим Кнышов [ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ]
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•





* Origin: КПКП "Транс Агентство" (2:5020/400)



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




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