
Пол-дня провозился, в результате оказалось, что PopupMenu не работает в модальном окне!
Эт че, МСДН надо наизусть изучать?

Там, оказывается, есть про это статейка и танец с бубном и таймером

вот собсно и все!
сабж...
Private Sub Form_Click()
Form2.Show vbModal
End Sub
Private Sub Form_Click()
PopupMenu Form1.menu1
'PopupMenu menu
End Sub
ALX_2002 писал(а):Или имеется в виду по клику на пункте меню ?
Mikle писал(а):Тоже попадались глюки, например TextBox со свойством Locked=True можно редактировать! Прямой ввод символов не проходит, а вставка Shift+Insert - без проблем!
Private Sub Form_Load()
txt = Text1.Text
MsgBox txt
End Sub
Private Sub Text1_Change()
Text1.Text = txt
End Sub
'для нагладности
Dim txt As String
Private Sub Form_Load()
txt = Text1.Text
MsgBox txt
End Sub
Private Sub Text1_Change()
MsgBox Text1.Text
Text1.Text = txt
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4