计算机二级VB弹出式菜单

弹出式菜单（快捷菜单）：9，[14]

1、在菜单编辑器中建立菜单结构，主菜单设置为不可见

2、在窗体中调用菜单：popupmenu 主菜单的名称

单击右键时调用：对象名称_MouseDown(……)

if button=2 then

popupmenu 主菜单的名称

end if

通用对话框：23，43，[12，14，22]

添加通用对话框控件：P313

在工具箱的空白处单击右键→部件→勾选“Microsoft Common Dialog control 6.0”

CommonDialog1.DialogTitle=”Open”‘标题

CommonDialog1.Filter = "所有文件|*.*|文本文件|*.txt" ‘设置文件过滤器CommonDialog1.FilterIndex = 2 ‘设置默认文件类型

CommonDialog1.InitDir = App.Path ‘设置默认目录

CommonDialog1.ShowOpen ‘设置对话框的类型

Open CommonDialog1.FileName For Input As #1 ‘打开在对话框中选择的文件

Input #1, s

Text1.Text = s

Close #1

例题：将打开对话框中所选择的文件里的内容读到文本框中

CommonDialog1.DialogTitle = "Open"

CommonDialog1.InitDir = "D:\"

CommonDialog1.ShowOpen

Open CommonDialog1.FileName For Input As #1

Text1.Text = ""

Do While Not EOF(1)

Line Input #1, a

Text1.Text = Text1.Text + a + Chr(13) + Chr(10)

Loop

Close #1