[RESOLVED] menu item msgbox

[rpool]

I have problem,

How to click _title> _click Item(1,2,3,4,5...),
msgbox "item1,2,3,4,5..."


any idea please!

   
   Begin VB.Menu MF 
      Caption         =   "title"
      Begin VB.Menu MenuItem 
         Caption         =   "Dumm"
         Index           =   0
         Visible         =   0   'False
      End
      Begin VB.Menu MenuExit 
         Caption         =   "exit"
      End
   End
End


Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Form_Load()

Dim I As Integer

    For I = 1 To 10
        Load MenuItem(I)
        MenuItem(I).Caption = "Item " & I
        MenuItem(I).Visible = True
    Next

End Sub

[Hack]

I don't understand what you mean?

When you say "how to click item" are you asking how to programmatically execute the code in the menu click event?

Or, are you trying to dynamically create new menu items?

[Edgemeal]

How to click _title> _click Item(1,2,3,4,5...),
msgbox "item1,2,3,4,5..."

Not sure what you are asking, is this even close?....

Private Sub Command1_Click()
    ' click menu item 5
    Call MenuItem_Click(5)
End Sub

Private Sub MenuItem_Click(Index As Integer)
    ' show menu caption for the index that was clicked
    MsgBox MenuItem(Index).Caption
End Sub

[rpool]

your right. would you tell me what case I need ?

[akhileshbc]

your right. would you tell me what case I need ?

Which one...????

[rpool]

Thanks, I use myArr() To Do menu items, but said:
Object already loaded (Error 360)

What wrong please!

Option Explicit



Private Sub Form_Load()


Dim myArr() As String
ReDim myArr(0 To 3, 0 To 1)

myArr(0, 0) = "click a"
myArr(0, 1) = "msgbox a"

myArr(1, 0) = "click b"
myArr(1, 1) = "msgbox b"

myArr(2, 0) = "click c"
myArr(2, 1) = "msgbox c"

myArr(3, 0) = "click d"
myArr(3, 1) = "msgbox d"


Dim crt As Integer
Dim cy As Integer



For crt = LBound(myArr, 1) To UBound(myArr, 1)

	For cy = LBound(myArr, 2) To UBound(myArr, 2)

		Load MenuItem(crt)
        MenuItem(crt).Caption = "Item " & myArr(crt, cy) 'show string Click a, click b, click c...
        MenuItem(crt).Visible = True

	Next cy

Next crt


End Sub



Private Sub MenuItem_Click(Index As Integer)

    ' show menu caption for the index that was clicked

    MsgBox MenuItem(Index).Caption  'result msgbox a,msgbox b, msgbox c..

End Sub

[Hack]

What line of code caused the error?

[rpool]

I try fix:

But new problem little bug:
File>
Click A
Click B
Click C
Click D
Click A <<rpt?
Exit

Private Sub Form_Load()

Dim cx As Integer


For cx = LBound(mydata, 1) To UBound(mydata, 1)

Load MenuItem((cx) + 1) ''HERE, used +1, not "0"
     
  
  
      MenuItem(cx).Caption = mydata(cx, 0)
      MenuItem(cx).Visible = True

 
  
Next cx

End Sub



Private Sub MenuItem_Click(Index As Integer)


Dim mx As Integer


For mx = LBound(mydata, 1) To UBound(mydata, 1)

 If CStr(MenuItem(Index).Caption) = CStr(mydata(mx, 0)) Then
 MsgBox mydata(mx, 0) & ">" & mydata(mx, 1)
 End If
 
Next mx

 
End Sub



Private Function mydata()

Dim myArr() As String
ReDim myArr(0 To 3, 0 To 1)

myArr(0, 0) = "click a"
myArr(0, 1) = "msgbox a"
myArr(1, 0) = "click b"
myArr(1, 1) = "msgbox b"
myArr(2, 0) = "click c"
myArr(2, 1) = "msgbox c"
myArr(3, 0) = "click d"
myArr(3, 1) = "msgbox d"

mydata = myArr

Erase myArr

End Function

[Hack]

You need to tell us what happens.

[rpool]

Sorry, I try sound:
Run Ctrl+F5,
that menu named "file"
click file
I can see menu items
Click A
Click B
Click C
Click D
Click A <<rpt?
Exit

(Q1) what only rpt "Click A"

(Q2) I Not undetstand why need Load MenuItem((cx) + 1) ''HERE, used +1, not "0"
Is my bug?

(Q3) Is look fine?

thanks!

[akhileshbc]

