当前位置:首页 » VB程序题 » 正文

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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号