Temukan Rahasia 4 langkah belajar HTML, PHP & MySQL. Klik Disini!

Tutorial Pemograman VB 6.0: Merancang Sendiri Tampilan Aplikasi




Mau Cari Informasi tentang Teknologi/Game? Cari Artikel Disini!


Terbit 23.06.2007. Edisi Jun 2007. Sudah ada 98 Komentar.
DHINATACOM

Seringkali dalam membuat aplikasi dalam lingkungan Visual Basic, kita sudah disuguhkan dengan bentuk jendela dengan tampilan yang sama. Bagaimana kalau kita ingin membuat bentuk tampilan jendela sesuai dengan selera kita ? Bisa, karena tutorial kali ini kita akan membuat suatu bentuk jendela dengan TitleBar, tombol Minimize, Maximize dan Exit ala sendiri dan sangat mudah sekaligus sederhana dalam pembuatannya. Sudah tidak sabar ? Kalau begitu kita langsung saja ke langkah yang pertama yaitu,

Buatlah form untuk merancang tampilan jendela aplikasi seperti terlihat pada gambar 1. Kontrol-kontrol yang ditambahkan pada form tersebut adalah :
- 1 buah Label
- 5 buah PictureBox

Ubahlah properti-properti dari kontrol-kontrol tersebut seperti tertera pada tabel 1.

Kontrol

Properti

Nilai

Label1 BackStyle 0 - Transparent
(Name) lblTitle
Caption Jendela buatanku
ForeColor &H00FFFFFF&
Picture1 BackColor &H000080FF&
BorderStyle 0 - None
Width 6735
Height 375
(Name) PicTitleBar
Picture2 BackColor &H00008000&
BorderStyle 0 - None
Width 255
Height 255
(Name) PicMinimize
ToolTipText Minimize
Picture3 BackColor &H00800000&
BorderStyle 0 - None
Width 255
Height 255
(Name) PicMaximize
ToolTipText Maximize
Picture4 BackColor &H00000080&
BorderStyle 0 - None
Width 255
Height 255
(Name) PicExit
ToolTipText Exit
Picture5 BackColor &H000080FF&
BorderStyle 0 - None
Width 6735
Height 135
(Name) PicFootBar
Form1 Caption JENDELA BUATANKU
BorderStyle 0 - None
ShowInTaskbar True
StartUpPosition 2 - CenterScreen
Width 6720
Height 4440

Tabel 1.

Sebagai keterangan, kotak-kotak kecil  berwarna pada Form masing-masing memiliki fungsi yang berbeda. Kotak berwarna hijau akan diberi fungsi Minimize jendela, sebaliknya kotak berwarna biru akan kita beri fungsi Maximize jendela , dan kemudian kotak berwarna merah sebagai fungsi untuk menutup jendela atau exit.  Sebagaimana jendela aplikasi pada umumnya, jendela harus mudah dipindah-pindah yang bisanya mendrag bagian TitleBar.

Maka pada PicTitleBar, kita akan memasukkan kode program yang dapat menggeser jendela seperti yang tertera pada Listing 1. Sekarang buat Module dan kemudian isi dengan kode program pada Listing 2 untuk mendeklarasikan fungsi yang dibutuhkan untuk mendrag jendela. Pada Listing 3 terdapat kode program untuk PicMinimize supaya ketika kita klik kotak warna hijau , tampilan jendela dalam keadaan minimize. Sekarang bagaimana mengatur tampilan menjadi Maximize ? Isi kode program pada PicMaximize dan PicTitleBar seperti yang terlihat pada Listing 4 .

Untuk mengaktifkan Maximize kita perlu mengatur lebar dan tinggi jendela baik dalam keadaan normal atau maximize seperti pada Listing 5. Ukuran-ukuran yang ada pada Listing 5 hanya berlaku bila jendela yang kita buat berada pada layar monitor yang berresolusi 1024x768 pixel. Di luar resolusi itu hasil tampilan jendela akan terlihat berantakan. Maka jika itu terjadi, kita dapat menyesuaikannya dengan mengatur kembali  nilai lebar dan tinggi jendela aplikasi yang kita buat.

