Всем известно, что для того чтобы выделить
текст в TextBox, нужно указать начало выделения
(SelStart) и длину выделения (SelLength), при этом
курсор становится в конец выделения. В этой
статье описывается, как сделать выделение с
мигающим курсором слева от выделения.
Иногда полезно отследить изменение времени,
как это сделать написано в данной статье.
Советы по программированию
Расположите на форме Timer с Interval=1000 и
вставьте код:
Private
Declare Function GetMessage Lib "user32" Alias "GetMessageA"
(lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal
wMsgFilterMax As Long) As Long
Private Type MSG
hwnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
End Type
Private Sub Timer1_Timer()
Const WM_TIMECHANGE = &H1E
Dim StructMSG As MSG
Call GetMessage(StructMSG, 0, 0, 0)
If StructMSG.message = WM_TIMECHANGE Then MsgBox "Время
изменено!!!"
End Sub Идея этого кода в том, что
каждую секунду идет проверка на получение
сообщения системе, и если получено
сообщение WM_TIMECHANGE, то время изменено и на
экране появляется соответствующая надпись.
