说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

处理 Dropdown List型 Combo的录入问题-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
处理 Dropdown List型 Combo的录入问题-VB资料

当 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
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