Seperti kode program yang tertera pada Listing 5, kita mengatur agar saat jendela dalam keadaan normal, ToolTip pada PicMaximize menampilkan tulisan ”Maximize”. Saat tampilan dalam keadaan Maximize, ToolTip menampilkan tulisan ”Restore Down”.   Langkah yang terakhir, pada PicExit kita memasukkan kode program yang berfungsi menutup aplikasi seperti yang tertera pada Listing 6. Supaya tampilan lebih menarik lagi, kita juga dapat mengimpor gambar pada setiap kontrol PictureBox.  Tutorial berikutnya kita akan mencoba memeberikan efek trasparan pada jendela aplikasi yang kita buat. Selamat mencoba !!!

Listing 1

CODE:
  1. Private Sub PicTitleBar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  2. ‘Jika tampilan dalam keadaan Maximize, Jendela tidak akan pernah dapat digeser-geser
  3. If  Me.WindowState <> 2 Then
  4. GeserJendela Me
  5. End If
  6. End Sub

Listing 2

CODE:
  1. Public  Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  2. (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam _
  3. As Any) As Long
  4. Declare Sub ReleaseCapture Lib "user32" ()
  5.  
  6. Public Sub GeserJendela(TheForm As Form)
  7. ReleaseCapture
  8. Call SendMessage(TheForm.hWnd, &HA1, 2, 0&)
  9. End Sub

Listing 3

CODE:
  1. Private Sub PicMinimize_Click()
  2. Me.WindowState = 1
  3. Me.PicMinimize.BackColor = &H8000&
  4. End Sub

Listing 4

CODE:
  1. Private Sub PicMaximize_Click()
  2. AksiMaximize
  3. Me.PicMaximize.BackColor = &H800000
  4. End Sub
  5.  
  6. Private Sub PicTitleBar_DblClick()
  7. AksiMaximize
  8. End Sub
  9.  
  10. Private Sub lblTitle_DblClick()
  11. AksiMaximize
  12. End Sub
  13.  
  14. Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  15. geser
  16. End Sub

Listing 5

CODE:
  1. Sub AksiMaximize()
  2. If  Me.WindowState = 2 Then
  3. Me.WindowState = 0
  4. Me.PicMinimize.Left = 5640
  5. Me.PicMaximize.Left = 6000
  6. Me.PicExit.Left = 6360
  7. Me.PicMaximize.ToolTipText = "Maximize"
  8. Me.PicFootBar.Top = 4320
  9. Else
  10. Me.WindowState = 2
  11. Me.PicTitleBar.Width = 15400
  12. Me.PicMinimize.Left = 14200
  13. Me.PicMaximize.Left = 14600
  14. Me.PicExit.Left = 15000
  15. Me.PicMaximize.ToolTipText = "Restore Down"
  16. Me.PicFootBar.Width = 16000
  17. Me.PicFootBar.Top = 11400
  18. End If
  19. End Sub

Listing 6

CODE:
  1. Private Sub PicTitleBar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  2. Me.PicExit.BackColor = &H80&
  3. Me.PicMaximize.BackColor = &H800000
  4. Me.PicMinimize.BackColor = &H8000&
  5. End Sub
  6.  
  7. Private Sub PicMaximize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  8. Me.PicMaximize.BackColor = &HFF0000
  9. End Sub
  10.  
  11. Private Sub PicMinimize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  12. Me.PicMinimize.BackColor = &HFF00&
  13. End Sub

Listing 7

CODE:
  1. Private Sub PicExit_Click()
  2. End
  3. End Sub

Baca Juga:







Powered by FeedBlitz

komentar pembaca DHINATACOM

dughtt....
kuk ga bisa di copy cii mas programmer..
kasih twu dunn caranya.... ngacir

 
 
 

mas kasih tau yang banyak dunkkkkkkk!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!11 konslet

 

balassssssssssssssssssss cepaatttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? kembar

Q pengen tw gmn cara mbwt program perpus.....
Sbelumny makasih yaw!!!!......

