none
[VB6/WIN2000,XP]請問怎樣令ListBox自動往下捲動? RRS feed

  • 問題

  • 我最近因要事必須完成一個自動連線工具,

    但發覺List1不能自動往下捲動,總是很怪,

    因為那List1要顯示很多資訊的。

     

     

     以下為半完成代碼:

     

    Code Snippet

    Sub ADD(ByVal Text As String)
    Form2.List1.AddItem (Text)

    '我要的就寫在寫裡。

    End Sub

    2007年4月25日 上午 01:25

解答

  • HI,

     

    真歹勢,VB6應該這樣寫

     

    Form2.List1.AddItem Text

    Form2.List1.ListIndex=Form2.List1.NewIndex

     

    沒有VB6, 只能靠回憶朋

     

    tihs

    2007年4月28日 上午 07:31

所有回覆

  • int i;
       for(i = 0 ; i <30 ; i++)
       {
        this.listBox1.Items.Add(i);
        this.listBox1.SelectedIndex = this.listBox1.Items.Count - 1;
       }

     

    重點是很大的那一行>0<

    2007年4月25日 上午 02:48
  • HI,

     

    您的自動往下捲動是什麼意思? 如果是新的資料加入到ListBox控制項, ListBox不會捲動, 那只要將新加入到ListBox的內容變成被反白的內容, ListBox就會自動往下捲動了, VB6大概是這樣寫:

     

    Dim pos As Integer = List1.AddItem(Label3.Caption)

    List1.ListIndex=pos

     

    tihs

    2007年4月25日 上午 02:49
  •  

    int i;
       for(i = 0 ; i <30 ; i++)
       {
        this.listBox1.Items.Add(i);
        this.listBox1.SelectedIndex = this.listBox1.Items.Count - 1;
       }

     

    為甚麼全錯的?

    這是不是VB8的代碼?我用VB6的。

    2007年4月25日 上午 03:36
  • Dim pos As Integer = List1.AddItem(Label3.Caption)

    List1.ListIndex=pos

     

    這個也不行......但我明白你的意思,不過不知道該如何寫。

    2007年4月25日 上午 03:44
  • Me.listBox1.SelectedIndex = Me.listBox1.Items.Count - 1

     

     

    List1根本沒有SelectedIndex及Items屬性,

    請問為甚麼會這樣的?

    2007年4月25日 上午 04:35
  • HI,

     

    我的環境中已經沒有VB6, 所以無法試驗, 您所謂的不行, 是看到什麼錯誤嗎? 還是沒有辦法達到您要求的效果?

     

    tihs

    2007年4月27日 上午 02:09
  • 是看到錯誤,怎樣改也不行。

     

    這是程式碼

    Sub ADD(ByVal Text As String)

    Dim pos As Integer = Form2.List1.AddItem (Text) ' 語法錯誤
    Form2.List1.ListIndex=pos

    End Sub

     


    Sub ADD(ByVal Text As String)

    Dim pos As Integer
    pos = Form2.List1.AddItem(Text)' 必須是函數或變數
    Form2.List1.ListIndex = pos

    End Sub

    2007年4月28日 上午 12:50
  • HI,

     

    真歹勢,VB6應該這樣寫

     

    Form2.List1.AddItem Text

    Form2.List1.ListIndex=Form2.List1.NewIndex

     

    沒有VB6, 只能靠回憶朋

     

    tihs

    2007年4月28日 上午 07:31
  • 現在成功了,真是非常感謝!
    2007年4月29日 上午 12:09