全国计算机等级考试-二级教程【Visual Basic 语言程序设计】全书例题程序代码-第七部分

1、6161、例题、例题 10.910.9 在图片框中画一个箭头，当在图片框中移动鼠标时，箭头会随着鼠标光标的在图片框中画一个箭头，当在图片框中移动鼠标时，箭头会随着鼠标光标的移动而改变方向。移动而改变方向。private sub vane_mousemove(button as integer, shift as integer, x as single, y as single)static lastx as integerstatic lasty as integerif x lastx then xaxis = 1if x lasty then yaxis = 1if y menucoun

2、ter or n 1 thenmsgbox 超出范围！exit subend iffor i = n to menucounter - 1appname(i).caption = appname(i + 1).captionnext iunload appname(menucounter)menucounter = menucounter - 1end subprivate sub appname_click(index as integer)x = shell(appname(menucounter).caption, 1)end sub运行结果：6767、例题、例题 11.411.4 建立

3、一个弹出式菜单，用来改变文本框中字体的属性。建立一个弹出式菜单，用来改变文本框中字体的属性。private sub font20_click()text1.fontsize = 18end subprivate sub form_load()text1.text = 可视化高级程序设计语言end subprivate sub form_mousedown(button as integer, shift as integer, x as single, y as single)if button = 2 thenpopupmenu popformatend ifend subprivate s

4、ub popbold_click()text1.fontbold = trueend subprivate sub popformat_click()text1.fontname = 宋体end subprivate sub popitalic_click()text1.fontitalic = trueend subprivate sub popunder_click()text1.fontunderline = trueend subprivate sub quit_click()endend sub运行结果：6868、例题、例题 12.112.1 编写程序，建立“打开”和“保存”对话框。

5、编写程序，建立“打开”和“保存”对话框。在窗体上画一个通用对话框控件，其name 属性为 commondialog1（默认值） ；再画两个命令按钮，其name 属性分别为 command1 和 command2；然后编写两个事件过程。建立“打开”对话框的事件过程如下：（1 1）建立“打开”对话框命令流：）建立“打开”对话框命令流：private sub command1_click()commondialog1.filename = commondialog1.flags = vbofnfilemustexistcommondialog1.filter = all files|(*.*)|*.

6、exe|(*.exe)|*.txt|(*.txt)commondialog1.filterindex = 3commondialog1.dialogtitle = open file(*.txt)commondialog1.action = 1if commondialog1.filename = thenmsgbox no file selected !, 37, checkingelse对所选择的文件进行处理。open commondialog1.filename for input as #1do while not eof(1)input #1, a$print a$loopend i

7、fend sub运行结果：运行结果：按“取消”按钮后按“取消”按钮后（2 2）建立“保存”对话框命令流：）建立“保存”对话框命令流：private sub command2_click()commondialog1.cancelerror = truecommondialog1.defaultext = txtcommondialog1.filename = lbw.txtcommondialog1.filter = text files(*.txt)|*.txt|all files(*.*)|*.*commondialog1.filterindex = 1commondialog1.dial

8、ogtitle = save file as (*.txt)commondialog1.flags = vbofnoverwriteprompt or vbofnpathmustexistcommondialog1.action = 2end sub运行结果：运行结果：按“取消”按钮后6969、例题、例题 12.212.2 建立颜色对话框。建立颜色对话框。private sub command1_click()commondialog1.flags = vbccrgbinit 使得 color 属性定义的颜色在首次显示对话框时随着显示出来。commondialog1.color = backc

9、olorcommondialog1.action = 3form1.backcolor = commondialog1.colorend sub运行结果：选择“黑色”后：7070、例题、例题 12.312.3 用字体对话框设置文本框中显示的字体。用字体对话框设置文本框中显示的字体。private sub command1_click()commondialog1.flags = 3commondialog1.showfonttext1.fontname = commondialog1.fontnametext1.fontsize = commondialog1.fontsizetext1.fontbold = commondialog1.fontboldtext1.fonti