🚀 go-pugleaf

��֪����˵���Dz�������IE��ַ������Ķ��ܣ����������Ļ�������������Ĵ��룺


Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim I As Long
    Dim existed As Boolean
    If KeyCode = 13 Then
       If Left(Combo1.Text, 7) <> "http://" Then
       Combo1.Text = "http://" + Combo1.Text
       End If
       WebBrowser1.Navigate Combo1.Text
       For I = 0 To Combo1.ListCount - 1
         If Combo1.List(I) = Combo1.Text Then
           existed = True
           Exit For
         Else
           existed = False
         End If
       Next
      If Not existed Then
       Combo1.AddItem (Combo1.Text)
      End If
    End If
End Sub
�� �� kysyuan (������Ц��û��) �Ĵ������ᵽ: ��
: combobox�ؼ���������������ʱ�Զ�ƥ��comboBox��item��
: ����û���ҵ����MatchEntry���ԣ���λ��Ϻ֪������лл��


--


�� ��Դ:��BBS ˮľ�廪վ smth.org��[FROM: 166.111.169.210]