tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: コンボボックスについて
投稿日: 2008/02/12(Tue) 18:10
投稿者だめおやじ
> もう少し詳しく教えてください。
< 早速みていただきありがとうございます。
 コードはおおむね以下のとおりです。

Private Sub ken() ’はじまり
'変数にデータ取得
  call kennab'1回目
end sub

Private Sub syo()
'変数にデータ取得
call kennab'2回目
end sub

Private Sub kennab() '_Click()
'list にtext 貼付
Combo17.Visible = True'コンボボックスの表示
  Combo17.AddItem kenna(3)




End Sub

Private Sub combo17_Click()
'1回目はここでコンボボックスから選択できる。
'2回目ははここでコンボボックスから選択できない。
 fkenna = Combo17

If hata = "県" Then
    skenna = fkenna
    fkenna = ""
    MsgBox skenna & "県です。"
    Call syo ’1回目syoプログラム実行
Else
End If

If hata = "署" Then
    syonna = fkenna
    fkenna = ""
    MsgBox syona & "署です。"'2回目はコンボボックスで選択できずにここまで進みます。
    Call zimunaa
Else
End If
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。