實驗8-3

VB程序題：設計一個如圖2.8.4所示的應用程序，要求如下：
（1.）單擊“打開文件”按鈕彈出一個通用對話框，選擇文件后顯示在文本框中
（2）.單擊“保存文件”按鈕后彈出通用對話框，確定文件名后保存。
（3）?單擊“查找下一個”按鈕后在文本文件中查找單詞“VB”，找到后以高亮度顯示。

解題，畫4個按鈕，1個文本框控件，再加上一個通用對話框控件，代碼如下：

Private Sub Command1_Click()
??? CommonDialog1.Action = 1
??? Text1.Text = ""
??? Open CommonDialog1.FileName For Input As #1
??? Do While Not EOF(1)
??????? Line Input #1, inputdata
??????? Text1.Text = Text1.Text & inputdata & vbCrLf
??? Loop
??? Close #1
End Sub

Private Sub Command2_Click()
??? CommonDialog1.FileName = "Default.Txt"
??? CommonDialog1.DefaultExt = "Txt"
??? CommonDialog1.Action = 2
??? Open CommonDialog1.FileName For Output As #1
??? Print #1, Text1.Text
??? Close #1
End Sub

Private Sub Command3_Click()
??? Static j%
??? Text1.SetFocus
??? j = InStr(j + 1, Text1, "VB")

??? If j > 0 Then
??????? Text1.SelStart = j - 1
??????? Text1.SelLength = 2
??????? j = j + 1
??? Else:
??????? MsgBox "找不到!"
??? End If
End Sub

Private Sub Command4_Click()
??? End
End Sub

總結

以上是生活随笔為你收集整理的VB程序设计教程(第四版)龚沛曾-实验8-3的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。