首頁>Club>
8
回覆列表
  • 1 # 使用者6143300838540

    AddItem

    向列表框新增新專案,其格式為:

    ListBox控制元件名.AddItem<專案>[,<索引值>]

    其中:

    <專案>為字串表示式,表示新增到列表框中的新專案。

    <索引值>為數值表示式,指定在列表框中插入新專案的位置。若為0,則插入到第一個專案位置;若預設且Sorted屬性為False,則插入到最後一個專案位置;

    若預設且Sorted屬性為True,則插入到合適的排序位置。

    RemoveItem

    ListBox控制元件名.RemoveItem<索引值>

    Clear

    清除列表框中所有專案,其格式為:

    ListBox控制元件名.Clear

    例如新增程式碼到List1列表框中,執行後的結果如下:Private Sub Form_Load()List1.AddItem "Germany"List1.AddItem "India"List1.AddItem "France"List1.AddItem "USA"List1.AddItem "Japan", 0List1.AddItem "China", 1End Sub

    要從列表中刪除專案,可使用RemoveItem方法,如要刪除列表中的第一個專案,可新增如下程式碼:Private Sub Command1_Click()List1.RemoveItem 0End Sub要刪除連結版或標準版的列表框、組合框中的所有專案。可使用Clear方法:List1.Clear注意:1)可以在設計時新增專案。做法:選列表框“屬性”視窗中[List]屬性,在下拉的空白框中輸入專案,並按[CTRL]+[回車]鍵進行換行。2)只能在列表末端新增專案。3)如果要將列表按字母順序排序,則應將“Sorted”屬性設定為“True”,且省略索引(否則,使用帶有index引數的AddItem方法可能會導致不可預料的非排序結果),排序時不區分大小寫。(2)常用屬性屬性 描述 程式碼及介面顯示

    List (1)在設計時可向列表框中新增新專案,輸人時用Ctrl+Enter組合鍵換行(2)在程式碼中可用來訪問列表框中的所有專案,它包含了一個字串陣列,列表框中的每個專案都是這個陣列的元素。其引用格式為:

    s$=ListBox控制元件名.List(索引值)

    其中:<索引值>為數值表示式,指定專案在列表中的位置,它是從0開始的。

    例:s$=list1.list(6)將列出list1的第七項內容。

    Private Sub Command1_Click()

    Text1.Text = List1.List(2)

    End Sub

    也可改變陣列中已有的值,格式:

    ListBox控制元件名.List(索引值)=s$

    例list1.list(3)="AAAA"將把list1的第四項的內容設為AAAA。 Option Explicit

    Private Sub Command1_Click()

    Text1.Text = "You have" & List1.ListCount & "_entrifs lister"

    End SubPrivate Sub Command2_Click()

    Text1.Text = List1.List(3)

    End Sub Private Sub Command3_Click()

    Text1.Text = List1.ListIndex

    End SubPrivate Sub Form_Load()

    List1.AddItem "Germany"

    List1.AddItem "India"

    List1.AddItem "France"

    List1.AddItem "Canada"

    List1.AddItem "USA"

    List1.AddItem "Japan", 0 R>List1.AddItem "China", 1

    End Sub Private Sub List1_Click()

    If List1.Text = "Canada" Then

    Text1.Text = "Canada have 24 million people."

    End If

    End Sub

    ListCount 返回列表框中專案的總數,只在執行時可用。例:

    Private Sub Command2_Click()

    Text1.Text = "You have" & List1.ListCount & "_entrifs lister"

    End Sub

    ListIndex 返回在列表框中當前選定專案的位置,只在執行時可用。未選定任何專案時,其值為-l。例:

    Private Sub Command3_Click()

    Text1.Text = List1.ListIndex

    End Sub

    Text 存放當前在列表框中選定的專案,即List(ListIndex)的值。

  • 中秋節和大豐收的關聯?
  • 我們怎麼來判斷寶寶是否吃飽?