Option Explicit
Type GG1
i As Integer
G As String
k As Double
End Type
Type GG2
i As Integer
w(20) As String
End Type
Sub TTT()
Dim GG1 As GG1
Dim GG2 As GG2
Dim GG_1 As GG1
Dim GG_2 As GG2
GG1.i = 1
GG1.G = "S1"
GG2.i = 2
GG2.w(0) = "S1"
GG2.w(1) = "S2"
Open "D:\t1" For Random As #1
Put #1, , GG1
Put #1, , GG2
Close (1)
Open "D:\t1" For Binary As #1
Get #1, , GG_1
Get #1, , GG_2
Close (1)
End Sub
小弟嘗寫入GG1 GG2 兩種type 再去讀取 但是讀出來後 GG_1 有值 但是GG_2 卻沒有
請問get 不能這樣使用嗎?