Tom,
So just add this into the code?
// Disable Menu Options SendforRegistration and RegisterApplication
SendforRegistration.Enabled = False
RegisterApplication.Enabled = False
Call EnableMenuItems
Something like that?
Jonathon
----- Original Message -----
From: "Dixon, Tom" <[EMAIL PROTECTED]>
To: "Getting Started" <[email protected]>
Sent: Sunday, January 15, 2006 5:08 PM
Subject: RE: Disable Menu Option onced Saved
Mime-Version: 1.0
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain; charset=us-ascii
You need to call EnableMenuItems after disabling RegisterApplication
I need to know how to disable a menu option after some=20
parameters have been saved?
=20
EXAMPLE CODE:
=20
Dim strout As TextOutputStream
Dim f As FolderItem
f =3D GetFolderItem("").Child("MyProgram_REG.ini")
=20
If Name.text=3D"" or KeyCode.text=3D"" then
MsgBox("Please ENTER the Registration Name and/or the=20
Registration Key=20
Code. Please press 'OK' to continue...")
Exit
End If
=20
If KeyCode.text =3D registration.RegKeyCode then
// Save Registration Code
if f <> Nil then
strout =3D 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=20
RegisterApplication
SendforRegistration.Enabled =3D False
RegisterApplication.Enabled =3D False
End If
Else
MsgBox("Please ENTER a Valid Registration Key Code=20
Number. Please=20
press 'OK' to continue...")
End If
=20
Ok, I have tried this a few times and it will not disable the=20
Menu options after a SAVE, but it will work if you EXIT then=20
re-open the program. How do I get the menu option to be=20
disabled after I save the KeyCode, without exiting and=20
reopening the program?
=20
Note, I have this on a few other save parameter options that=20
it will only work AFTER you Exit then re-open the program.
=20
I need help on this one.
=20
Jonathon=20
_______________________________________________
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>
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.14.18/230 - Release Date: 1/14/2006
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.14.18/230 - Release Date: 1/14/2006
_______________________________________________
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>
