Auto Resize Image Background Form Visual Basic 6.0

Auto Resize Image Background Form Visual Basic 6.0 | Gho Blog's - Mungkin sobat pernah mengalami kendala saat menambahkan background image di form Visual Basic 6.0, dimana image tersebut berukuran kecil dan saat program di running image tersebut tidak menutupi seluruh form apalagi form tersebut dalam keadaan maximized.

Pada posting kali ini saya akan membagikan sedikit trik dalam bentuk coding untuk menanggulangi masalah tersebut. Untuk lebih jelasnya, sebagai contoh kasus bisa sobat lihat pada gambar berikut ini :


Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Masalah tersebut akan semakin terlihat bila form dalam keadaan maximized. Untuk mengakali maslah tersebut, silakan sobat mengikuti langkah berikut ini :

• Pertama, image tersebut ditambahkan langsung ke form melalui browse Picture di properties tanpa menggunakan component Image atau PictureBox.

• Jika sudah Image terpasang sebagai background di form, masukkan script berikut pada bagian general di coding form tersebut 

Option Explicit Dim myPic As PictureBox Dim stdPic As New StdPicture Sub RedrawScreen() myPic.Width = Me.ScaleWidth myPic.Height = Me.ScaleHeight myPic.BorderStyle = 0 myPic.Visible = False myPic.AutoRedraw = True myPic.PaintPicture stdPic, 0, 0, myPic.Width, myPic.Height Set Me.Picture = myPic.Image End Sub

• Kemudian double klik pada form dan letakkan script berikut pada bagian Form_Load() :

Set myPic = Me.Controls.Add("VB.PictureBox", "myPic") Set stdPic = Me.Picture Call RedrawScreen

• Setelah itu tempatkan script berikut pada event Form_Resize(), atau copy paste langsung script berikut tepat dibawah script Form_Load() sebelumnya :

Private Sub Form_Resize() Call RedrawScreen End Sub

Sekarang coba running, kemudian maximized kan form tersebut dan lihat perbedaannya.

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Sekian dulu posting dari saya yang berjudul Auto Resize Image Background Form Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat.