ایجاد کنترل های Textbox و Label در Runtime

[honarestani]

ایجاد کنترل هایی مانند text box یا Label با کلیک روی دکمه توسط کاربر در هنگام اجرای برنامه در وی بی وجود داره ؟ یعنی زمانی کاربر دکمه ای را فشار میده میتونیم از قبل براش کد بنویسیم که یک لیبل با یه اسم و یه مقدار پیش فرض براش قرار بده ؟؟
اگه میشه لطفا یک پروژه ای کوتاه بنویسید یا دستوراتش رو کامل :بوس:

[mohammadriano]

اولاً سلام
دوماً در انتخاب سطر سوالتون دقت کنید
سوماً ساده ترین نرم افزار برای صحبت های شما همین VB6 هستش
خب روی فرم خودتون هر چی که می خواهید اظافه کنید
بر روی دکمه (کامند) دابل کلیک کنید
بعد کد های انتصاب را بنویسید

Private Sub Command_Click()
text1.Text = "vb6"
End Sub

[honarestani]

اولاً سلام
دوماً در انتخاب سطر سوالتون دقت کنید
سوماً ساده ترین نرم افزار برای صحبت های شما همین VB6 هستش
خب روی فرم خودتون هر چی که می خواهید اظافه کنید
بر روی دکمه (کامند) دابل کلیک کنید
بعد کد های انتصاب را بنویسید

Private Sub Command_Click()
text1.Text = "vb6"
End Sub

سلام
این رو که سال اول یاد گرفتیم :لبخندساده: منظورم زمان اجرا بود عزیز
توضیح از این ساده تر که بالا اشاره کردم ؟
حالا یه تشکر میکنم که از جواب دادن پشیمون نشی:لبخند:

گفتم که در هنگام اجرا توسط کاربر

[mohammadriano]

ببین عزیز دقیقاً چه کاری می خواهید انجام بدهید
یک تابع در زمان اجرای برنامه create کنید؟
می تونی از مسیر app.path فرم خودتون رو مانند txt باز کنید مثلاً form1.frm و در قسمت خالی تکست تابع خودتون رو به فزم اظافه کنید
دقت داشته باشید این روش بعد از کامپایل قابل استفاده نیست

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 7260
ClientLeft = 120
ClientTop = 450
ClientWidth = 8535
LinkTopic = "Form1"
ScaleHeight = 7260
ScaleWidth = 8535
StartUpPosition = 3 'Windows Default
Begin VB.TextBox Text
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 178
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1005
TabIndex = 1
Top = 900
Width = 4170
End
Begin VB.CommandButton Command
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 178
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1290
Left = 4845
TabIndex = 0
Top = 4650
Width = 1680
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command_Click()
text.text = 5445
End Sub



البته کاری که قرار شما انجام بدین واقعاً سوال داره؟
فکر می کنم یه چیزی مثل خود VB6 قراره بسازید؟

[returnx]

منظور دوستمون ساخت اشیا به صورت Runtime بود...
تاپیک زیر رو مطالعه کنید:
http://barnamenevis.org/showthread.php?309720-%DA%86%DA%AF%D9%88%D9%86%DA%AF%D9%8A-%D8%A7%D8%B6%D8%A7%D9%81%D9%87-%DA%A9%D8%B1%D8%AF%D9%86-%D9%81%D9%88%D8%B1%D9%85-%D9%88-%D8%A7%D8%B4%D9%8A%D8%A7%D8%A1-%D8%A8%D8%A7-%DA%A9%D8%AF-%D9%86%D9%88%D9%8A%D8%B3%D9%8A/page2&highlight=Runtime

[بهروز عباسی]

برای ایجاد کنترل در هنگام اجرا (Run Time)

Dim WithEvents txtControl1 As TextBox
Dim lblcontrol1 As Label

Private Sub Form_Load()

Set lblcontrol1 = Controls.Add("VB.Label", "lblControl1")
lblcontrol1.Visible = True

Set txtControl1 = Controls.Add("VB.TextBox", "txtControl1")
txtControl1.Left = lblcontrol1.Left + lblcontrol1.Width + 400
txtControl1.Visible = True

End Sub

[بهروز عباسی]

و برای اطلاعات بیشتر برای بقیه کنترل ها
http://oreilly.com/pub/a/oreilly/windows/ron/dynamic.html

موفق باشید.