| |
▼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 さんの方法で可能でしょうか
どうか宜しくお願いします。
|
|
きしやん
- 10/5/5(水) 14:34 -
