|
▼きしやん さん:
横から失礼します。
>下記のコードで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
のように直してみては どうですか?
|
|