Showing posts with label SDI Form. Show all posts
Showing posts with label SDI Form. Show all posts

Sunday, April 4, 2010

VB6 Code - Menjadikan Form Semi Transparan

Bagaimana cara membuat form semi transparan menggunakan Visual Basic 6.0?. Simaklah kode VB6 di bawah ini:Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate...
READ MORE - VB6 Code - Menjadikan Form Semi Transparan

VB6 Code - Menjadikan Form Berada Paling Depan

Fungsi VB6 di bawah ini merupakana cara menampilkan form agar berada paling depan (Form On Top/Top Most). Adapun kode VB6 untuk melakukan hal tersebut adalah sebagai berikut:Option ExplicitPublic Declare Function SetWindowPos Lib "user32" (ByVal hWnd...
READ MORE - VB6 Code - Menjadikan Form Berada Paling Depan

VB6 Code - Membuat Efek Fade Pada Form

Di bawah ini merupakan fungsi VB6 untuk membuat efek fade pada sebuah form. Adapun kode VB6 untuk membuat efek fade pada sebuah form yang ditampilkan adalah sebagai berikut:Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA"...
READ MORE - VB6 Code - Membuat Efek Fade Pada Form

VB6 Code - Membuat Explode Effect Pada Form

Membuat efek/animasi blow/explode pada sebuah form menggunakan kode VB6. Adapun cara membut efek animasi blow/explode dengan menggunakan VB6 adalah sebagai berikut: Option ExplicitType RECT Left As Long Top As Long Right As Long Bottom As...
READ MORE - VB6 Code - Membuat Explode Effect Pada Form

VB6 Code - Menutup Seluruh Form For...each

Di bawah ini merupakan procedure VB6 untuk menutup seluruh form dengan menggunakan for...each.Option ExplicitPublic Sub CloseAllForm() Dim frm As Form For Each frm In Forms Unload frm NextEnd SubContoh penggunaan procedure di atas:Private...
READ MORE - VB6 Code - Menutup Seluruh Form For...each

VB6 Code - Membuat Form Yang Berbentuk Lingkaran

Mengenai cara membuat form yang berbentuk lingkarang menggunakan VB6 - Adapun cara membuat form berbentuk lingkaran menggunakan VB6 adalah sebagai berikut:Option ExplicitPrivate Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal...
READ MORE - VB6 Code - Membuat Form Yang Berbentuk Lingkaran

VB6 Code - Menyimpan Form Di Tengah Layar (screen)

Di bawah ini merupkan procedure VB6 untuk menyimpan/memindahkan form tepat di tengah layar.Option ExplicitPrivate Sub CenterForm(frmIn As Object) Dim iTop As Integer, ileft As Integer If frmIn.WindowState <> 0 Then 'prevent if form...
READ MORE - VB6 Code - Menyimpan Form Di Tengah Layar (screen)

VB6 Code - Membuat Form Yang Berbentuk Elips

Bagaimanakah cara membuat form yang berbentuk elips menggunakan kode Vb6? tentu saja untuk keperluan ini kita harus memanggil beberapa fungsi API. Bagaimana kode lengkap dari VB6 tersebut \? simaklah di bawah ini:Option ExplicitPrivate Declare Function...
READ MORE - VB6 Code - Membuat Form Yang Berbentuk Elips

Saturday, April 3, 2010

VB6 Code - Drag Form Yang Tidak Memiliki Controlbox

Di bawah ini merupakan fungsi VB6 (menggunakan fungsi API) untuk men-drag form yang tidak memiliki Control Box.Option ExplicitPrivate Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam...
READ MORE - VB6 Code - Drag Form Yang Tidak Memiliki Controlbox

VB6 Code - Fungsi Untuk Membentuk Form Dari Huruf

Di bawah ini merupakan fungsi VB6 untuk membentuk form dari sebuah huruf, kata, atau kalimat. Untuk keperluan ini Anda dapat memodifikasi besar serta jenis hurufnya. Untuk keperluan-keperluan yang seperti ini, kita tidak bisa memprogramnya secara langsung...
READ MORE - VB6 Code - Fungsi Untuk Membentuk Form Dari Huruf

Thursday, December 24, 2009

VB6 Code - Form Yang Mengikuti Pointer Mouse

Kali ini kita akan membuat sebuah project yang diberi judul 'Form Yang Mengikuti Pointer Mouse'. Maksudnya sebuah form yang mengikuti koordinat pointer mouse. Fungsinya telah diperbaiki sehingga sebuah form tidak akan melebihi ukuran layar. Lalu apa...
READ MORE - VB6 Code - Form Yang Mengikuti Pointer Mouse