PDA

View Full Version : سوال: چگونگی ایجاد کنترل با نام متفاوت



mvb_mehran
یک شنبه 20 دی 1388, 23:20 عصر
با سلام

چجوری می تونم یه کنترل مثل webbrowser رو با نام های متفاوت در tabpage های متفاوت ایجاد کنم مثل اینترنت اکسپلورر که هر webbroser با یک addressbar در ارتباط است.
با تشکر:لبخندساده:

Hossis
یک شنبه 20 دی 1388, 23:30 عصر
در هر بار ساختن ،‌ نام آن را تغییر دهید
به عنوان مثال


dim WB as Webbrowser
for I=0 to 5
wb=new Webbrowser
Wb.name="Web" & i
wb.parent=tabStrip1.tabs(i)
next

البته این کد رو بالبداهه نوشتم و تست نکردم

Hossis
یک شنبه 20 دی 1388, 23:35 عصر
این کد اصلاح و تست شده است


Dim WB As WebBrowser
For I = 0 To 5
WB = New WebBrowser
WB.Name = "Web" & I
WB.Dock = DockStyle.Fill
WB.DocumentText = "<p>lkjsdfk</p> " & I
WB.Parent = TabControl1.TabPages(I)
Next

mvb_mehran
یک شنبه 20 دی 1388, 23:43 عصر
این کد اصلاح و تست شده است


Dim WB As WebBrowser
For I = 0 To 5
WB = New WebBrowser
WB.Name = "Web" & I
WB.Dock = DockStyle.Fill
WB.DocumentText = "<p>lkjsdfk</p> " & I
WB.Parent = TabControl1.TabPages(I)
Next

ببخشید خط آخر رو error میده.قبل از next

mvb_mehran
یک شنبه 20 دی 1388, 23:53 عصر
من باید چه کنترلهایی رو فرم بزارم. باتشکر

Hossis
دوشنبه 21 دی 1388, 10:11 صبح
من باید چه کنترلهایی رو فرم بزارم. باتشکر
باید یک کنترل TabControl روی فرم قرار بدهید یا در قسمت declaration این طور بنویسید


dim tabControl1 as new tabcontrol
و در رویداد لود مربوط به فرم یا در کد مزبور قبل از For این کد رو بنویسید


me.controls.add (tabcontrol1)