vb6 ; تکثیر کنترل commandbox ؟؟؟

[Saeed Shahabi]

سلام...
آیا می شه در vb6 از طریق کدنویسی چند کنترل commandbox روی یک picturebox ایجاد کرد؟چطوری؟
(اگه پاسخ منفیه ; آیا میشه کنترلهای دیگه ای مثل label یا textbox رو توی یک picturebox ایجاد کرد؟)

 

[the_king]

سلام...
آیا می شه در vb6 از طریق کدنویسی چند کنترل commandbox روی یک picturebox ایجاد کرد؟چطوری؟
(اگه پاسخ منفیه ; آیا میشه کنترلهای دیگه ای مثل label یا textbox رو توی یک picturebox ایجاد کرد؟)

پاسخ مثبته، در ضمن قبلا در مورد ایجاد کنترل در زمان اجرا صحبت شده :

اضافه کردن کنترل به فرم در حین اجرای برنامه

نمونه کدی که از تکنیک ایجاد کنترلها در زمان اجرا استفاده می کند.

با استفاده از کد زیر، در داخل فرم یک PictureBox با نام MyPicture و دو کنترل CommandButton با نام های
MyCmd1 و MyCmd2 در داخل آن ایجاد می شوند :

Private Sub Form_Load()
    Dim MyPicture As PictureBox
    Dim MyCmd1 As CommandButton
    Dim MyCmd2 As CommandButton
    Set MyPicture = Controls.Add("VB.PictureBox", "MyPicture", Me)
    ScaleMode = vbPixels
    With MyPicture
        .Move 20, 20, 270, 100
        .Visible = True
        .ScaleMode = vbPixels
    End With
    Set MyCmd1 = Controls.Add("VB.CommandButton", "MyCmd1", MyPicture)
    With MyCmd1
        .Move 20, 20, 100, 30
        .Caption = "Button 1"
        .Visible = True
    End With
    Set MyCmd2 = Controls.Add("VB.CommandButton", "MyCmd2", MyPicture)
    With MyCmd2
        .Move 140, 20, 100, 30
        .Caption = "Button 2"
        .Visible = True
    End With
End Sub