1. Как напечатать многоточие (…) когда в текстовом окне вы нажимаете Alt+Ctrl+(.) (как в Word97) Наверх

Конечно, вы можете просто проверять в событии KeyDown, когда пользователь нажимает Alt+Ctrl+(.) в текстовом окне и печатать многоточие. Да, но при этом после многоточия будет печататься точка. Я нашёл способ, как этого избежать. Смотрите код ниже:

Private Sub TextBox1_KeyDown(KeyCode As Integer, Shift As Integer) 
  If KeyCode = 190 Then              ' 190 - код для точки (.) 
      If Shift = vbCtrlMask + vbAltMask Then 
         TextBox1.SelText = Chr(133) ' 133 - код для многоточия (...) 
        ' Вам нужно заблокировать текстовое окно, чтобы избежать печати точки 
         TextBox1.Locked = True 
      End If 
   End If 
End Sub 


Private Sub TextBox1_KeyUp(KeyCode As Integer, Shift As Integer) 
   If KeyCode = 190 Then 
      If Shift = vbCtrlMask + vbAltMask Then 
        ' Необходимо разблокировать текстовое окно, чтобы пользователь 
        ' мог вводить последующий текст 
         TextBox1.Locked = False 
      End If 
   End If 
End Sub
Главная Наверх