Visual Basic 6.0 - О сколько нам открытий чудных... (с) А.С. Пушкин

Hi All,

(Дизклеймер (C) Alexander Asyabrik :
Я собственно и не с вопросом...
Подозреваю, что я не одинок в своем неведении (по крайней мере надеюсь:-)
А фича-то, блин, удобная...
Прошу шибко грамотных;-) не пинаться, написано не для них.)

1. Как задать описание (helpstring) классу


Однако, для классов разработчики VB не предусмотрели удобного способа задать
описание. Hужно открыть Object Browser (F2), найти нужный класс, щёлкнуть
правой кнопкой и выбрать пункт Properties. В открывшемся окне и задаётся
описание. Альтернативный способ задать описание классу - вписать строку вида
Attribute VB_Description = "Описание"
в начало файла класса, контрола или формы, сразу после других строк Attribute.
Описание контрола отображается, например, программой ActiveX Control Test
Container в списке доступных контролов, так что задавать его имеет смысл. Где
показываются описания других видов классов - также, как и событий, я не нашёл.
Только что в самом Object Browser-е.

2. Если создать на панели инструментов кнопку About Microsoft Visual Basic и
переименовать её в "Show VB Credits" (регистр важен), то при щёлчке на неё
покажут мультик с музыкой и списком разработчиков VB.

3. Friend Event
Как известно, VB не позволяет создавать не-публичные события; однако, они
могут понадобиться, например, когда какой-то публичный класс должен оповещать
о действиях с собой другой публичный класс. Лобовое решение - создать в
оповещаемом классе дружественный метод и вызывать его из оповещающего - не
проходит из-за возникновения циклической ссылки. Любители вылавливать баги
могут устанавливать одну из этих двух ссылок через CopyMemory вместо Set и
затем в событии Terminate так же очищать, но "есть способ лучше". А именно,
создать приватный класс с единственным методом (с нужными параметрами) и
единственным событием. Код в этом классе примерно такой:
Event Update(ByVal Parm As Long)
Public Sub Update(ByVal Parm As Long)
RaiseEvent Update(Parm)
End Sub
Теперь оповещаемый класс создаёт у себя экземпляр этого промежуточного класса
и передаёт ссылку на него оповещающему, а тот, когда нужно, производит
оповещение, вызывая метод Update переданного экземпляра. Просто, без API, и
без циклических ссылок.
(Когда это может быть нужно: пусть у нас есть контрол TreeView с коллекцией
Nodes; когда в коллекцию добавляют новые узлы, контрол должен
перерисовываться.)

4. Быстрее, чем CopyMemory
Часто - даже в основном - процедурой CopyMemory приходится пользоваться для
пересылки 4-байтных значений. Однако та в этом отношении крайне неэффективна,
поскольку инициализация цикла в этом случае занимает больше времени, чем его
тело. Эффективнее использовать функции msvbvm60:
Private Declare Sub CopyLong Lib "MSVBVM60.DLL" Alias "GetMem4" (lFrom As Any,
lTo As Any)
Private Declare Sub PokeLong Lib "MSVBVM60.DLL" Alias "PutMem4" (lTo As Any,
ByVal lFrom As Long)
Hужно только обратить внимание на обратный порядок аргументов в CopyLong - по
сравнению с CopyMemory, и с тем, что PokeLong принимает вторым параметром не
адрес, а значение.
Такие же функции существуют и для остальных типов данных - в их названиях
вместо цифры 4 стоит одно из значений 1, 2, 8, Str, Obj, Var. С каким типом
работает какая - вроде бы ясно.

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)


















Я и пробовал v3.30! Говорит: неизвестный формат или разрушение.
Два раза скачивал.
С RAR всегда какие-то проблемы.
А зачем он вообще нужен?
Может он и дает 10Кб экономии при закачке архива,
но потом придется искать и качать разные версии RAR и подбирать.
А почему бы не использовать простой демократичный ZIP,
8O))
который у всех откроется? Или положить архивы разных форматов?

Сергей.


* Origin: Demos online service (2:5020/400)


Приветствую тебя, _Dmitriy_ !


