お世話になります。
type hogehage
hoge as string
hage as string
end type
dim data as hogehage
こんな感じで宣言したもののデータをまとめて消去するにはどうしたらいいのでしょうか?
ひとつひとつ
data.hoge = vbnullstring
こんな感じで指定してあげないといけないのでしょうか?
例えば、こんな感じ?
Option Explicit
Private Type typeData
I As Integer
D As Date
s As String
End Type
Private Declare Sub ZeroMemory Lib "kernel32.dll" Alias "RtlZeroMemory" (Destination As Any, ByVal length As Long)
Private Sub Form_Load()
Dim data As typeData
data.I = 999
data.D = #11/4/2003#
data.s = "askdfjlksjdf"
Debug.Print data.I, data.D, data.s
ZeroMemory data, LenB(data)
Debug.Print data.I, data.D, data.s
End Sub
お答えありがとうございます。
>Private Declare Sub ZeroMemory Lib "kernel32.dll" Alias "RtlZeroMemory" (Destination As Any, ByVal length As Long)
この行が何をしているのか全く分からないのですが、とりあえずこれを書いておいて
ZeroMemory data, LenB(data)
こうしてしまえばばっちり消えました!
ツイート | ![]() |