Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Passing an array of textboxes
Message
 
General information
Forum:
Visual Basic
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00213215
Message ID:
00214408
Views:
22
Thanks for your help.

>>I am trying to pass an array of textboxes. What am I doing wrong...
>>
>>Sub changetextcolor(textboxname() As TextBox)
>>     textboxname(1).BackColor = RGB(255, 0, 0)
>>    textboxname(2).BackColor = RGB(0, 255, 0)
>>End Sub
>>Private Sub Command1_Click()
>>    Dim txtbxs(2) As TextBox
>>    txtbxs(0) = Me.Text1
>>    txtbxs(1) = Me.Text2
>>    Call changetextcolor(txtbxs())
>>End Sub
>>
>
>You need to assign the object reference to your txtbxs array using the "Set" command. Also a minor bug in that your array elements don't match.
>
>
>Sub changetextcolor(textboxname() As TextBox)
>    textboxname(0).BackColor = RGB(255, 0, 0)
>    textboxname(1).BackColor = RGB(0, 255, 0)
>End Sub
>Private Sub Command1_Click()
>    Dim txtbxs(2) As TextBox
>    Set txtbxs(0) = Me.Text1
>    Set txtbxs(1) = Me.Text2
>    Call changetextcolor(txtbxs())
>End Sub
>
Previous
Reply
Map
View

Click here to load this message in the networking platform