VB 版 (精华区)

发信人: zxfsnow (最近睡眠太少), 信区: VB
标  题: Re： 请教VB控件 (转载)
发信站: 哈工大紫丁香 (2000年06月07日19:28:26 星期三), 转信

发信人: vicluck (阿海), 信区: VisualBasic
标  题: Re: 请教VB控件 (转载)
发信站: BBS 水木清华站 (Sun Oct 10 10:22:26 1999)

浏览地址栏是一个ComboBox,实现这项功能很简单的.
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim Exist As Boolean
    Dim i As Integer

    If KeyCode = vbKeyReturn Then
        Exist = False
        For i = 0 To Combo1.ListCount - 1
            If Combo1.Text = Combo1.List(i) Then
                Exist = True
                Exit For
            End If
        Next i
        If Not Exist Then
            Combo1.AddItem Combo1.Text
        End If
    End If
End Sub

【 在 allanzp (旋转木马) 的大作中提到: 】
: 【 以下文字转载自 Programming 讨论区 】
: 【 原文由 allanzp 所发表 】
: 有没有带有历史记忆功能的文本框控件?就想浏览其中的地址栏似的

  
--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]