VBCoding Библиотека кодов Visual Basic 6 Работа с меню Переключение между пунктами подменю

Visual Basic 6
Переключение между пунктами подменю
Подменю MyMenu должно содержать индекс (от 0 до...)
Private Sub MyMenu_Click(Index As Integer)
Static prevSelection As Integer
MyMenu(prevSelection).Checked = False
MyMenu(Index).Checked = True
prevSelection = Index
End Sub

Источник: http://www.vbnet.ru/
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Работа с меню Переключение между пунктами подменю  
Powered by Exponenta -