Find all our projects in development below.
All source code is GNU General Public License (GPL)
Browsing OptionsForm.frm (2.57 KB)
VERSION 5.00
Begin VB.Form OptionsForm
BorderStyle = 3 'Fixed Dialog
Caption = "Options"
ClientHeight = 975
ClientLeft = 45
ClientTop = 330
ClientWidth = 4710
ClipControls = 0 'False
Icon = "OptionsForm.frx":0000
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 975
ScaleWidth = 4710
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "Cancel"
Height = 350
Left = 3600
TabIndex = 1
Top = 520
Width = 975
End
Begin VB.CommandButton Command1
Caption = "OK"
Default = -1 'True
Height = 350
Left = 3600
TabIndex = 0
Top = 120
Width = 975
End
Begin VB.CheckBox Check3
Caption = "Pop up dialog on &message receipt"
Height = 255
Left = 120
TabIndex = 4
Top = 600
Width = 3375
End
Begin VB.CheckBox Check2
Caption = "&Always on top"
Height = 255
Left = 120
TabIndex = 3
Top = 360
Width = 3375
End
Begin VB.CheckBox Check1
Caption = "&Play sound when new message arrives"
Height = 255
Left = 120
TabIndex = 2
Top = 120
Width = 3375
End
End
Attribute VB_Name = "OptionsForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Optn_PlaySound = Check1.Value
Optn_AlwaysOnTop = Check2.Value
Optn_PopupDialog = Check3.Value
SaveRegString HKEY_LOCAL_MACHINE, RegAppRoot, "PlaySound", CStr(Optn_PlaySound)
SaveRegString HKEY_LOCAL_MACHINE, RegAppRoot, "AlwaysOnTop", CStr(Optn_AlwaysOnTop)
SaveRegString HKEY_LOCAL_MACHINE, RegAppRoot, "PopupDialog", CStr(Optn_PopupDialog)
AlwaysOnTop PopupForm, CBool(Optn_AlwaysOnTop)
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set Icon = Nothing
Check1.Value = Optn_PlaySound
Check2.Value = Optn_AlwaysOnTop
Check3.Value = Optn_PopupDialog
End Sub