Value, Min, Max при щёлкании мышью по созданному контролю Но прекрасно срабатывают при использовании клавиатуры.
Используемый код:
Private Sub UserControl_Initialize()
Call cbxCommCtlInitialize(ICC_UPDOWN_CLASS)
Create 0, 0, 0, 0, UserControl.hwnd, UDS_DEFAULT, WS_EX_STATICEDGE
Call SendMessage(m_hWnd, UDM_SETBUDDY, txtUpDown.hwnd, ByVal 0&)
End Sub
Private Function Create(ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal hWndParent As Long, ByVal Style As Long, Optional ByVal ExStyle As Long = 0) As Long
Debug.Assert (m_hWnd = 0)
If (m_hWnd = 0) Then
m_hWnd = CreateWindowEx(ExStyle, UPDOWN_CLASS, vbNullString, Style, x, y, cx, cy, hWndParent, 0, App.hInstance, ByVal 0&)
If (m_hWnd <> 0) Then
m_fOwned = True
Create = m_hWnd
End If
End If
End Function
После достижения максимального значения перескакивает на минимальное и наоборот.
