Not a Member Yet,
Click here to Register
How do you like the new design?






ID: 215
Viewed: 2838
Added: Apr 29, 2002
Version:
Snippet uploaded by: snippet
Written By: HeSaidJoe
Demo: Sorry, no demo



User Rated at: 0 Stars
Rate This:

Thank you for your vote. Please wait...

It appears you already voted for this snippet

It appears your vote value was empty

Posted by HeSaidJoe on 02-13-2001 06:20 PM 1.) I am working on a project that lets you edit a button's properties at runtime. The problem is that I want the properties to be the same each time the exe is loaded. ex: a button is blue, the user changes to button to red, the button is red the next time the exe is loaded, not blue. 2.) How do I make it so that when the user clicks a "Never show this again" checkbox, that it will never show the form again??

Highlight all by clicking in box
<!---Declaration--->
' Variant to hold 2-dimensional array returned by GetSetting. 
Dim MySettings As Variant
Public bNoShow As Boolean

Highlight All
<!---Code--->
Private Sub Check1_Click() 
If Check1.Value = 1 Then
bNoShow = True
Else
bNoShow = False
End If
End Sub

Private Sub Form_Load()
bNoShow = GetSetting(appname:="Project1", section:="Startup", _ Key:="Value", Default:=bNoShow)
If bNoShow = True Then
MsgBox "Load your main form"
Else
MsgBox "load your checkbox form"
End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
' Place some settings in the registry.
SaveSetting "Project1", "Startup", "Value", bNoShow
End Sub
;


No Comments to show

Please completely fill out the form below if you want to review this snippet. All reviews are subject to validation.


Replying to a Comment...


Adding your comment. Please wait...

Thanks for adding your comment!. After further review it will be added.

There was a problem adding your comment. Please try again.

Please complete all the fields in the form before sending.

© 2002 - 2017 snippetlibrary.com All Rights Reserved. Conditions