组合框必须在VB6

Question

选择如何使组合框必须在VB6 被选中，如果没有选中组合框则显示消息“您没有选择菜单”

Answer 1

标记您的组合框是怎样炼成的，我们将其命名为combo1，属性集CausesValidation至true。

转到代码（F7），并添加一个子程序验证：

Private Sub combo1_Validate(Cancel As Boolean) 
    If combo1.ListIndex < 0 Then 
    ' Mark somewhere that nothing is selected, like setting a boolean 
    End If 
End Sub 

在你OK按钮即可查看您的标记已设置。 OFC你可以检查LISTINDEX在OK按钮，但这个看起来比较清爽;）MsgBox是提示消息框;）

Answer 2

你可以简单地做

If Combo1.Text = "" Then 
MsgBox "You have not selected a menu!" 
End If 

这也取决于什么类型的组合框的，如果它的一个简单的组合框，则代码将代替

If Combo1.Text = "" Then 

这将是您填写什么都出来了文本字段设置为

所以在画面我上传的文字COMBO1所以我会用代码

If Combo1.Text = "Combo1" Then 

因为如果它是当你装载了它会说“COMBO1”，你将不得不修改的形式，它有相同的文字它适用于你案件中的任何文字。