hehe..... ayuk musik

 
 

mana????????????????????????????????????????? bye

 
 

mas, saya mau belajar visual basic. tapi ada g langkah-2 mempelajari cepat visual basic. karena saya belum tahu benar visual basic.
tq ngacir

akan saya usahakan untuk menulisnya :)

mas beri saya panduan cara membuat listing program di vb,,,
karena saya kesulitan membuat listing program pada vb..

(Comments wont nest below this level)
 
 
 

artikelnya lumayan bagus,, Keep learning newbie

 

mas saya ingin tau lebih banyak lagi tentang vb

 

Terima kasih saya ucapkan mas...

Saya berusaha buat praktek dulu yess

 

Permisi.... ada ga yach yang mau ngasih taw gmn caranya ngesave file kesuatu directori menggunakan commondialog, atau kalo gak cara yg mudah n praktis. ide
Thanks yaw...

 

mas tolong dong kirim ttg visual basic y yg trbaru ok kalau ada ttg jaringanboleh juga thxxx tendang

 

mas ada aplikasi sistem kepegawaian pake vb 6 tlong lgi buat ta.... thank

 

sial aduuhh aku dapet tugas buat program VB,... bisa bantu gak??
aq mw buat program perhitungan bunga bank...
tolong bantu aq...

klu anda bisa bantu tolong jawab email saya..

trma kasih yess mimpi

 

hai .....

ikut gabung yah.........

hai kawan bantuin aku bikin program pake vb donk

 

om,,, ga da tutorialnya bentuk pdf ?????

hehehehehehehe

 

hey,,,bntuin bwt TA donk...........
Duhh bngung nech mw bwt TA pke VB
ngacir kembar nangis

 

senam
tolong dong aq dikash cra2 membuat tampilan visual basic lebih bagus

 

minta script
smilenya donk

ngiler

 

thanksss bgt...

cayo programmer

 

duh bisa kasih ide ga???tlng
gw mo bkin ta pake vb
kira2 bkin apa y???
damn

 
elfryanty2009-03-24 02:19:42

bagus mas .... saya mohon tolong tampilkan aplikasinya dalam membuat database sederhana ya .... terima kasih banyak .... ide

 

musik oc juga 2 ada yang baru g??

 

yess dapat ilmu baru lg..... thanks..... numpang baca2 e.......

 

dapat ilmu baru.. lagi
woro-woro (informasi) bagi rekan2 yang pingin punya program perpustakaan dengan VB 06 kunjungi aja . http://elkim.wordpress.com/2008/07/15/sistem-informasi-perpustakaan-dengan-visual-basic-06/

 

thanks infonya......
bahas lebih banyak lg tentang VB ya....
coz aq jg lg belajar.... ide

 

