Programmer 的進程 - 由 VB6 開始

PowerBasic 相關文件及程式庫 => PowerBASIC 範例及函式庫 => Topic started by: admin on November 11, 2011, 01:27:25 PM

Title: ListBox 相關的程序函數庫
Post by: admin on November 11, 2011, 01:27:25 PM

Code: [Select]

Sub ListBoxAddRowbyAry(hWndControl As Dword, tmpArray() As String, StartRow As Integer,ByVal ItemDataPos As Integer, ByVal ItemStringPos As Integer)
    Dim intY As Integer
    Dim tmpIndex As Long
       
    FF_ListBox_ResetContent(hWndControl )
    For inty=startrow To UBound(tmparray,2)
       tmpindex=FF_ListBox_AddString( hWndControl, tmparray(itemstringpos,inty))
       FF_ListBox_SetItemData (hWndControl, tmpindex,CvL(tmparray(itemdatapos,inty)))
    Next

End Sub