TextBox
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- hCORe
- VB - Экстремал
-
- Сообщения: 2332
- Зарегистрирован: 22.02.2003 (Сб) 15:21
- Откуда: parent directory
Кодим, товарищи!
hCORe » 30.12.2003 (Вт) 14:44
Используй примерно такой код:
- Код: Выделить всё
Private Sub TextBox1_MouseUp (Button as Integer, Shift as Integer, X as Single, Y as Single)
On Error Resume Next
'заблокировать, чтобы
'меню не показывалось
TextBox1.Enabled=False
'вызвать собственное меню
'mnuMyMenu - имя меню
PopupMenu mnuMyMenu
'разблокировать для ввода
TextBox1.Enabled=True
End Sub
Моду создают модоки, а распространяют модозвоны.
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот и гости: 177