malu koq ga bisa di copy ya mas?
klo bisa kirimkan ke email aq dong mas
thank`s ide

 

bos gw minta source codenya script VB/langkh2 ngubah plain text menjadi chiper text..kirim aj k email q y bos..please butuh bgt..

 

buat tampilan nya menarik
bang ,,,,,,,,,,,,,,,
sengan vb 6.0 ide

 

hallo!!bisa buat gambar animasi gak gatau
tolong ya!! ayuk yess ayuk

 
miss nothing2009-05-10 05:30:30

ide think smart....

 
miss nothing2009-05-10 05:49:21

Bai dhe we.... sinchan
cara convert VB6 ke VB Net gimana y?? kagak perlu coding ulang kan?? tyuzz, cara yang paling efektif nurut teman2 semua kira-kira gimana ??

 
se_60r3n62009-05-13 18:39:53

waktunya mepet banget nih buat nyelesein TA.....
Bantuin donkz......pusing.......
nangis nangis nangis nangis nangis

 

Bagi program VB yg cocok buat skripsi donx

 

tengkiu wadh infonya . . kembangin teuzz iach

 

bang gimana caranya buat form transaksi penjualan plus pembelian dengan visual basic 6.0

balez GPL y.... mksh

 

duh mz kux blm dblz g cih

 

bantuin aku dong bwt TA ku. bulan juli harus selese,,,,aku tunggu yahhhh,, nyerah ga tauma kowdong

 

hohoho mantap bro informasinya heheheeh^^ salam kenal ya bro ^^

 

aduh................, boleh minta tolong ga? lgi buat tugas akhir pake VB nih.... bulan depan sidang.......
bisa informasssin tentang aplikasinya ga??? damn senam males

 

yuupz...
mksih ya mz,,yah bs bwt tmbh2 pgthuanlh
nie q jg lg TA nih, mo pke aplks VB jg...
msh bgug,,, mo bwt yg gmn..??
tlg q yah....bnt q...

 

nangis aqlom tahu banyak
tambahin lagi donk artikelnya?????????????
nangis nangis nangis nangis nangis bye nangis nangis nangis nangis nangis nangis nangis nangis nangis nangis nangis

 

mas, tolong coding cara perhitungan bunga kredit bank (flat, anuitas dan efektif), susah bener nampilkan di grid nya.

 

ngacir Mas listing Program untuk Membuat Animasi dalam tampilan VB ada G?!...COZ lg mulai nyusun nie untuk skripsi..! thank U

 

ngacir ngacir mas, emg kolom "listing" nya ga bs d'lebarin ya..?! rpot tw,, soalnya, gne2 Qu jrusan RPL yg pgn cri ilmu byk lg, tp klo sparo" bgtu gmn..?!
kembar konslet nocomment malu mimpi mimpi licik ide capedeh yess yess tipi tendang sombong sinchan sial sial senam nyerah nyerah ngiler nggaya nggaya nangis musik musik males love love gatau damn bye ayuk

 
 

bagusss niiieh..hehehehehe
:putnam:

 
 

mas kasih tau aku lebih banyak lagi dunnn... dari dasar gitulohhh. aku oenget banget bisa VB love ayuk sinchan

 
 

artikelnya bagus, salam kenal yach...
kebetulan aq hoby ama vb.....

 

musik
Dugem nech...thanks buat info2nya ya......

 

wah...bagus...lagi dunk infonya... ngacir tipi kembar
mau juga dikirim ke emailq, klo ada yg lain...hehehe...mksh..

 
 

oh ya,,,ada yang puya tutorialnya bikin kamus java pake VB g???
aq g ngerti VB tapi aq pngen belajar sapa tau ntar bisa,,he,,he,,
mohon bantuannya yach...

 
 
 

tipi capedeh Pa ada yg versi PDF untuk bljr VB
karna di rmh ku internetnya lambat lama buka web....
Thanks...!!!

 

Mksih ats pnjlasan Vb. mbtu tgas...kl ad yg lain dkrim d email q ya mas..
trima ksih.. ngacir musik kembar ayuk

 

cara membuat konsep pengulanggan(loop) lewat visual basic 6.1 kembar senam licik ide mimpi tipi yess

 
 

ternyata visual basic menyenangkan ya masss?!!!!!!!!

 
 

ayuk jogetzzz... yukz..., Salam kenal??? q pelajar yang juga belajar smg yang dah lebih bisa akan lebih bisa nularin ilmunya.... sinchan

 
Juni nadeak2010-01-18 11:58:05

saya lupa vb dah lama bgt ga megang gimana ya biar inget lagi? malu love ide ngacir2 nosara

 
 
jozz frizky2010-01-26 14:10:49

recseller ....
pusing juga nee... bye ...dr td tu gwa nyari situs tentg pemogramn VB,ga ad yg baguss.... capedeh2

tlog dog....... mimpi ....

Thanks
......

 
keiyOOzi MooLeen2010-01-27 14:36:38

ngiler cara Mudah membuat visual basic itu gmna tooch .....

 
 

musik bingung bljr VB,NETBEANS,JAVA dll

 

musik tpi klw bljr pake music itu lebih nyaman n lebih efektif bljrnya.....

 

moga ja aq bsa mmbwt na kk.... salaman

 

mimpi kalau pake VB bikin program game buat TK gimana enaknya yah.....??? makasih buanget...

 

cekemail MAS BLEH MINTA KIRIMAN RANCANGAN PROGRAM PERPUSTAKAAN DR VB.60 TRUS TAMBAH LISTINGNYA JG.TRUS GMN CARANYA GBUNGIN VB KE WEB ....?BS GK
AKU TUNGGU YA BLESANYA KLO BS SCEPATNYA

 

coy ...
yang punya blog cimbay amat ini blog
di kasih hasilnya dong biar lebuh lengkap!

TR: xxx

kayanya kenal deh sama kata kat "cimbay" , kalo boleh tau dapet dari mana tuh kata "cimbay" ? cendol

(Comments wont nest below this level)
 
 
 

coyyy ...
cimbay amat ya ni blog
kasih hasilnya dong biar lebih lengkap!

 
Slyterin2010-02-10 08:44:58

damn pusing...!!! "masih cupu"

love kk / om / pak ada tutor bwt bikin tabel listing nda... mimpi

yess SEMANGAT".......!!!

 
dewa jaya smk mas2010-02-10 12:50:10

recseller mas.... bisa kasi tw gak kisi-kisi contoh proram ya minimal perpustakaan... dea ada projeck work.. tp gak bis buat.. sama codingnya yaw... heeeee

 

mas scriptnya satu button dlm dua fungsi gmana yow...? mas tau po ra??conthnya tombol bayar skaligus simpan, ngebut mas ngacir2

 

belajar trus dari kaca... tipi ....mungkinkah......... recseller

 

minta izin 4 copy yach,.??? ngiler

 

[...] Merancang sendiri tampilan aplikasi. Seringkali dalam membuat aplikasi di lingkungan visual basic kita disuguhi oleh tampilan jendela  yang sama. Padahal kita dapat merancang sendiri tampilan tampilan jedela sesuai dengan selera kita sendiri. Sebagai contoh kita dapat membuat suatu betuk jendela title bar, tombol minimize, maximize, dan tombol exit kita sendiri. Untuk slengkapnya dapat dibaca di: http://dhinata.com/tutorial-pemograman-vb-60-merancang-sendiri-tampilan-aplikasi.html [...]

 
 
Anti Copy Paste2010-02-23 00:30:35

Bener nih source code diatas buatan kamu sendiri??? batamerah apa copy paste dari web lain??? marah ngacir

 

update lagi dunk bro ngacir2 senam kembar

 

gmn buat program sistem gaji pegawai menggunakan vb, and sql server2000...
trim

 

saya mau tahu yang terbaru dari vb.
thanks kembar sinchan kembar senam bye batamerah cendol ngacir ngacir ngacir ngacir ngacir ngacir ngacir ngacir ngacir kembar

 
 
 

heem , boleh juga sih tapi ada yang mau saya tanya ada ga tutorial buat method adodc.receordset.find ? ide
bales ya soalnya buat tugas capedeh

 
Nama (harus diisi)
E-mail (harus diisi - tidak akan ditampilkan)
Alamat Website/Blog Anda. (tidak wajib diisi)

Komentar Anda (smaller size | larger size)
yess . tipi . tendang . sombong . sinchan . sial . senam . nyerah . ngiler . nggaya . nangis . musik . males . love . konslet . kembar . gatau . damn . bye . ayuk . ngacir . nocomment . malu . mimpi . licik . ide . capedeh . cendol . batamerah . salaman . recseller . cekemail . maho . marah . najis . takut . ngacir2 . sundul . janganribut . capedeh2 . nosara . kacau .
Petunjuk komentar:
1. Tolong tulis komentar yang berhubungan dengan topik artikel. Jangan mengirim SPAM!
2. Tag standar HTML yang diperbolehkan:
    <a href> <blockquote> <code> <strike> <strong>
3. Komentar yang tidak berhubungan atau SPAM akan dihapus.
4. Klik gambar emoticon diatas untuk menampilkannya pada komentar Anda.

Catatan: Beberapa emoticon yang ditampilkan merupakan hak cipta dari Kaskus - The Largest Indonesian Community.