Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=49859&view=findpost&p=496766 Sat, 30 Oct 2004 14:13:45 +0000 Как сделать, чтобы при вводе букв в https://forum.sources.ru/index.php?showtopic=49859&view=findpost&p=496766 Dufa Работа с основными контролами Visual Basic и текстом https://forum.sources.ru/index.php?showtopic=49859&view=findpost&p=487288 Tue, 19 Oct 2004 16:15:36 +0000 Как сделать, чтобы при вводе букв в https://forum.sources.ru/index.php?showtopic=49859&view=findpost&p=487288 Seriy-Coder Работа с основными контролами Visual Basic и текстом https://forum.sources.ru/index.php?showtopic=49859&view=findpost&p=327980 Tue, 30 Mar 2004 17:19:27 +0000 Как сделать, чтобы при вводе букв в https://forum.sources.ru/index.php?showtopic=49859&view=findpost&p=327980
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Const GWL_STYLE = (-16)
    Private Const ES_UPPERCASE = &H8 – для больших букв
    Private Const ES_LOWERCASE = &H10 – для маленьких букв
     
    Private Sub Form_Load()
        Call SetWindowLong(Text1.hwnd, GWL_STYLE, GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_LOWERCASE)
    End Sub
]]> Dufa Работа с основными контролами Visual Basic и текстом