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

把所有的字体名称放到 ComboBox -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
把所有的字体名称放到 ComboBox -VB资料

For I = 0 To Screen.FontCount - 1
cboFont.AddItem Screen.Fonts(I)
Next I

Combo的自动查询技术
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const CB_FINDSTRING = &H14C

Private Sub Combo1_Change()
Dim iStart As Integer
Dim sString As String
Static iLeftOff As Integer

iStart = 1
iStart = Combo1.SelStart

If iLeftOff <> 0 Then
Combo1.SelStart = iLeftOff
iStart = iLeftOff
End If

sString = CStr(Left(Combo1.Text, iStart))
Combo1.ListIndex = SendMessage(Combo1.hwnd, _
B_FINDSTRING, -1, ByVal CStr(Left( _
ombo1.Text, iStart)))

If Combo1.ListIndex = -1 Then
iLeftOff = Len(sString)
combo1.Text = sString
End If

Combo1.SelStart = iStart
iLeftOff = 0
End Sub

静态变量 iLeftOff 指定了字符长度。
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