options.frm

太空船游戏例子源程序

VERSION 2.00
Begin Form frmOptions 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Options"
   ClientHeight    =   1692
   ClientLeft      =   3300
   ClientTop       =   3408
   ClientWidth     =   4248
   ControlBox      =   0   'False
   Height          =   2112
   Left            =   3252
   LinkTopic       =   "Form1"
   ScaleHeight     =   1692
   ScaleWidth      =   4248
   Top             =   3036
   Width           =   4344
   Begin VideoSoftElastic VSElastic1 
      Align           =   5  'Fill Container
      BevelChildren   =   1  'No Graphical
      BevelInner      =   7  'Shadow
      BevelInnerWidth =   4
      ConvInfo        =   OPTIONS.FRX:0000
      Height          =   1692
      IntBkg          =   &H00C0C0C0&
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4248
      Begin TextBox txtUserName 
         BackColor       =   &H00E0FFFF&
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   7.8
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   336
         Left            =   132
         MaxLength       =   40
         TabIndex        =   1
         Tag             =   "Enter your name here. This option can only be used in the registered version."
         Top             =   480
         Width           =   3888
      End
      Begin SSCheck ob3dHelp 
         Font3D          =   0  'None
         Height          =   204
         Left            =   2724
         TabIndex        =   2
         Tag             =   "Click here to turn theses annoying little messages off!"
         Top             =   180
         Width           =   168
      End
      Begin SSCommand cmdCancel 
         Caption         =   "Cancel"
         Font3D          =   0  'None
         ForeColor       =   &H000000FF&
         Height          =   348
         Left            =   2472
         TabIndex        =   3
         Tag             =   "Press herer to cancel changes to the options menu."
         Top             =   1104
         Width           =   948
      End
      Begin SSCommand cmd3dOK 
         Caption         =   "OK"
         Font3D          =   0  'None
         ForeColor       =   &H0000FF00&
         Height          =   348
         Left            =   960
         TabIndex        =   4
         Tag             =   "Press here to save chages to the options menu."
         Top             =   1104
         Width           =   948
      End
      Begin Label Label1 
         BackColor       =   &H8000000F&
         BackStyle       =   0  'Transparent
         Caption         =   "Help Notes"
         ForeColor       =   &H00FF0000&
         Height          =   216
         Left            =   3000
         TabIndex        =   5
         Top             =   180
         Width           =   1032
      End
      Begin Label Label8 
         BackColor       =   &H8000000F&
         BackStyle       =   0  'Transparent
         Caption         =   "User Name:"
         ForeColor       =   &H00FF0000&
         Height          =   216
         Left            =   132
         TabIndex        =   6
         Top             =   168
         Width           =   1032
      End
   End
End
Option Explicit

Sub cmd3dOK_Click ()
Dim res%


'set help notes
HelpNotes = ob3dHelp.Value


'Load User Name
UserName = txtUserName.Text

res% = StringToINI("USERINFO", "USER", UserName, ".\HFAX.INI")

If HelpNotes = True Then
    res% = StringToINI("HELP", "NOTES", "TRUE", ".\HFAX.INI")
Else
    res% = StringToINI("HELP", "NOTES", "FALSE", ".\HFAX.INI")
End If


Unload frmOptions

End Sub

Sub cmd3dOK_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
If HelpNotes = True Then
ReadyHelpTip cmd3dOK
End If
End Sub

Sub cmdCancel_Click ()

Unload frmOptions
End Sub

Sub cmdCancel_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
If HelpNotes = True Then
ReadyHelpTip cmdCancel
End If
End Sub

Sub Form_Load ()
Dim I As Integer
Dim FileName As String
'setup paused button
 
'set help notes
ob3dHelp.Value = HelpNotes
   

If ShareWareVersion = True Then
    
    'Load User Name
    txtUserName.Text = "SHAREWARE VERSION"
    'txtUserName.Enabled = False

Else
    'Load User Name
    txtUserName.Text = UserName

End If


End Sub

Sub ob3dHelp_Click (Value As Integer)
'set help notes
 HelpNotes = ob3dHelp.Value

End Sub

Sub ob3dHelp_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
If HelpNotes = True Then
ReadyHelpTip ob3dHelp
End If

End Sub

Sub txtImageSetDelay_KeyPress (KeyAscii As Integer)
Dim res As Integer
res = MsgBox("Use spin buttons to change values.", 16, "I'm Out")
KeyAscii = 0
Exit Sub


End Sub

Sub txtMsgSpeed_KeyPress (KeyAscii As Integer)
Dim res As Integer
res = MsgBox("Use spin buttons to change values.", 16, "I'm Out")
KeyAscii = 0
Exit Sub

End Sub

Sub txtUserName_KeyPress (KeyAscii As Integer)
frmHelpTip.Hide
End Sub

Sub txtUserName_LostFocus ()
If ShareWareVersion = True Then
    
    'Load User Name
    txtUserName.Text = "SHAREWARE VERSION"

End If

End Sub

Sub txtUserName_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
If HelpNotes = True Then
ReadyHelpTip txtUserName
End If

End Sub

Sub txtWPDefault_KeyPress (KeyAscii As Integer)
Dim res As Integer
res = MsgBox("Use drop down list box to change item.", 16, "I'm Out")
KeyAscii = 0
Exit Sub

End Sub