Hanya sebuah ide kecil tentang Tampilan Menu dalam sebuah Aplikasi vFP

Berikut ini contoh tampilan Menu dalam Aplikasi GLS@XP (General Ledger System), yang saya buat dengan cara-cara yang sangat konvensional hanya dengan memanfaatkan Form dan PageFrame plus polas-poles dikit sana-sini (PageFrame digunakan untuk tampilan SubMenu).
Sebagai gambaran, dalam contoh disamping - pada Event ThisForm.Menu2.Click (Laporan) isinya adalah:
MenuKlik="Menu2"
ThisForm.Shape1.Top=(ThisForm.MN2.Top)-8
ThisForm.Shape2.Top=(ThisForm.MN2.Top)
ThisForm.Label1.Caption=UPPER(This.Caption)
ThisForm.Menu1.ForeColor= 0
ThisForm.Menu2.ForeColor= lnColor9
ThisForm.Menu3.ForeColor= 0
ThisForm.Menu4.ForeColor= 0
ThisForm.Menu5.ForeColor= 0
This.Refresh
ThisForm.PageframeMenu.PageOutput.SetFocus
(Klik Gambar untuk melihat gambar yang lebih besar)
Sedikit Penjelasan:
1. Baris ke 1 'MenuKlik' merupakan Variable untuk mengingat Menu mana yang terakhir diKlik agar saat Form Menu dipanggil Cursor dan PageFrame akan langsung mengAktifkan Menu terakhir.
2. Baris ke 2 dan 3 untuk memindahkan Shape ke Menu Utama yang sedang Aktif
3. Baris ke empat mengganti label judul diatas PageFrame agar sama dengan Menu Utama yang sedang Aktif. (Tab PageFrame saya tutupi dengan Label judul tersebut)
4. Baris 5 s/d 9 merubah warna Font Menu Utama: yang sedang aktif dengan warna putih (lnColor9) dan yang tidak sedang dipilih berwarna default (hitam).
5. Baris 11 Untuk mengaktifkan salah satu Page dalam PageFrame yang isinya merupakan Sub Menu dari Menu yang sedang dipilih.

Saya gunakan sebuah PageFrame dengan 5 Page sesuai dengan jumlah MenuUtama.
Entry Data SubMenunya Page1, Laporan SubMenunya di Page2, Master Data SubMenunya di Page3 dst.
Selanjutnya tinggal masukkan saja perintah-perintah sesuai kebutuhan dalam masing-masing Label yang ada dalam tiap Page dalam PageFrame pada Click Event-nya.
Contoh tampilan diatas:
ThisForm.PageFrame.Page2.Label11.Click - isinya: Do Form NrcSaldo
ThisForm.PageFrame.Page2.Label12.Click - isinya: Do Form BukuPemb
ThisForm.PageFrame.Page2.Label2.Click - isinya: Do Form LapKeu
ThisForm.PageFrame.Page2.Label3.Click - isinya: Do Form Audit
ThisForm.PageFrame.Page2.Label4.Click - isinya: Do Form CashFlow
dst.
Beres dah.., kita bisa punya menu sendiri yang uniq sesuai selera kita tanpa harus terpaku pada system menu yang sudah umum digunakan.