تبدیل رشته به آبجکت

[r0ot$harp]

سلام دوستان
من می خوام در یک متغیر مثلا a یک رشته را به آبجکت تبدیل کنم .
کد زیر نمایان گر مشکل من است .

Private arr(10) As PictureBox
Dim m As New Object
Dim c As String
c = "picturebox1"
m = c

arr(1) = m
arr(1).Visible = True

کد بالا در قسمت قرمز رنگ اررور می دهد .
باتشکر

[saman_itc]

شما نمیتونی یه string تو یهPictureBox بزاری چون نوع هاشون یکی نیست.
وقتی از "" استفاده می کنی مقدار داخلش به رشته تبدیل میشه


Dim m AsNewObject
m = PictureBox1
arr(1) = m
arr(1).Visible = True

این جواب میده

[r0ot$harp]

شما نمیتونی یه string تو یهPictureBox بزاری چون نوع هاشون یکی نیست.
وقتی از "" استفاده می کنی مقدار داخلش به رشته تبدیل میشه


Dim m AsNewObject
m = PictureBox1
arr(1) = m
arr(1).Visible = True
این جواب میده

دوست عزیز ممنون از جوابتون
من به خاطر این اینکارو می کنم که :

کد زیر را ببین متوجه می شی :


For f = 1 To 10
Dim m As Object
m = "PictureBox" & f
arr(f) = m
Next f

For d = 1 To 2
arr(d).Visible = True
Next d

[r0ot$harp]

دوستان عزیز همین الان یکی از دوستانم بهم کمک کرد و گفت که چی کار کنم اینم نتیجه ی کار :

کد زیر 10 Picturebox که از قبل رویه فورم هست رو Visible=true می کنه :


For f = 1 To 10


arr(1) = Controls.Find("picturebox" & f, True)(0)
arr(1).Visible = True
Next

[saman_itc]

For f = 1 To 10
Dim m As Object
m = "PictureBox" & f
arr(f) = m
Next f

For d = 1 To 2
arr(d).Visible = True
Next d

این کد برای زبان های سطح پایین و تو زبان های شی گرا استفاده نمیشه .