| Other things |
| Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Duis ligula lorem, consequat eget, tristique nec, auctor quis, purus. Vivamus ut sem. Fusce aliquam nunc vitae purus. |
| Other things |
| Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Duis ligula lorem, consequat eget, tristique nec, auctor quis, purus. Vivamus ut sem. Fusce aliquam nunc vitae purus. |
| Other things |
| Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Duis ligula lorem, consequat eget, tristique nec, auctor quis, purus. Vivamus ut sem. Fusce aliquam nunc vitae purus. |
| Other things |
| Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Duis ligula lorem, consequat eget, tristique nec, auctor quis, purus. Vivamus ut sem. Fusce aliquam nunc vitae purus. |
| Other things |
| Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Duis ligula lorem, consequat eget, tristique nec, auctor quis, purus. Vivamus ut sem. Fusce aliquam nunc vitae purus. |
|
| VB 6 Aqyuwww |
| Kamis, Mei 07, 2009 |
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) |
posted by Winn_Doeell @ 8:07:00 PM   |
|
|
|
|
| About Me |
|
Name: Winn_Doeell
Home: Malang, Jatim, Indonesia
About Me: Nama Q Windoel. hehehe Q pemlu tapi Q cew yang ceria. Q sebenarnya gk suka dapet masalah. Mbenceknoo.............. hahahahahah............... Q sayang ma orang2 di sekitar Q. Q kan membahagiakan ortu Q. hahahaha...........
See my complete profile
|
| Previous Post |
|
| Archives |
|
| Links |
|
|
| Powered by |
 |
|
Posting Komentar