modutilities.bas

来自「library system for students..these is ve」· BAS 代码 · 共 13 行

Attribute VB_Name = "modUtilities"
Option Explicit

Public Function ComboBoxBySelectedID(ByRef cbo As VB.ComboBox, ByVal intID As Integer) As Integer
    Dim x As Integer
    ComboBoxBySelectedID = -1
    For x = 0 To cbo.ListCount - 1
        If cbo.ItemData(x) = intID Then
            ComboBoxBySelectedID = x
        End If
    Next x
End Function