PDA

View Full Version : تبدیل یک String به نام یک کنترل



__siavash__
یک شنبه 08 مهر 1386, 20:46 عصر
سلام
من یه String به نام Image1 دارم چه طوری میتونم اینو به یه کنترل تبدیل کنم ؟
یه کنترل با همین نام روی فرمم دارم !

noorsoft
یک شنبه 08 مهر 1386, 21:07 عصر
امیدوارم با این کد کارت راه بیفته


Dim Obj as Object
Me.Controls(YourString)

__siavash__
دوشنبه 09 مهر 1386, 12:45 عصر
سلام این کد درسته میشه یه String رو به عنوان نام یه کنترل بهش داد


Me.Controls(YourString)

اما من میخوام مثلا این طوری


Dim Obj as Object
Set Obj = Image1

ایم کد هم جوابگو هستش اما من چون مثلا 50 تا Image رو فرمم دارم میخوام تو یه حلقه اسمشونو بسازم بعد به عنوان یه کنترل Image ازشون استفاده کنم ؟
مثلا


Dim Obj as Object
Dim A As String
Dim i As Integer
A = "Image" & i
Set Obj = A

حالا i تو یه حلقه تغییر میکنه !