v（･∀-）b VBプログラマ質問スレ(6.0以前) Part26
■ このスレッドは過去ログ倉庫に格納されています
0459458
NGNG質問の意図を勘違いしてたみたい。458であげたURIは参考にならないね。
こんな感じでどうかな。
Private Type bytes
v(7) As Byte
End Type
Private Type dbl
v As Double
End Type
Private Sub Command1_Click()
Dim a As dbl
Dim b As bytes
Dim i As Long
a.v = 1
LSet b = a
For i = 7 To 0 Step -1
Debug.Print Hex$(b.v(i))
Next
End Sub
■ このスレッドは過去ログ倉庫に格納されています