处理 Dropdown List型 Combo的录入问题

领测软件测试网

　　 
　　处理 Dropdown List型 Combo的录入问题
　

当 Combo 的 Style 属性设置为 注释：2 - Dropdown List注释： 时，是只读的。这就意味着象 MyCombo.Text = "列表内容外" 这样的语句将可能导致一个错误。如果出现这样的情况时，能自动把 ListIndex 属性设置为 -1，而不是出错就好了。下面的代码完成这样的工作:

Function SetComboText(MyCombo as ComboBox, MyItem as String) as Integer
Dim I as Integer

For I = 0 to MyCombo.ListCount - 1
If MyCombo.List(I) = MyItem Then
SetComboText = I
Exit Function
End If
Next I

SetComboText = - 1
End Function

使用该函数:
AnyCombo.ListIndex = SetComboText(AnyCombo, "Any String")
如果 "Any String" 在列表中， ListIndex 将到正确的位置， 如果不在，自动把 ListIndex 属性设置为 -1。在 SetComboText = - 1 这行里，你可以增加你任何自己的处理代码。

自定义Text的pop-up菜单
在 Windows 95, 右击 Textbox 将出现基本的编辑菜单。如果你想改变该菜单，可将以下的代码放到 Textbox 的 MouseDown 事件中。

If Button = vbRightButton Then
Text1.Enabled = False
Text1.Enabled = True
Text1.SetFocus
PopUpMenu Menu1
End If

文章来源于领测软件测试网 https://www.ltesting.net/