VisualBasic编程与应用作业4答案

  由于这类文件的信息是按照顺序从头到尾按顺序排列，而且只提供第一条记录的存储位置，所以对其中的数据信息进行处理是相当困难的。
  随机文件由记录组成，能够随机存取其相同长度的数据记录，每一数据记录内可以设计各种栏位以容纳不同的数据。此种文件数据是以二进制的位的形式保存在磁盘上。随机文件比顺序文件占用内存多。
二进制文件的数据是以二进制格式保存的,能用来存储任何数据。这种文件的灵活性最大，但程序的工作量大。二进制访问能够提供对文件的完全控制，因为文件中的字节可以代表任何东西。
      二、程序填空题
  本题要求实现如下窗体中的功能，窗体中有一组文件系统控件，分别是驱动器列表框drive1，目录列表框dir1，和文件列表框file1，在它们下面有一个图片框pic1，右边是一个命令按钮comd1和两个文本框text1和text2，要求选择一个位图文件（JPG）即单击文件列表框（file1）中的某个文件时，将该位图文件显示在图片框中，当按命令按钮时，将该位图的实际尺寸（高/宽）以像素点为单位显示在文本框内。

  解答：
  Option Explicit
  Private Sub Form_Load()
     File1.Pattern = "*. jpg"
  End Sub
  Private Sub Dir1_Change()
     File1.Path = Dir1.Path
  End Sub
   Private Sub Drive1_change()
     Dir1.Path = Drive1.Drive
   End Sub
   Private Sub File1_click()
     Dim fn As String
        If Len(Dir1.Path) = 3 Then
            fn = Dir1.Path + File1.FileNane
        Else
            fn = Dir1.Path & "\" & File1.FileName
        End If
        Pic1.AutoSize = True
        Pic1.ScaleMode = vbPixels
        Pic1.Picture = LoadPicture(fn)
   End Sub
   Private Sub Comd1_Click()
     Text1.Text = Pic1.ScaleWidth
     Text2.Text = Pic1.ScaleHeight
     End Sub