PDA

View Full Version : سوال: استفاده از متغيير به جاي نام كنترل



Alisalari
یک شنبه 01 دی 1387, 20:03 عصر
سلام - سوال قبلي منو كه كسي جواب نداد!
اميدوارم اين يكي رو راهنماييم كنين .

ميخوام بدونم چطور ميشه كه توي كد برنامه براي كار كردن روي بعضي كنترلها مثل Labelها به جاي نام اونها از متغيرها استفاده كرد .
مثلا" نام يه كنترل توي يه متغير به نام test ذخيره باشه


"Test="Label1

بعد وقتي بخوام Caption رو تغيير بدم به جاي

"Label1.Caption="Ali

چجوري از متغيرم استفاده كنم .

آخه يه سري كنترل دارم كه اسماشون عدد هست كه ميخوام با متغير شمارنده حلقه هر كدوم رو جداگانه دست بگيرم .

ممنونم .

Payam Moradi
یک شنبه 01 دی 1387, 21:24 عصر
Me.Controls("Label1").Caption = "Ali"

For i = 0 to 10
Me.Controls("Label" & i).Caption = "WWWWWW"
next

For i = 0 to 10
Me.Controls(i).Caption = "WWWWWW"
next

Or ...
Dim c as control
For Each c in me.controls
if Typeof c is VB.label Then
C.Caption = "RRRR"
End if
Next

Or ...
For i = 0 to me.controls.count
if Typeof me.controls(i) is VB.label Then
Me.Control(i).Caption = "RRRR"
End if
Next

Or ...
For i = 0 to me.controls.count
if Typeof me.controls(i) is VB.Text Then
Me.Control(i).Text = "RRRR"
End if
Next
:چشمک: