UC知道请教VB高手一个二进制的问题
来源：百度知道 编辑：UC知道 时间：2024/07/02 05:17:39
Private Sub Command1_Click()
Open "d:\1.dat" For Output As #1
Print #1, "mytry"
Close #1
End Sub
Private Sub Command2_Click()
text1.Text = mytry
End Sub
按command1，把mytry以二进制的形式写到 1.dat中； 按command2，从1.dat中读出来，转成字符，给text1.text。
请问怎么实现上述功能呢，请高手帮写一下。
Open "d:\1.dat" For Output As #1
Print #1, "mytry"
Close #1
End Sub
Private Sub Command2_Click()
text1.Text = mytry
End Sub
按command1，把mytry以二进制的形式写到 1.dat中； 按command2，从1.dat中读出来，转成字符，给text1.text。
请问怎么实现上述功能呢，请高手帮写一下。
楼主写的代码好紊乱，按照1楼的就行了，不过你说“把mytry以二进制的形式写到 1.dat中”，那个mytry是什么啊？如果知道是什么就把一楼的
Private Sub Command1_Click()
Open "d:\1.dat" For Binary As #1
Put #1, , Text1.Text
Close #1
End Sub
改为
Private Sub Command1_Click()
Open "d:\1.dat" For Binary As #1
Put #1, , mytry
Close #1
End Sub
Private Sub Command2_Click()
Dim mytry As String
Open "d:\1.dat" For Binary As #1
do while not eof(1)
lineInput #1,,text1
loop
Close #1
End Sub
那个，还是要说一句，楼主的代码和意思最好说清楚点，别两个不一样。
Option Explicit
Private Sub Command1_Click()
Open "d:\1.dat" For Binary As #1
Put #1, , Text1.Text
Close #1
End Sub
Private Sub Command2_Click()
Dim mytry As String
Open "d:\1.dat" For Binary As #1
Input #1, mytry
Text2 = mytry
Close #1
End Sub