在 ComboBox 单击事件发生之前显示 MsgBox 以加载表单

Question

我是 VB6 的新手。我有一个名为 "combo" 的组合框控件。当点击事件发生时，我需要显示所选组合项的值。但是显示 MsgBox 以加载表单

Private Sub combo_Click()

   label_1.Caption = combo.Text
   MsgBox combo.Text


End Sub

Private Sub combo_KeyPress(KeyAscii As Integer)
 KeyAscii = 0

End Sub

Private Sub Command1_Click()
    Dim nombre1 As String
    Dim apellido1 As String
    nombre1 = nombre.Text
    apellido1 = apellido.Text
    resultado.Text = nombre1 + " " + apellido1
End Sub


Private Sub Form_Load()
  combo.AddItem ("fernando")
  combo.AddItem ("juan")
  combo.AddItem ("pepep")
  combo.AddItem ("jose")
  combo.AddItem ("luis")
  combo.ListIndex = 0


End Sub

Answer 1

即使没有点击，也会发生点击事件。当您输入 combo.ListIndex = 0 时，它会出现在表单加载中。取消此行，表单加载时不会出现任何 msgbox。但是如果你想在表单加载时分配一个默认值，那么你可以使用标志。

Private Ignore As Boolean
Private Sub combo_Click()
   Label_1.Caption = Combo.Text
   If Ignore Then
        Ignore = False
   Else
        MsgBox Combo.Text
   End If
End Sub
Private Sub Command1_Click()
    Dim nombre1 As String
    Dim apellido1 As String
    nombre1 = nombre.Text
    apellido1 = apellido.Text
    resultado.Text = nombre1 + " " + apellido1
End Sub
Private Sub Form_Load()
  Combo.AddItem ("fernando")
  Combo.AddItem ("juan")
  Combo.AddItem ("pepep")
  Combo.AddItem ("jose")
  Combo.AddItem ("luis")
  Ignore = True
  Combo.ListIndex = 0
End Sub

在 ComboBox 单击事件发生之前显示 MsgBox 以加载表单

MsgBox is showed to load form before the ComboBox click event ocurrs

vb6

combobox