第九章 对话框和菜单
上一篇 /
下一篇 2011-01-02 15:37:58
/ 个人分类:vb6.0编程
<visual Basic 6.0 程序设计>张建 主编 p199
六、程序设计题
1、编制Command1的Click事件过程:调用“打开文件对话框”(通过空间Commondialog1)选择文件,将所选的文件名追加到列表框控件list1中。
将通用对话框图标添加到工具箱的方法如下:
鼠标右键单击工具箱,在弹出的菜单中选择“部件”(components),在部件对话框中选中“Microsoft Common Dialog Control6.0”,然后像使用标准控件一样把它添加到窗体上
Private Sub Command1_Click()
CommonDialog1.Action = 1
'Filename 返回用户添加的文件名
List1.AddItem CommonDialog1.FileName
End Sub
2、编制Command1的Click事件过程:调用“另存为对话框”(通过控件CommonDialog1)选择文件,将所选的文件名追加到列表框控件List1中。
说明:将以上两个命令过程作比较,“打开文件对话框”与“另存为对话框”运行时的界面小有区别,单对话结果没有不同,只是改变了控件的FileName属性。所谓“打开”或“另存为”,要在对话结束后增加一些不同语句来实现,这些语句将在第10章介绍。
Private Sub Command1_Click()
CommonDialog1.Action = 2
'Filename 返回用户添加的文件名
List1.AddItem CommonDialog1.FileName
End Sub
3、设计一个如图9.22所示的菜单,各菜单项的属性设置如表9.2所示。要求所有图形用一个形状控制(shape1)来实现,填充颜色用“颜色”对话框(CommonDialog1)来实现
Private Sub cirle_Click(Index As Integer)
Shape1.Shape = 3
End Sub
Private Sub exit_Click(Index As Integer)
End
End Sub
Private Sub fillcolor_Click(Index As Integer)
CommonDialog1.ShowColor
Shape1.fillcolor = CommonDialog1.Color
End Sub
Private Sub oval_Click(Index As Integer)
Shape1.Shape = 2
End Sub
Private Sub rec_Click(Index As Integer)
Shape1.Shape = 0
End Sub
Private Sub Rrec_Click()
Shape1.Shape = 4
End Sub
Private Sub RSqr_Click(Index As Integer)
Shape1.Shape = 5
End Sub
Private Sub shp_Click(Index As Integer)
Shape1.fillstyle. = 2
End Sub
Private Sub shpj_Click(Index As Integer)
Shape1.fillstyle. = 6
End Sub
Private Sub shzh_Click(Index As Integer)
Shape1.fillstyle. = 3
End Sub
Private Sub sqr_Click(Index As Integer)
Shape1.Shape = 1
End Sub
Private Sub XieX_Click(Index As Integer)
Shape1.fillstyle. = 4
End Sub
Private Sub xj_Click(Index As Integer)
Shape1.fillstyle. = 7
End Sub
注:全部的代码和界面设计见 附件
收藏
举报
TAG: