"This menu can only be called from a Top-level form. Ensure that yout form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details."
Panic mode : on
Apalagi setelah form yang dimaksud sudah di set ShowWindow menjadi 2. As Top-level form, pesan tsb masih tetap muncul.
Terus cari GOOGLE suruh tambah perintah : Do MENU.mpr WITH, .T.. di FORM yang memanggil MENU.MPR tsb, hasil tetap muncul error JUGA.....
Apa akal sekarang????
Berikut listing programnya :
CODING .PRG :
PUBLIC vcPASS
CLOSE DATABASE ALL
CLEAR ALL
CLOSE ALL
SET TALK OFF
SET STAT OFF
SET AUTOSAVE ON
SET CENTURY ON
SET SAFETY Off
PUSH MENU _MSYSMENU
RELEASE ALL
do form form_menu && 'Tampilan pemanis'
&& di Methode INIT ada perintah : Do menu.mpr with this,.t.
&& showWindows : 2. As Toplevel form
do form form_login && Minta validasi password
&& && showWindows : 2. As Toplevel form
&& ada validasi password (vcPASS)
- && isi Comman1.Click pada forn_login :
- && cPASS=ALLTRIM(THISFORM.TEXT1.Value)
- &&SEEK cPASS
- &&IF FOUND()
- && vcPASS="BENAR"
- && MESSAGEBOX("Ok",0,"Info")
- && thisform.release
- &&ELSE
- && vcPASS="SALAH"
- && MESSAGEBOX("Salah Password",0,"Info")
- && THISFORM.TEXT1.SETFOCUS
- &&ENDIF
READ events
&& hasil Return dari DO FORM FORM_LOGIN
IF vcPASS="BENAR"
READ EVENTS
quit
ENDIF
HASILNYA : OK :-)
Bagi MASER dan SENIOR VFP, Mohon maaf dan Bantuan jika ada salah...
Mantab Gan..
BalasHapusthanks por share...
Salam Blogger