You need to call EnableMenuItems after disabling RegisterApplication

> I need to know how to disable a menu option after some 
> parameters have been saved?
> 
> EXAMPLE CODE:
> 
>   Dim strout As TextOutputStream
>   Dim f As FolderItem
>   f = GetFolderItem("").Child("MyProgram_REG.ini")
> 
>   If Name.text="" or KeyCode.text="" then
>     MsgBox("Please ENTER the Registration Name and/or the 
> Registration Key 
> Code.   Please press 'OK' to continue...")
>     Exit
>   End If
> 
>   If KeyCode.text = registration.RegKeyCode then
>     // Save Registration Code
>     if f <> Nil then
>       strout = f.CreateTextFile
>       strout.WriteLine Name.text
>       strout.WriteLine KeyCode.text
>       strout.Close
>       MsgBox("The Registration has been saved.  Please press 'OK' to
> continue...")
>       Self.Close
>       // Disable Menu Options SendforRegistration and 
> RegisterApplication
>       SendforRegistration.Enabled = False
>       RegisterApplication.Enabled = False
>     End If
>   Else
>     MsgBox("Please ENTER a Valid Registration Key Code 
> Number.   Please 
> press 'OK' to continue...")
>   End If
> 
> Ok, I have tried this a few times and it will not disable the 
> Menu options after a SAVE, but it will work if you EXIT then 
> re-open the program.  How do I get the menu option to be 
> disabled after I save the KeyCode, without exiting and 
> reopening the program?
> 
> Note, I have this on a few other save parameter options that 
> it will only work AFTER you Exit then re-open the program.
> 
> I need help on this one.
> 
> Jonathon 
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to