如果你建立了一个菜单叫mnuFile,则在他的Click()事件中编程即可。比如:Private Sub mnuFile_Click()
MsgBox "打开文件"
End Sub
MsgBox "打开文件"
End Sub
解决方案 »
- VB处理字串问题50分
- MSFlexGrid控件问题
- 在vb6中如何使用程序打开浏览器访问某一个asp页面
- 求助:Winsock编程,一关闭程序就死
- 为什么SOCKET函数总是返回-1
- 关于Spread控件
- 关于键盘? 求助
- FSO里的forwirting是什么意思?
- "=SUM(R[-5]C:R[-1]C)"和Application.WorksheetFunction.Sum的区别----急
- winsock.senddata temp 后的语句是立即执行还是发送完了才执行?
- 请问SSTab我在程序运行的时候,点击tab0和tab1等,里面的内容不会跟着改变,为什么?谢!
- 请教各位大虾:如何才能把控件放置到SSTab中动态添加的Tab上去?
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 165
ClientTop = 735
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.Menu mun_File
Caption = "&File"
Begin VB.Menu num_Open
Caption = "&Open"
End
Begin VB.Menu num_Save
Caption = "&Save"
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 num_Open_Click()
Print "Open"
End SubPrivate Sub num_Save_Click()
Print "Save"
End Sub
Private Sub menu_Click()
Form2.Show 1
End Sub
Dim x
x = Shell("C:\app.EXE", 1) 绝对没问题