VB程序题：设计一个如图G.5所示的应用程序。当单击“设置标签颜色”按钮后，弹出“颜色”对话框，为标签中的文字选择一种颜色；当单击“编辑文本文件”按钮后，弹出“打开文件”对话框，选择一个文本文件后调用

VB程序题：设计一个如图G.5所示的应用程序。当单击“设置标签颜色”按钮后，弹出“颜色”对话框，为标签中的文字选择一种颜色；当单击“编辑文本文件”按钮后，弹出“打开文件”对话框，选择一个文本文件后调用记事本程序编辑该文件。
提示：
1.尽管程序中用到了“颜色”和“打开文件‘的两个对话框，但是实际上只需一个通用对话框控件。
2.可以使用Shell函数运行记事本程序。

G.5图：

解题，如上图所示，在窗体上画2个按钮，一个标签控件，一个通用对话框控件。其它源代码如下：

Private Sub Command1_Click()
    CommonDialog1.ShowColor
    Label1.ForeColor = CommonDialog1.Color
End Sub

Private Sub Command2_Click()
    CommonDialog1.ShowOpen
    i = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus)
End Sub

 
Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/103.html