HTML点击按钮弹出颜色选择器,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版) (龚沛曾等编)课后实验源码

来源：济亨网