投稿日 | : 2005/01/14(Fri) 04:05 |
投稿者 | : Say |
Eメール | : |
URL | : |
タイトル | : Re: アイテムデータを取り出す方法 |
こういうことをききたいのでしょうか?
Option Explicit
Private Sub Combo1_Click()
Text1.Text = CStr(Combo1.ItemData(Combo1.ListIndex))
Text2.Text = CStr(CLng(Text2.Text) + CLng(Text1.Text))
End Sub
Private Sub Form_Load()
Dim dat
Dim i As Long
dat = Array(Array("国語", "算数", "理科", "社会"), _
Array(30, 20, 40, 50))
For i = 0 To UBound(dat(0))
Combo1.AddItem dat(0)(i)
Combo1.ItemData(Combo1.NewIndex) = dat(1)(i)
Next
Text2.Text = "0"
End Sub