اضافه كردن دكمه به فرم؟!!!

[محمد فدوی]

سلام.
من يه سوال دارم،‌ و مي دونم كه خيلي مبتديانست! :متفکر:
من مي خوام روي يه فرم يه دكمه باشه كه وقتي روش كليك مي شه يه دكمه ي ديگه (صرفاً‌ با استفاده از كد) به فرم اضافه بشه،‌ مثلاً توي يه نقطه ي معلوم...
چطور مي تونم اينكار رو بكنم؟ اگه فقط اون قسمت اضافه كردن دكمه رو هم برام بذاريد ممنون مي شم.

خيلي ممنونم. :لبخندساده:

[Veteran]

ی دکمه روی فرم قرار بدید خاصیت index اون رو برابر با 0 قرار بدید

این رو هم در قسمت جنرال بنویسید

Dim x
توی رویداد کلیک اون این کد رو بنویسید

Private Sub Command1_Click(Index As Integer)
x = x + 1
Load Command1(x)
Command1(x).Visible = True
Command1(x).Left = Command1(0).Left
Command1(x).Top = Command1(0).Top + Command1(0).Height
End Sub

[barnamenevisforme]

سلام
یه vb.net sample براتون میذارم.
امیدوارم بتونید از اون الگو بگیرید و به هدفتون برسید.83592

[محمد فدوی]

آقا جواباتون واقعاً خوب بود ولي در مورد مثالي كه از دات نت گذاشتيد يه مشكل دارم...
ما توي دات نت چنين دستوري رو خيلي زياد ميبينيم كه توي مثال شما هم ازش استفاده كرده:
Dim btnNew As New Button
ولي توي وي بي 6 اين دستور با خطا روبرو مي شه:
Dim cmdNew As New CommandButton
پس چطور ميشه يه دكمه اي رو كه تازه ساختيم رو مقدار دهي كنيم؟؟ :اشتباه:

[barnamenevisforme]

شاید این لینک مفید باشه
چون vb6compiler ندارم مطمئن نیستم کار کنه.
امیدوارم جواب بده
http://www.codeguru.com/vb/controls/vb_activex/activex/article.php/c3499
یا این
http://support.microsoft.com/kb/190670

[MohammadGh2011]

آقا جواباتون واقعاً خوب بود ولي در مورد مثالي كه از دات نت گذاشتيد يه مشكل دارم...
ما توي دات نت چنين دستوري رو خيلي زياد ميبينيم كه توي مثال شما هم ازش استفاده كرده:
Dim btnNew As New Button
ولي توي وي بي 6 اين دستور با خطا روبرو مي شه:
Dim cmdNew As New CommandButton
پس چطور ميشه يه دكمه اي رو كه تازه ساختيم رو مقدار دهي كنيم؟؟ :اشتباه:
سلام عليکم
کد زير رو بررسي بفرماييد:
Dim WithEvents C As CommandButton
Private Sub Command1_Click()
Set C = Me.Controls.Add("vb.commandbutton", "button")
C.Visible = True
C.Caption = "click"
C.Left = C.Left + 2000
C.Top = C.Top + 2000
End Sub
Private Sub C_Click()
MsgBox "M.Gh"
End Sub

موفق باشيد

[l4dl4d]

دوست گرامی اگه نام command رو عوض کنین checkbox و یک چکباس درست کنین اینبار چک باکس درست میکنه
اینکار بدرد ساخت IDE برای زبان برنامه نویسی میخوره:شیطان: