Tuesday, June 12, 2012

Memasukan Sebuah Object ke dalam Container - Addins VB6

Di bawah ini merupakan contoh kode untuk memasukan sebuah objek ke dalam objek kontainer melalui Addins, dalam hal ini objek diwakili oleh satu CommandButton dan kontainer diwakili oleh satu objek Frame.
Public VBInstance As VBIDE.VBE 
Public Connect As Connect

Option Explicit

Private Sub
CancelButton_Click()
Connect.Hide
End Sub

Private Sub
OKButton_Click()
ObjectInContainerSample
End Sub

Private Sub
ObjectInContainerSample()
'menambahkan PictureBox
Dim f As VBForm
Dim p As VBControl
Dim b As VBControl
Set f = VBInstance.SelectedVBComponent.Designer
Set p = f.VBControls.Add("Frame")
With p
.Properties("Height") = 2000
.Properties("Width") = 4000
.Properties("Left") = 500
.Properties("Top") = 500
.Properties("Caption") = "Data Siswa"
'.properties dan lain-lain
End With
'menambahkan CommandButton
Set b = f.VBControls.Add("CommandButton")
Set b.Container = p 'memasukan sebuah objek ke dalam kontainer
With b
.Properties("Left") = 500
.Properties("Top") = 500
.Properties("Caption") = "&Simpan"
'.properties dan lain-lain
End With
End Sub