|
▼kanabun さん:
>▼きしやん さん:
>横から失礼します。
>
>>下記のコードで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 さん
ありがとうございます。
Call CommandButton2_Clickの項は説明不足でしたが、
まだ作成途中ですが条件分岐を考えておりまして、select caseも
考えていますが、構文が複雑になるかと思い、subルーチン的な
ものが出来ればと考えております。
このような場合kanabun さんの方法で可能でしょうか
どうか宜しくお願いします。
|
|