| |
▼きしやん さん：
横から失礼します。
>下記のコードでListBox1にNullがはいってしまいます。
それはListBox1のどのアイテムも「選択されていない」からでは？
>Private Sub CommandButton1_Click()
（途中 省略）
▼ここで CommandButton2をコードでクリックさせています
> Call CommandButton2_Click
>
>End Sub
▼CommandButton2が押されてから、ListBoxのアイテムを選択する
いとまもなく、ListBox1のいま選択されているアイテムを変数に
代入しようとしています。
>Private Sub CommandButton2_Click()
>
> mymsg = "No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい"
> mytitle = "投入時刻"
> mybtn = MsgBox(mymsg, vbOKOnly + vbInformation, mytitle)
>
> stjikoku = ListBox1 ･･･････････ ここにNullが入ってしまいます。
'------------------- (改良 案)
> Call CommandButton2_Click
の行を削除し、
代わりに、（CommandButton2の最初のコード部分 ）MsgBox 表示を
> mymsg = "No.1ｻｲﾛの投入時刻をﾘｽﾄﾎﾞｯｸｽより選択して下さい"
> mytitle = "投入時刻"
> mybtn = MsgBox(mymsg, vbOKOnly + vbInformation, mytitle)
>
そこに移動して、
ユーザーがListBox1からどれかの時刻を選択したあと、
Private Sub CommandButton2_Click()
if ListBox1.ListIndex < 0 Then
Msgbox "Listから 時刻を選択してください"
Exit Sub
end if
stjikoku = ListBox1.VALUE
のように直してみては どうですか？
|
|
kanabun
- 10/5/5(水) 11:14 -
