VB6のリストボックスの上下矢印キーの処理

Question

Public Sub subkeydown(txt As TextBox, lst As ListBox, KeyCode As Integer) 

    On Error Resume Next 

    lstfstrec = True 

    If txt.Text = "" Then lst.Visible = False: Exit Sub 
    If KeyCode = 40 Then 
    lst.Selected(lst.ListIndex + 1) = True ': Exit Sub 
    'MsgBox lstMedicine.ListIndex 
    End If 
    If KeyCode = 38 Then lst.Selected(lst.ListIndex - 1) = True ': Exit Sub 

End Sub 

上矢印または下矢印を押したときに呼び出されるプロジェクトでは、subkeydown（）という名前の関数があります（上記参照）。キー。関数が呼び出されると、ListBoxのclickイベントが発生します。 ListBoxには薬の製品名が含まれており、データベースにバインドされているので、ユーザーがListBoxをクリックしたときにClickイベントを呼び出すが、自動的には呼び出さない。

Answer 1

あなたが好きな、フラグがtrueの場合、サブを終了しますList_Clickアップ/ダウンボタンをクリックしたときにtrueに「isUpDownClicked」フラグを設定し、あなたのサブですることができます

Option Explicit 
Dim lstfstrec As Boolean 
Dim isUpDownClicked As Boolean 

Public Sub subkeydown(txt As TextBox, lst As ListBox, KeyCode As Integer) 

    On Error Resume Next 

    lstfstrec = True 

    If txt.Text = "" Then lst.Visible = False: Exit Sub 
    If KeyCode = 40 Then 
     lst.Selected(lst.ListIndex + 1) = True ': Exit Sub 
     'MsgBox lstMedicine.ListIndex 
    End If 
    If KeyCode = 38 Then lst.Selected(lst.ListIndex - 1) = True 
End Sub 

Private Sub CommandUp_Click() 
    isUpDownClicked = True 
    subkeydown Text1, lstMedicine, 38 
End Sub 
Private Sub CommandDown_Click() 
    isUpDownClicked = True 
    subkeydown Text1, lstMedicine, 40 
End Sub 

Private Sub Form_Load() 
    lstMedicine.AddItem "1" 
    lstMedicine.AddItem "2" 
    lstMedicine.AddItem "3" 
End Sub 

Private Sub lstMedicine_Click() 
    If isUpDownClicked Then 
     isUpDownClicked = False 
     Label1.Caption = "no" 
     Exit Sub 
    End If 

    Label1.Caption = "lst_Click" 
End Sub