VB6でフォーム間でユーザ定義型のデータを受け渡しするには (ID:122143)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 俺もByte配列が好みだけど、無理やりヤルなら。。。こんなかな・・・ 'Form1 Private Type st_aa bb As String cc As Integer End Type Private test As st_aa Private Sub Command1_Click() LSet test = Form1.aaa MsgBox test.bb MsgBox test.cc End Sub 'Form2 Private Type st_aa bb As String cc As Integer End Type Private test As st_aa Private Sub Command1_Click() With test .bb = "aiueo" .cc = 111 End With Form2.Show End Sub Friend Property Get aaa() As st_aa LSet aaa = test End Property