VBNet - Форум

Вопрос: UpDown Добавлено: 09.04.04 00:48

Автор вопроса: cresta

Здравствуйте все. Есть маленькая проблемка: сообщения от UpDown в Callback-функцию.
При нажатии на кнопки UpDown приходит uMsg = 513, а вот как определить, на какую кнопку было нажатие - не знаю. wParam=1 для любой кнопки, а lParam содержит координаты курсора. Больше инфы выудить из Callback-функции не удалось. Видимо, в какой-либо структуре это отображается, а в какой - не знаю. Знающие, отзовитесь.
Ответить

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

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

cresta

Вопросов: 117
Ответов: 1538

Профиль | | #1

Добавлено: 09.04.04 04:03

Проблема решена, вопрос снят

Ответить

Номер ответа: 2
Автор ответа:

Chill

ICQ: 554200

Вопросов: 101
Ответов: 343

Профиль | | #2

Добавлено: 09.04.04 08:58

Поделись хоть, как это решается

Ответить

Номер ответа: 3
Автор ответа:

cresta

Вопросов: 117
Ответов: 1538

Профиль | | #3

Добавлено: 09.04.04 18:38

Решается при помощи UDS_SETBUDDYINT. Как Buddy устанавливаешь текстбокс, которому можно сделать Visible=False (чтобы юзер не вносил свои изменения в него). Необходимость в Callback отпадает, т.к. всю инфу можно получить из Sub Текст2_Change().

Public Function CreateUpDown(ByVal hParent As Long, _
                       ByVal nLeft As Long, _
                       ByVal nTop As Long, _
                       ByVal nWidth As Long, _
                       ByVal nHeight As Long, _
                       ) As Long

    Dim ic As INITCOMCTLSEX
    Dim dwStyle As Long, UpWnd as long
    dwStyle = WS_CHILD Or WS_BORDER Or WS_VISIBLE Or _
              UDS_ALIGNRIGHT Or UDS_SETBUDDYINT

    ic.dwSize = Len(ic)
    ic.dwICC = &H100

    Call InitCommonControlsEx(ic)
    UpWnd = CreateWindowEx(0&, _
   "msctls_updown32",_
    "CR UpDown", _
                                dwStyle, _
   nLeft, _
   nTop, _
   nWidth, _
   nHeight, _
                                hParent, _
   0&, _
   App.hInstance, _
   0&

Call SendMessage(UpWnd , UDM_SETBUDDY, Форма3.Текст2.hwnd, 0&
CreateUpDown = UpWnd
End Function

Ответить

Страница: 1 |