第九章 对话框和菜单

上一篇 / 下一篇  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:

 

评分:0

我来说两句

Open Toolbar