Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

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

Страница: 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 | Пишите нам