Question

VB6.0中二进制访问代码怎样写？保存时用结构体代码怎样写？

Private Type Fabric
Name As String '名称
No As String '编号
Tj As Double '经纱号数
Tw As Double '纬纱号数
L As Double '织物幅宽
Pj As Double '经纱密度
Pw As Double '纬纱密度
Aj As Double '经纱缩率
Aw As Double '纬纱缩率
Ej As Double '经向紧度
Ew As Double '纬向紧度
Ez As Double '总紧度
Gj As Double '经纱重量
Gw As Double '纬纱重量
Gz As Double '总重量

End Type
Private Fab As Fabric
'保存
Private Sub Command2_Click()
CommonDialog1.InitDir = "c:\" '路径
CommonDialog1.FileName = "fab.txt" '名称
CommonDialog1.Filter = "fab files(*.txt)/*.txt/all files(*.*)/*.*" '拓展名
CommonDialog1.ShowSave '保存
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text '不会用结构体表示
Print #1, Text2.Text
Print #1, Text3.Text
Print #1, Text4.Text
Print #1, Text5.Text
Print #1, Text6.Text
Print #1, Text7.Text
Print #1, Text8.Text
Print #1, Text9.Text

Close #1

End Sub
'打开
Private Sub Command3_Click()

Open "c:\fab.txt" For Binary As #1
'这里该怎样写？
Close #1

End Sub

Answer 1

保存：

Open "c:\fab.txt" For Binary As #1
Put #1, , Fab
Close #1

读取：

Open "c:\fab.txt" For Binary As #1
Get #1, , Fab
Close #1

追问

没有get吗？并且我在程序里输入数字，计算不出结果来

追答

计算的时候要先把文本框里输入的数据赋值给结构体Fab里面的各个元素，再通过Fab计算出结果。

追问

难道要在代码里写入自己要赋的值吗？不应该是这样的啊

追答

正如我在你另一个问题里所回答你的，Form_Load里面的代码要移动到Command1_Click里面去执行，因为Form_Load只在窗体载入内存的时候执行一次的，当文本框里的数值发生改变时，Fab里面的数值是不会自动变化的，这样的话就要在点击Command1进行计算时，再把文本框里的值赋值给Fab里面的各个元素，这样的话再进行计算就是新的计算结果了。明白没有？
由于你在两个问题中提供的都不是完整的代码，所以我也没法看出你的程序的意图，所以无法给你提供一个完整的答案，前一个问题的回答很可能与后一个问题发生冲突。