Jadilah Anggota smaneka untuk mendapatkan informasi terkini di smaneka.tk, yuk...

Senin, 13 April 2009

Skrip untuk menampilkan gambar ke dalam form VB


lihat juga skripnya....

Dim NewElement As Integer

Private Sub Form_Click()
Load Image1(NewElement)
Image1(NewElement).Visible = True
'Image1(NewElement).Top = Image1(NewElement - 1).Top
'Image1(NewElement).Left = Image1(NewElement - 1).Left + 495
'NewElement = NewElement + 1


'==================================================
'For Random Placement use this code:
Image1(NewElement).Top = CInt(Form1.Height * Rnd)
Image1(NewElement).Left = CInt(Form1.Width * Rnd)
NewElement = NewElement + 1
'==================================================
'You can also use textboxes, command buttons.. everything"

End Sub

Private Sub Form_Load()
NewElement = 1
End Sub


source : http://www.planet-source-code.com/vb/

Tidak ada komentar:

 
Minima 4 coloum Blogger Template by Beloon-Online.
Simplicity Edited by Ipiet's Template