vb程序的结构大致是怎么样的?

Question

我是初学vb,我想了解vb的大致构架,模块和form之间的关系?比如说如何做一个程序,来查找一个文件等等,谢谢

Answer 1

'下面是查找一个文本文件中的指定字符的模块代码：
Option Explicit
'记录类型标记
Public RecordType As BytePublic Function FileContains(FileName As String, SearchText As String) As Long
   Dim FileNumber As Integer
   Dim FileLength As Long
   Dim Chunk As String
   Dim ChunkStart As Long
   Dim FoundAt As Long
   Const MaxChunk = 20000
   
   On Error GoTo FileContainsError
   
   FileNumber = FreeFile
   
   Open FileName For Binary Access Read Shared As FileNumber
   
   FileLength = LOF(FileNumber)
   ChunkStart = 0
   
   Do Until ChunkStart = FileLength
   
      If FileLength - ChunkStart > MaxChunk Then
         Chunk = Input$(MaxChunk, FileNumber)
         ChunkStart = ChunkStart + MaxChunk - Len(SearchText)
      Else
         Chunk = Input$(FileLength - ChunkStart, FileNumber)
         ChunkStart = FileLength
      End If
      
      FoundAt = InStr(Chunk, SearchText)
   
      If FoundAt > 0 Then
         FileContains = FoundAt
         Exit Do
      End If
      
   Loop
   
   Close FileNumber
   
   Exit FunctionFileContainsError:   Select Case Err
      Case Else
         MsgBox Error$ & " on file " & FileName
   End Select
   
End Function'调用代码
Private Sub cmdSearch_Click()
   Dim searchtext As String
   dim Xfile as string
   
   SearchText = Trim$(InputBox("请输入要查询的文本!"))
   
   Xfile = App.Path & "\Diary\A.txt
   X = FileContains(Xfile, SearchText)
      
   If X > 0 Then
       msgbox "文件中有该文本!"
   end ifend sub