Dmitriy Kozyrev и Vitaliy Pryahin сидели дома,пили пиво и болтали на тему _Re: Модем_.





пробовал, да вот глючит.
не подкинешь примерчик :)?



это я знаю и делать этого как раз не хотел :)


Hе скучай,_Dmitriy_. С уважением,Виталий.

* Origin: (2:5096/19)


Приветствую тебя, _Dmitry_ !


Dmitry Viazowkin и Vitaliy Pryahin сидели дома,пили пиво и болтали на тему _Re: Модем_.





Чет не понял, пример можешь дать, если не влом?

Hе скучай,_Dmitry_. С уважением,Виталий.

* Origin: (2:5096/19)


Мы где-то виделись, Sergei?






Архив запакован в WinRar 3.30, т.е. для его открытия потребуется версия не
ниже 2.90. Если большинство это будет напрягать - могу переделать в Cab.

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

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




Hi!




Ты про MSDN слышал? Вот там есть описание интерфейса TAPI - ко всем телефонным
устройствам. С его помощью подобные задачи обычно и решаются. Только одно HО -
из VB его страшно неудобно использовать, приходится обвязку делать.


Дай нормальный адрес - отправлю рабочий пример. А пока - цикл сканирования
устройств


for (dwDeviceID = 0; dwDeviceID < g_dwNumDevs; dwDeviceID ++) {
dwAPIVersion = I_lineNegotiateAPIVersion(dwDeviceID);
if (dwAPIVersion) {

//удобная обертка к lineGetDevCaps
lpLineDevCaps = I_lineGetDevCaps(lpLineDevCaps, dwDeviceID,
dwAPIVersion);
if (lpLineDevCaps) {



// This is the name of the device.




//помимо имени, здесь можно получить почти любую инфу про устройство - в том
числе и его порт.
// для этого - lineGetDevConfig, указав класс "comm/datamodem/portname"

if(lpszLineName==NULL) // Line name started with a NULL.
lpszLineName = szLineNameEmpty;
} else // DevCaps doesn't have a valid line name. Unnamed.
lpszLineName = szLineUnnamed;
} else // Couldn't GetDevCaps. Line is unavail.
lpszLineName = szLineUnavail;
} else // Couldn't NegotiateAPIVersion. Line is unavail.
lpszLineName = szLineUnavail;

// Put the device name into the VB control
CallObject(g_lpUnk,lpszLineName,dwDeviceID);

// If this line is usable and we don't have a default initial
// line yet, make this the initial line.
if ((lpszLineName != szLineUnavail) &&
(dwDefaultDevice == MAXDWORD) &&
(VerifyUsableLine(dwDeviceID) == SUCCESS)) {
dwDefaultDevice = dwDeviceID;
}
}


где-то перед этим вызываешь

lReturn = lineInitializeEx(&g_hLineApp, g_hInstance,
0/*LineCallbackFunc*/, "TapiComm", &g_dwNumDevs, &APIvers,&LineParams);

оно дает общее количество устройств в системе.

Как-то так ;)


--
With best regards
Dmitry Viazowkin


* Origin: Me? Organized??? (2:5020/400)


Hi!

Если не в тему, то сорри.
ru.asp неработает у меня.

Имееся w2k server sp2. Запущен IIS:
файл gb.asp: 

dim strconn
dim db
strconn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db\db.mdb")
Set db = Server.CreateObject("ADODB.Connection")
db.open strconn
sqlquery="insert into gb(id,iddate,name,message,subject) values("&cstr(max)&",'"&iddate&"','"&name1&"','"&message&"','"&subject&"')"

db.Close
Set db = Nothing

Hа показанной строке ругается:
Error Type:
Microsoft JET Database Engine (0x80004005)
Operation must use an updateable query.
/rshb/gb.asp, line 150

Причем,на локальной машине w2k proff sp2,access97/2000.Все прекрасно работает.
Hа сервере ругается,а select работает :
SQLQuery = "Select * From gb ORDER BY id DESC"
Set rs = db.Execute(SQLQuery)

Чего править?!ruki.sys?brain.com? Hе ужели придется ставить access на сервак? Или не из-за аксеса?

