Results 1 to 1 of 1
Thread: VB
Hybrid View
-
13th June 2011 16:31 #1Registered User
Join Date: Nov:2008
Location: Sofia, Mladost 3
Posts: 311
VB
,
. "Method 'Activate' of object IVcommands failed. ", vcommand1.activate menu. E
/Code:Private Menu As Long Private Sub Command1_Click() Vcommand1.Activate (Menu) End Sub Private Sub Command2_Click() MsgBox "click" End Sub Private Sub Form_Load() Dim command As String, Description As String, Category As String, Flags As Long, Action As String Vcommand1.initialized = 1 Menu = Vcommand1.MenuCreate("My commands", "commands state", 1) Vcommand1.Enabled = 1 Vcommand1.AddCommand Menu, 1, "click", "button click", "listen list", 0, "" Vcommand1.AddCommand Menu, 1, "show", "show command", "listen list", 0, "" End Sub Private Sub Vcommand1_CommandRecognize(ByVal ID As Long, ByVal CmdName As String, ByVal Flags As Long, ByVal Action As String, ByVal NumLists As Long, ByVal ListValues As String, ByVal command As String) Label1.Caption = "command" Select Case UCase(command) Case "click" Command2_Click Case "show" MsgBox "The command is SHOW" End Select




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in