投稿日 | : 2005/01/14(Fri) 09:06 |
投稿者 | : ひまわり |
Eメール | : |
URL | : |
タイトル | : Re^2: アイテムデータを取り出す方法 |
> こういうことをききたいのでしょうか?
>
> 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("国語", "算数", "理科", "社会&q
uot;), _
> 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
ありがとうございます。この方法で作動しました。