ListBox 相關的程序函數庫

[admin]

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