Best wishes,
OSer.

* Origin: Embankment LAN Point (2:5066/70.103)


Hello Gribkov!

Thu Mar 04 2004 09:04, Gribkov M.N. wrote to All:












Hа закладочку Values. Кнопочка Translate. И заполняешь внизу замену. Для небольших справочников помогает. А иначе я так понял что-то типа DbDropDown юзать надо.

Dmitry

* Origin: Malikov [@] ngs.ru (2:5005/68.18)




Sergey Ozyakov wrote on Wed, 10 Mar 2004 17:19:25 +0300:



NTFS permissions


--
AT
* Origin: Demos online service (2:5020/400)




Hi All,

(Дизклеймер (C) Alexander Asyabrik :
Я собственно и не с вопросом...
Подозреваю, что я не одинок в своем неведении (по крайней мере надеюсь:-)
А фича-то, блин, удобная...
Прошу шибко грамотных;-) не пинаться, написано не для них.)

1. Как задать описание (helpstring) классу


Однако, для классов разработчики VB не предусмотрели удобного способа задать
описание. Hужно открыть Object Browser (F2), найти нужный класс, щёлкнуть
правой кнопкой и выбрать пункт Properties. В открывшемся окне и задаётся
описание. Альтернативный способ задать описание классу - вписать строку вида
Attribute VB_Description = "Описание"
в начало файла класса, контрола или формы, сразу после других строк Attribute.
Описание контрола отображается, например, программой ActiveX Control Test
Container в списке доступных контролов, так что задавать его имеет смысл. Где
показываются описания других видов классов - также, как и событий, я не нашёл.
Только что в самом Object Browser-е.

2. Если создать на панели инструментов кнопку About Microsoft Visual Basic и
переименовать её в "Show VB Credits" (регистр важен), то при щёлчке на неё
покажут мультик с музыкой и списком разработчиков VB.

3. Friend Event
Как известно, VB не позволяет создавать не-публичные события; однако, они
могут понадобиться, например, когда какой-то публичный класс должен оповещать
о действиях с собой другой публичный класс. Лобовое решение - создать в
оповещаемом классе дружественный метод и вызывать его из оповещающего - не
проходит из-за возникновения циклической ссылки. Любители вылавливать баги
могут устанавливать одну из этих двух ссылок через CopyMemory вместо Set и
затем в событии Terminate так же очищать, но "есть способ лучше". А именно,
создать приватный класс с единственным методом (с нужными параметрами) и
единственным событием. Код в этом классе примерно такой:
Event Update(ByVal Parm As Long)
Public Sub Update(ByVal Parm As Long)
RaiseEvent Update(Parm)
End Sub
Теперь оповещаемый класс создаёт у себя экземпляр этого промежуточного класса
и передаёт ссылку на него оповещающему, а тот, когда нужно, производит
оповещение, вызывая метод Update переданного экземпляра. Просто, без API, и
без циклических ссылок.
(Когда это может быть нужно: пусть у нас есть контрол TreeView с коллекцией
Nodes; когда в коллекцию добавляют новые узлы, контрол должен
перерисовываться.)

4. Быстрее, чем CopyMemory
Часто - даже в основном - процедурой CopyMemory приходится пользоваться для
пересылки 4-байтных значений. Однако та в этом отношении крайне неэффективна,
поскольку инициализация цикла в этом случае занимает больше времени, чем его
тело. Эффективнее использовать функции msvbvm60:
Private Declare Sub CopyLong Lib "MSVBVM60.DLL" Alias "GetMem4" (lFrom As Any,
lTo As Any)
Private Declare Sub PokeLong Lib "MSVBVM60.DLL" Alias "PutMem4" (lTo As Any,
ByVal lFrom As Long)
Hужно только обратить внимание на обратный порядок аргументов в CopyLong - по
сравнению с CopyMemory, и с тем, что PokeLong принимает вторым параметром не
адрес, а значение.
Такие же функции существуют и для остальных типов данных - в их названиях
вместо цифры 4 стоит одно из значений 1, 2, 8, Str, Obj, Var. С каким типом
работает какая - вроде бы ясно.

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)