vb 6.0 怎样自己写菜单

VB中怎样写新建菜单的代码~

单击进去 在过程里写

Private Sub 菜单名_Click()
Msgbox "你点了菜单" & 菜单名.Caption
End Sub

首先添加部件,建议用sstab，

如果你的意思是为了在编程的时候更方便（省去繁复的添加菜单工作），可以新建一个空的form，在里面把菜单内容写好，然后复制很多同样的这个窗体添加到Project里面去

或者是用记事本把*.frm文件打开，找到
Begin VB.Form <窗体名称>
......其他窗体属性......

-----------------------------------------------
Begin VB.Menu <首级菜单栏1名称>
Caption = "<菜单栏1标题>"
Begin VB.Menu <第二级菜单栏1名称>
Caption = "<标题1>"
End
Begin VB.Menu <第二级菜单栏2名称>
Caption = "<标题2>"
End
End
Begin VB.Menu <首级菜单栏2名称>
Caption = "<标题2>"
End
...............
-----------------------------------------------
End

将这一部分描述菜单的内容复制到每个窗体的这个位置。

或者是在窗体中建立一个菜单，只有一级一个菜单，“index（索引）”填写“0”，名称是Menu
在form_load事件中写上：
Dim I%
Dim S
S = Array("", "menu1", "menu2", "menu3", "menu4", "menu5")
For I = 1 To 5
Load Menu(I)
Menu(I).Caption = S(I)
Next I

这个方法可以自己去体会体会

'可以使用VB的API函数

Option Explicit

Private Const MF_POPUP = &H10&
Private Const MF_STRING = &H0&

Private Const MF_SEPARATOR = &H800&
Private Const MF_BYPOSITION = &H400&

Private Declare Function CreateMenu Lib "user32" () As Long
Private Declare Function CreatePopupMenu Lib "user32" () As Long
Private Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long

Private Declare Function SetMenu Lib "user32" (ByVal hwnd As Long, ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Dim hMenu As Long
Dim hFileSubMenu As Long
Dim hHelpSubMenu As Long

Private Sub Form_Load()
Me.Show
hMenu = CreateMenu()
hFileSubMenu = CreatePopupMenu()
hHelpSubMenu = CreatePopupMenu()

InsertMenu hMenu, 0, MF_BYPOSITION, 0, "&File"
InsertMenu hMenu, 1, MF_BYPOSITION, 1, "&Edit"
InsertMenu hMenu, 2, MF_BYPOSITION, 2, "&View"
InsertMenu hMenu, 3, MF_BYPOSITION, 3, "&Help"

ModifyMenu hMenu, 0, MF_POPUP, hFileSubMenu, "&File"
hFileSubMenu = GetSubMenu(hMenu, 0)
InsertMenu hFileSubMenu, 0, MF_BYPOSITION, 1001, "&New"
InsertMenu hFileSubMenu, 1, MF_BYPOSITION Or MF_SEPARATOR, 1002, ""
InsertMenu hFileSubMenu, 2, MF_BYPOSITION, 1003, "&Exit"

ModifyMenu hMenu, 3, MF_POPUP, hHelpSubMenu, "&Help"
hHelpSubMenu = GetSubMenu(hMenu, 3)
InsertMenu hHelpSubMenu, 0, MF_BYPOSITION, 4001, "&About..."
InsertMenu hHelpSubMenu, 1, MF_BYPOSITION Or MF_SEPARATOR, 4002, ""
InsertMenu hHelpSubMenu, 2, MF_BYPOSITION, 4003, "&Help"

SetMenu Me.hwnd, hMenu
DrawMenuBar Me.hwnd
End Sub

---

清徐县18192073509： VB菜单编辑代码怎么写? 如下图.写出文件下的4个子菜单的代码.可用加分!! - ？
佐洪复方： VB 6.0:使用菜单编辑器做,VB项目通常需要使用菜单编辑器创建自己的菜单,所以其特定的使用非常熟练.以下信息从互联网上下载自己使用的...

清徐县18192073509： 怎么用VB制作下拉菜单? - ？
佐洪复方： 1、启动VB6.0,创建一个标准工程. 2、在窗体上右键选择“菜单编辑器”,或在“工具”菜单上单击选择也可以. 3、在弹出的“菜单编辑器”窗口中,输入标题和名称,在标题括号内用“&”表示可以调出此功能,输入完毕,保存之后,就能在下面的显示区看见刚才编辑的菜单名称. 4、在显示区中单击已经建好的菜单下面,再创建一个菜单. 5、创建的菜单是否是原来新建的一级子菜单,或是二级子菜单,可以通过编辑区上的方向键来实现,单击右方向键按钮后,会看见它的一级子菜单前面有四个圆点,若是二级,圆点会增加到八个. 6、创建完毕后,确定即可,现在在窗体上就可以看见刚才我们创建的下拉菜单了.

清徐县18192073509： 怎么在VB6.0中设置程序的菜单 - ？
佐洪复方： VB6.0的“工具”菜单栏下有个“菜单编辑器”,或者按ctrl+E可以调出,专门制作VB程序的基本菜单

清徐县18192073509： VB6.0怎么创建子菜单 - ？
佐洪复方： 点击如图按钮.

清徐县18192073509： vb中的菜单编辑是怎么回事 - ？
佐洪复方： 在出现VB6.0窗体的情况下,在菜单中选“工具”,再在其下拉菜单下选“菜单编辑器”.然后按如下说明操作: 一. “菜单编辑器”对话框 .使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性. 二. 对话框选项.1. “标题” :使用...

清徐县18192073509： 怎样在VB中的下拉列表框中输入供选择的内容？
佐洪复方： 方法和详细的操作步骤如下:1、第一步,启动VB6.0并创建一个标准项目,见下图,转到下面的步骤.2、第二步,完成上述步骤后,右键单击表单,然后选择“菜单编辑器”选项,见下图,转到下面的步骤.3、第三步,完成上述步骤后,输...

清徐县18192073509： vb6.0中如何对菜单栏进行编辑..?？
佐洪复方：工具--菜单编辑器,操作如图

清徐县18192073509： visual studio2010(vb)如何像vb6.0那样设计一个窗体的菜单栏 比如新建、打开、保存、退出、编辑那样的 - ？
佐洪复方： 有个控件叫MenuStrip的,你添加上去就能设计菜单了.

清徐县18192073509： vb6.0的主菜单控件(MainMenu)在哪里?怎么用? - ？
佐洪复方： 不存在什么主菜单控件的,你在窗口界面按Ctrl+E即可创建和编辑菜单了

清徐县18192073509： 如何用VB6.0编写一个带历史记录的菜单,谢谢 - ？
佐洪复方： 将记录写在TXT,下次启动时候调用.