Kamis, 07 Mei 2009
chapter-6
NIE SCRIP NA YO,,,,,,,,,,,,
Dim NewElement As Integer (membuat variable / elemen baru sebagai integer)
Private Sub Form_Click (membuat bentuk klik yang bisa diinput gambar) ()
Load Image1(NewElement)
Image1(NewElement).Visible = True
(menentukan letak gambar)'Image1(NewElement).Top = Image1(NewElement - 1).Top
'Image1(NewElement).Left = Image1(NewElement - 1).Left + 495
( Menambah komponen dengan berurutan satu persatu)'NewElement = NewElement + 1
'==================================================
(utk mengatur tmpt ackan dng kode)'For Random Placement use this code:
Image1(NewElement).Top = CInt(Form1.Height * Rnd (menentkan ltak ackan))
Image1(NewElement).Left = CInt(Form1.Width * Rnd (menentkan ltak ackan))
NewElement = NewElement + 1 ( Menambah komponen dengan berurutan satu persatu)
'==================================================
"
End Sub
Private Sub Form_Load (menmplkan pesn sesuai dng properties isi_pesan dan judl_pesn yg di input melalui komponen yg kita buat)()
NewElement = 1 (jml komponen yg ditmbahkan secra berurutn)
End Sub (mengakhiri)
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar