Programmer 的進程 - 由 VB6 開始

Xojo / RealBasic 相關文件及程式庫 => Xojo / RealBasic 範例及函式庫 => Topic started by: admin on August 23, 2011, 07:50:23 PM

Title: 字串陣列灌入 Combobox / Popupmenu 的函數
Post by: admin on August 23, 2011, 07:50:23 PM

Code: [Select]

Sub ControlAddRowbyAry(tmpControl As object, tmpArray(,) As string, Optional PosX As Integer = 1)
  Dim inty As integer
  select case tmpcontrol
  case isa ComboBox
    combobox(tmpControl).DeleteAllRows
    For intY = 0 To UBound(tmpArray, 2)
      combobox(tmpcontrol).addrow tmpArray(0, intY)
      combobox(tmpControl).RowTag(combobox(tmpControl).listcount-1)= tmpArray(PosX, intY) 
    Next
   
  case isa popupmenu
    popupmenu(tmpControl).DeleteAllRows
    For intY = 0 To UBound(tmpArray, 2)
      popupmenu(tmpcontrol).addrow tmpArray(0, intY)
      popupmenu(tmpControl).RowTag(popupmenu(tmpControl).listcount-1)= tmpArray(PosX, intY)
    Next
  end select
 
End Sub