In your code (post #6), remove this line:

Load MenuItem(crt)

Then try it....

If that doesn't solved your problem, consider uploading your project....

Edit:
I thought you have already created the Menus and you want to simply include the captions... That's why I posted the above solution...

[rpool]

please help me to check!

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6285
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8700
   LinkTopic       =   "Form1"
   ScaleHeight     =   6285
   ScaleWidth      =   8700
   StartUpPosition =   3  'def
   Begin VB.Menu MenuF 
      Caption         =   "File"
      Begin VB.Menu MenuItem 
         Caption         =   "Dummy"
         Index           =   0
         Visible         =   0   'False
      End
      Begin VB.Menu MenuExit 
         Caption         =   "Exit"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()

Dim cx As Integer

For cx = LBound(mydata, 1) To UBound(mydata, 1)
     Load MenuItem((cx) + 1)
     MenuItem(cx).Caption = mydata(cx, 0)
     MenuItem(cx).Visible = True
 
Next cx

End Sub



Private Sub MenuItem_Click(Index As Integer)

Dim mx As Integer

For mx = LBound(mydata, 1) To UBound(mydata, 1)
	If CStr(MenuItem(Index).Caption) = CStr(mydata(mx, 0)) Then
	MsgBox mydata(mx, 0) & ">" & mydata(mx, 1)
	End If
Next mx

End Sub



Private Function mydata()

Dim myArr() As String
ReDim myArr(0 To 3, 0 To 1)

myArr(0, 0) = "click a"
myArr(0, 1) = "msgbox a"
myArr(1, 0) = "click b"
myArr(1, 1) = "msgbox b"
myArr(2, 0) = "click c"
myArr(2, 1) = "msgbox c"
myArr(3, 0) = "click d"
myArr(3, 1) = "msgbox d"


mydata = myArr

Erase myArr

End Function

[akhileshbc]

Here's the complete code: ...

Option Explicit

Dim myArr() As String

Private Sub Form_Load()

  ReDim myArr(0 To 3, 0 To 1)

  myArr(0, 0) = "click a"
  myArr(0, 1) = "msgbox a"
  myArr(1, 0) = "click b"
  myArr(1, 1) = "msgbox b"
  myArr(2, 0) = "click c"
  myArr(2, 1) = "msgbox c"
  myArr(3, 0) = "click d"
  myArr(3, 1) = "msgbox d"

  Dim cx As Integer

  For cx = LBound(myArr, 1) To UBound(myArr, 1)
    If cx <> 0 Then Load MenuItem((cx))           '~~~>  See this
    MenuItem(cx).Caption = myArr(cx, 0)
    MenuItem(cx).Visible = True
  Next cx

End Sub

Private Sub MenuItem_Click(Index As Integer)

  Dim mx As Integer
  
  For mx = LBound(myArr, 1) To UBound(myArr, 1)
    If CStr(MenuItem(Index).Caption) = CStr(myArr(mx, 0)) Then
      MsgBox myArr(mx, 0) & ">" & myArr(mx, 1)
    End If
  Next mx

End Sub

[rpool]

too magic, thanks a lot.

here, changed something,
Form1, is main
Form2
Form3
Form4
Form5 when _click

but :
I try to "click a", can't start Form2.Show
I try to "click b", can't start Form3.Show
...

any idea please!

Option Explicit

Dim myArr() As String

Private Sub Form_Load()

  ReDim myArr(0 To 3, 0 To 1)

  myArr(0, 0) = "click a"
  myArr(0, 1) = "Form2"
  myArr(1, 0) = "click b"
  myArr(1, 1) = "Form3"
  myArr(2, 0) = "click c"
  myArr(2, 1) = "Form4"
  myArr(3, 0) = "click d"
  myArr(3, 1) = "msgbox d"

  Dim cx As Integer

  For cx = LBound(myArr, 1) To UBound(myArr, 1)
    If cx <> 0 Then Load MenuItem((cx))           '~~~>  See this
    MenuItem(cx).Caption = myArr(cx, 0)
    MenuItem(cx).Visible = True
  Next cx

End Sub

Private Sub MenuItem_Click(Index As Integer)

  Dim mx As Integer
  
  For mx = LBound(myArr, 1) To UBound(myArr, 1)
    If CStr(MenuItem(Index).Caption) = CStr(myArr(mx, 0)) Then
      MsgBox myArr(mx, 0) & ">" & myArr(mx, 1)
      
      myArr(mx, 1).Show
      
    End If
  Next mx

End Sub

[LaVolpe]

myArray(mx,1) is simply a string, not a form. You have to create an existing form with that string's name, then show it.

Private Sub MenuItem_Click(Index As Integer)
      Dim f As Form
      Set f = Forms.Load(myArr(Index, 1))
      f.Show
End Sub

[rpool]

thanks, last, how to draw MFT_SEPARATOR ? please!

MFT_SEPARATOR

myArr(0, 0) = "click a"
myArr(0, 1) = "msgbox a"
myArr(1, 0) = "MFT_SEPARATOR"
myArr(1, 1) = "MFT_SEPARATOR"
myArr(2, 0) = "click c"
myArr(2, 1) = "msgbox c"

menu items:

click a
----------------------''MFT_SEPARATOR
click c


EDIT: I found , just only = "-" , can work! but why "-" ...?

[Edgemeal]

EDIT: I found , just only = "-" , can work! but why "-" ...?

That is what they (MS) decided to use.

Open the menu editor and press "F1" key for help, (if you have MSDN/Help installed)

help says... If you want to create a separator bar in your menu, type a single hyphen (-) in the Caption box.