Frame1中添加一个文本框Text2 Frame2中添加一个文件列表框File1 Frame3中添加一个组合框Combo1
Frame4中添加一个驱动器列表框Drive1和一个目录列表框Dir1 设置Text1 的multiline属性为True,ScrollBars属性为2-Vertical 设置Combo1的list属性为*.Txt, *.Dat
参考代码:
Private Sub Combo1_Click()
aa = Combo1.List(Combo1.ListIndex) File1.Pattern = aa End Sub
Private Sub Command1_Click(Index As Integer) Select Case Index Case 0
If Text1.Text <> \
Open Text1.Text For Output As #1 Print #1, Text1.Text Close #1 End If Case 1
If Text1.Text <> \ Text2.Text = \
Open Text1.Text For Input As #1 b = \
Do Until EOF(1)
Line Input #1, nextline
b = b & nextline & Chr(13) & Chr(10) Loop Close #1
Text2.Text = b End If End Select End Sub
Private Sub Dir1_Change() File1.Path = Dir1.Path Text1.Text = Dir1.Path End Sub
Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub
Private Sub File1_Click()
16
Text1.Text = File1.Path & \End Sub
Private Sub Form_Load() File1.Pattern = \End Sub
3.4 思考题
顺序文件和随机文件的区别?
17
实验4 菜单、工具和图形图像
4.1实验目的
熟悉并使用菜单(下拉式菜单、弹出式菜单);熟悉并使用工具栏(用手工方式制作工具栏、Toolbar控件与ImageList控件);熟悉并使用公共对话框(CommonDialog);掌握图形的绘制;掌握图像控件和图片框控件的使用;
4.2相关知识 4.2.1菜单
菜单具有多种不同的样式,其中最常用的是标准下拉菜单,其构成包括:菜单栏、菜单标题、菜单列表、菜单项等成分,它们按照层次关系合理组织。
标准下拉菜单般被用于表现应用程序的操作框架。因此,一个能满足用户基本要求的下拉菜单,其设计至少应该能够把应用中的分层、分类关系表现出来。编排合理、条理清晰的菜单,不但会使程序以后更加好用,而且也将有利于程序的实现。
Visual Basic中的菜单也是对象。菜单中各个元素都可以被当作控件对象,并具有和命令按钮相似的属性。其主要属性有:
.Name属性:菜单对象标识符。 .Caption属性:菜单对象标题。
.Index属性:菜单控件数组中元素的索引标