Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Проверьте Добавлено: 09.03.03 15:06  

Автор вопроса:  Stick | Web-сайт: www.kamchatka.ru

Мне посоветовали следующий код для изменения значения в ComboBox'е. Но у меня он не работает, проверьте плз.

Private Declare Function SendMessageAny Lib "user32" Alias

"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As

Integer, lParam As Any) As Long

Private Const CB_FINDSTRING = &H14C

Private Function ComboBoxIndex(ByVal lHwnd As Long, ByVal sSearchText As

String) As Long

ComboBoxIndex = SendMessageAny(lHwnd, CB_FINDSTRING, -1, ByVal

sSearchText)

End Function

Нахожу hwnd ComboBox'а и посылаю функцию. Найдите ошибку, спасибо.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Justas



ICQ: 259418212 

Вопросов: 24
Ответов: 325
 Web-сайт: justas.newmail.ru
 Профиль | | #1
Добавлено: 11.03.03 06:48

Private Declare Function SendMessageAny Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, lParam As Any) As Long
Private Const CB_FINDSTRING = &H14C

Private Function ComboBoxIndex(ByVal lHwnd As Long, ByVal sSearchText As String) As Long
ComboBoxIndex = SendMessageAny(lHwnd, CB_FINDSTRING, -1, ByVal sSearchText)
End Function

Private Sub Command1_Click()
Dim a As Long
a = ComboBoxIndex(Combo1.hwnd, "33333")
Combo1.ListIndex = a
End Sub

Private Sub Form_Load()
Combo1.AddItem "11111"
Combo1.AddItem "22222"
Combo1.AddItem "33333"
End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам