Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
 Jak nastavit TextBox pouze pro čísla. |
Autor: Kočí Marek
| Zdroj:
| Vytvořeno: 25.9.2003
| Publikováno: 27.9.2003
| Čtenářů: 3593
| Unikátních: 3502
|
TextBox pouze pro čísla,velká nebo malá písmena.
Použitím API funkcí lze texbox upravit tak, že do něho nezadáte nic jiného než požadovaná data.
Vytvořte si modul a do něho vložte následující kód:
Public Declare Function GetWindowLong _
Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong _
Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE = (-16)
Public Const ES_NUMBER = &H2000&
Public Const ES_UPPERCASE = &H8&
Public Const ES_LOWERCASE = &H10&
Public Sub NumericTextBox(hWnd As Long)
Dim lStyle As Long
lStyle = GetWindowLong(hWnd, GWL_STYLE)
Call SetWindowLong(hWnd, GWL_STYLE, _
lStyle Or ES_NUMBER)
End Sub
Public Sub UpperCaseTextBox(hWnd As Long)
Dim lStyle As Long
lStyle = GetWindowLong(hWnd, GWL_STYLE)
Call SetWindowLong(hWnd, GWL_STYLE, _
lStyle Or ES_UPPERCASE)
End Sub
Public Sub LowerCaseTextBox(hWnd As Long)
Dim lStyle As Long
lStyle = GetWindowLong(hWnd, GWL_STYLE)
Call SetWindowLong(hWnd, GWL_STYLE, _
lStyle Or ES_LOWERCASE)
End Sub
Potom odkudkoliv z projektu můžete TextBoxy nastavovat takto:
NumericTextBox Text1.hWnd
UpperCaseTextBox txtVelkyText.hWnd
|
Novinky e-mailem
Nejčtenější články
Anketa
Nabídka portálu