Membuat Link Menu

Apabila kita ingin membuat desain seperti pada word 2007, kita bisa menggunakan image untuk membuat tampilannya, dari word 2007 di print screen terus diedit di photoshop. Kira-kira seperti di bawah ini gambarnya, gambar dibawah ini adalah gabungan dari beberapa class objek.

Ketika kursor di sorotkan ke objek maka image akan berganti dengan image yang berkilau, kita bisa menambahkan script di mousemove dan mouseleave.
Contoh :
Ketikkan script dibawah ini di bagian mousemove

LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.menu_utama.isi_menu_file.Picture='C:\FOXPRO\MONOGRAFI2\IMAGES\BINGKAI_ISI_FILE_AURA.JPG'

dan ketikkan code berikut di mouseleave

LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.menu_utama.isi_menu_file.Picture='C:\FOXPRO\MONOGRAFI2\IMAGES\BINGKAI_ISI_FILE.JPG'

untuk link pada label bisa menggunakan script berikut :
Ketikkan script dibawah ini di bagian mousemove

LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.FontUnderline= .t.
this.FontBold= .T.
*this.BackColor=RGB(192,192,192)
this.BorderStyle= 0

dan ketikkan code berikut di mouseleave

LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.FontUnderline= .f.
this.FontBold= .f.
*this.BackColor=RGB(192,192,192)
this.BorderStyle= 0

dan apabila label diklik image background akan berubah, bisa menggunakan script berikut
contoh :
taruh di prosedur click

thisform.menu_utama.Picture='C:\FOXPRO\MONOGRAFI2\IMAGES\MENU_FILE.JPG'
thisform.menu_utama.isi_menu_file.Visible= .T.

Posted in: Foxpro