На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
Модераторы: SCINER, B.V.
  
    > Как сделать, чтобы при вводе букв в, Textbox, они становились БОЛЬШИМИ или маленькими
      ExpandedWrap disabled
        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
      Сообщение отредактировано: Andrey_Kun -
        Ну АРI это рульно, но и в VB есть такие ф-ции: это UCase(), UCase$() - преобразует в заглавные, и LCase() LCase$() - преобразует в строчные
        user posted imageuser posted image
          не спорю :yes: , но этот вариант показался надёжней и попроще
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script Execution time: 0,1041 ]   [ 18 queries used ]   [ Generated: 23.10.19, 02:39 GMT ]