可视化程序设计（VB）之二进制文件操作实例

可视化程序设计（VB）之二进制文件操作实例 【例】 设计一个窗体说明二进制文件基本操作的实现方法。 在本章工程中添加一个窗体Form1，在其中放置一个文本框Text1和4个命令按钮(从左 Command2、Command3和Command4)，如图所示。 到右分别为Command1、 在该窗体上设计如下事件过程: Dim mystring As String Private Sub Command1_Click() mystring = String$(10, " ") Get #1, 1, mystring Text1.Text = mystring End Sub Private Sub Command2_Click() mystring = String$(26, " ") Get #1, 11, mystring Text1.Text = mystring End Sub Private Sub Command3_Click() mystring = String$(26, " ") Get #1, 37, mystring Text1.Text = mystring End Sub Private Sub Command4_Click() Close #1 End End Sub Private Sub Form_Load() Open "try.dat" For Binary As #1 mystring = "1234567890" Put #1, 1, mystring mystring = "abcedfghijklmnopqrstuvwxyz" Put #1, , mystring mystring = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Put #1, , mystring End Sub 运行本工程，出现Form1窗体，单击“大写字母”命令按钮，则从二进制文件try.dat中 找出大写字母并显示，如图所示。