Изменилось ли содержимое ComboBox

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChild As Long, ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const EM_SETMODIFY = &HB9
Const EM_GETMODIFY = &HB8

Private Sub Command1_Click()
Dim CombohWnd As Long
Dim DirtyFlag As Long

CombohWnd = FindWindowEx(Combo1.hWnd, 0&, vbNullString, vbNullString)
DirtyFlag = SendMessage(CombohWnd, EM_GETMODIFY, ByVal 0&, ByVal 0&)

If DirtyFlag = 1 Then
MsgBox "Содержимое Combo Box изменилось"
Else
MsgBox "Содержимое Combo Box не изменилось"
End If
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Изменилось ли содержимое ComboBox", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!