Passing a control array
Working with control arrays in VB3 was frustrating, but with VB4 you can pass a control array as an argument to a function. Simply specify the parameter type as Variant:
AI
AI 摘要: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
源代码
Private Sub Command1_Click(Index As Integer) GetControls Command1() End Sub Public Sub GetControls(CArray As Variant) Dim C As Control For Each C In CArray MsgBox C.Index Next End Sub Also, VB4's control arrays have LBound, Ubound, and Count properties: If Command1.Count < Command1.Ubound - _ Command1.Lbound + 1 Then _ Msgbox "Array not contiguous"
原始评论 (3)
从 Wayback Machine 恢复