ایجاد اشیا مانند Label و CheckBox در هنگام اجرای برنامه ساخته شده

[alireza_s22]

سلام . می خوام هنگامی که برنامه رو ساختم و دارم اجرا می کنم اشیاءی مانند Label و CheckBox رو با زدن یک دکمه داخل برنامه بسازم و خصوصیاتش هم درون برنامه تغییر بدم

[mostafa_golden]

سلام . می خوام هنگامی که برنامه رو ساختم و دارم اجرا می کنم اشیاءی مانند Label و CheckBox رو با زدن یک دکمه داخل برنامه بسازم و خصوصیاتش هم درون برنامه تغییر بدم

سلام دوست عزیز

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

[dataking]

سلام
Dim TextBox1 As New TextBox()
With TextBox1
.Location = New Point(64, 40)
.Size = New Size(100, 20)
.TabIndex = 0
.Text = "TextBox1"
End With
Controls.Add(TextBox1)

تو دات نت کار میکنه تو
وی بی 6 امتحان نکردم اگه نشد بگو تا مشکلتو حل کنم

[dataking]

فقط به جای تکس باکس نوع کنترلت را بنویس

[mostafa_golden]

فقط به جای تکس باکس نوع کنترلت را بنویس

سلام دوستان من این کارو کردم این پیغام رو داد.

Run-time error '91':

Object variable or With block variable not set

Dim CommandButton1 As VB.CommandButton

With CommandButton1

     .Caption = "Command1L"

      .Height = 735

      .Left = 1920

      .TabIndex = 0

      .Top = 960

      .Width = 1575

End With

[alireza_s22]

سلام دوستان کار نکردن و Error میده لطفا کمکم کنید شدیدا نیاز دارم

[butterfly8528]

سلام دوستان عزیز .

Option Explicit



Dim WithEvents cmdTest As VB.CommandButton

Dim WithEvents chkTest As VB.CheckBox



Private Sub Form_Load()

  Set cmdTest = Controls.Add("VB.CommandButton", "cmdTest", Me)

  cmdTest.Move 100, 100

  cmdTest.Caption = "Click Me"

  cmdTest.Visible = True

  

  Set chkTest = Controls.Add("VB.CheckBox", "chkTest", Me)

  chkTest.Move 100, 1000

  chkTest.Caption = "Click Me"

  chkTest.Visible = True

End Sub



Private Sub cmdTest_Click()

  MsgBox "ArshamSoft"

End Sub



Private Sub chkTest_Click()

  MsgBox "ArshamSoft"

End Sub

موفق باشید .

[xxxxx_xxxxx]

پیش از ایجاد تاپیک جستجو کنید. در همه تاپیک های زیر مورد همین موضوع بحث شده.

ايجاد text box
ساختن کنترل با کد
ساخت کنترل آرایه ای در هنگام اجرای برنامه
ايجاد اشياء هنگام run time
ساخت شی جدید
ایجادیک شی درزمانRuntime بروی فرمی غیرازفرم جاری؟
ایجاد یک کنترل در زمان اجرا
تکنیکهای VB
ساختن object های vb6 به تعداد دلخواه

تاپیک قفل شد.