Visual Basic 6.0 - очередной глупый вопрос про классы...
Re: очередной глупый вопрос про классы...
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Dmitriy!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov" <fido7.ru.visual.basic [@] talk.ru>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" <tyomitch [@] r66.ru>
Hello, Dmitriy!
You wrote in conference fido7.ru.visual.basic to "Dmitry Sergunin" <fido7.ru.visual.basic [@] talk.ru>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 <belmis [@] mail.belpak.by>
Привет, Максим.
Вы, было дело, писали 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 <belmis [@] mail.belpak.by>
Привет, Максим.
Вы, было дело, писали 17 февраля 2004 г., 17:55:
МК> Hашел вот такую вот штуку для работы с ФТП (загрузка на ФТП , аплоад)
<---skip---->
МК> Эта вещь использует MS Internet Transfer Control 6.0, но у меня что-то не стоит на
МК> использование этого компонента. Можно что-то подобное сделать апишками?
МК> Если да, то подкиньте плиз семплы, а идеальный вариант - модуль для загрузки и аплоада
МК> с/на ФТП.
Смотри где-то тут
http://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 <belmis [@] mail.belpak.by>
Привет, Максим.
Вы, было дело, писали 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: Максим Кнышов <knyshow [@] mail.dsip.net>
Привет Dmitriy!
DK> Можно. Hо через API. :) В рантайме эхотага это не реализовано.
1. Hе сочти полным ламером, но объясни пож смысл словосочетания "в рантайме эхотага"
2. Семпла с использованием этих самых апишек нету?
DK> Выставь .OLEDropMode в Manual и в событии OLEDragDrop перебирай коллекцию Data.Files.
С этим повожусь, пасиба.
--
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
Максим Кнышов [ knyshow#vantage.lg.ua ] [ http://gbu.dvostok.com ]
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
* Origin: КПКП "Транс Агентство" (2:5020/400)
Re[2]: Упаковка в ZIP и CAB
From: Максим Кнышов <knyshow [@] mail.dsip.net>
Привет Dmitriy!
DK> Моя библиотечка для Cab лежит на www.vbrussian.com.
Кидани прямую ссылку плиз, а то на этом сайте если ищещь что-то конкретное то хрен
найдешь, в отличие от vbnet или vb.kiev
--
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
Максим Кнышов [ knyshow#vantage.lg.ua ] [ http://gbu.dvostok.com ]
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
* Origin: КПКП "Транс Агентство" (2:5020/400)