Начинаем наши очередные советы, как используя старый стержень от шариковой
ручки сделать классную трубочку для коктелей. Итак, возмите этот старый
стержень.... О чем это я? А-а... Словом, поговорим о Visual Basic.
В прошлом выпуске я упомянул о функции для освобождения памяти. Как
оказалось, упомянул зря. К счастью, меня поправили - эта функция не делает
ничего вредного, но и полезного тоже. Касается это всех 32-битных Windows.
так что смело можете ее выбрасывать.
Маленькая хирость из серии работы с картинками
Как положить картинку в переменную - В самом деле просто, хитростей
2
Dim a As StdPicture 'переменная должна быть "специального" типа
'ну и не надо забывать, что loadpicture возвращает обьект
Set a = LoadPicture("C:\PHOTO\16_15.JPG") Picture1.Picture = a
Еще одна хитрость, связанная с курсором. Как нибудь я посвящю выпуск
разбору разных мыщиных событий - как поставить курсор куда надо, кликнуть
там мышкой итд. А сейчас, простенький пример, как спрятать
курсор
Private Declare Function ShowCursor Lib "user32" _
(ByVal bShow As Long) As Long
Dim blnShowCursor As Boolean
Private Sub Command1_Click()
Call ShowCursor(blnShowCursor)
If blnShowCursor Then
blnShowCursor = False
Else
blnShowCursor = True
End If
End Sub
На днях у меня спрашивали, как отловить нажатие TAB?
Можно примерно так.
Private Declare Function GetKeyState% _
Lib "User32" (ByVal nVirtKey%)
Private Sub Text1_LostFocus()
If GetKeyState(vbKeyTab) < 0 Then
Text1.SetFocus
MsgBox "Tab Нажали!"
End If
End Sub
Книга,весьма
полезная для понимания работы с API.
А учитывая ее смешную стоимость - 45 рублей....
Короче, рекомендую
Хочу поставить в известность всех подписчиков
этого листа - лист создается в html , а потом автоматом на Ситикоте
из него создается текстовый вариант. Так что, если вы, по ошибке, подписались
на текстовую версию - рекомендую изменить этот параметр, так как за
качество конвертации я не отвечаю, а создавать отдельную версию у меня
не хватает времени. Сорри.