Programmer 的進程 - 由 VB6 開始

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

Title: 以主鍵值找尋Combobox/Popupmenu相對位置
Post by: admin on August 23, 2011, 07:55:50 PM

Code: [Select]

Sub ShowListbyRowTag(tmpControl As object, tmpKeyValue as string)
  Dim inty As integer
  select case tmpcontrol
  case isa ComboBox
    For intY = 0 To combobox(tmpControl).listcount -1
      if combobox(tmpControl).RowTag(inty).StringValue= tmpKeyValue  then
        combobox(tmpControl).listindex=inty
        exit sub
      end if
    Next
    combobox(tmpControl).listindex=-1
   
  case isa popupmenu
    For intY = 0 To popupmenu(tmpcontrol).listcount -1
      if popupmenu(tmpControl).RowTag(inty).stringvalue= tmpKeyValue then
        popupmenu(tmpControl).listindex=inty
        exit sub
      end if
    Next
    popupmenu(tmpControl).listindex=-1
   
  end select
 
End Sub