You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
579 lines
20 KiB
579 lines
20 KiB
VERSION 5.00
|
|
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
|
|
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
|
|
Begin VB.MDIForm frmMain
|
|
BackColor = &H8000000C&
|
|
Caption = "Profile Calculator"
|
|
ClientHeight = 6195
|
|
ClientLeft = 1740
|
|
ClientTop = 5385
|
|
ClientWidth = 9480
|
|
Icon = "frmMain.frx":0000
|
|
NegotiateToolbars= 0 'False
|
|
ScrollBars = 0 'False
|
|
Begin ComctlLib.Toolbar tbToolBar
|
|
Align = 1 'Align Top
|
|
Height = 420
|
|
Left = 0
|
|
TabIndex = 0
|
|
Top = 0
|
|
Width = 9480
|
|
_ExtentX = 16722
|
|
_ExtentY = 741
|
|
ButtonWidth = 1402
|
|
ButtonHeight = 582
|
|
AllowCustomize = 0 'False
|
|
Wrappable = 0 'False
|
|
Appearance = 1
|
|
ImageList = "imlIcons"
|
|
_Version = 327682
|
|
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
|
|
NumButtons = 7
|
|
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
|
|
Key = "Clear"
|
|
Object.ToolTipText = "Clear"
|
|
Object.Tag = ""
|
|
ImageIndex = 1
|
|
EndProperty
|
|
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
|
|
Object.Tag = ""
|
|
Style = 3
|
|
MixedState = -1 'True
|
|
EndProperty
|
|
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
|
|
Key = "Calc"
|
|
Object.ToolTipText = "Calculator"
|
|
Object.Tag = ""
|
|
ImageIndex = 2
|
|
EndProperty
|
|
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
|
|
Object.Tag = ""
|
|
Style = 3
|
|
MixedState = -1 'True
|
|
EndProperty
|
|
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
|
|
Key = "Copy"
|
|
Object.ToolTipText = "Copy"
|
|
Object.Tag = ""
|
|
ImageIndex = 3
|
|
EndProperty
|
|
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
|
|
Object.Tag = ""
|
|
Style = 3
|
|
MixedState = -1 'True
|
|
EndProperty
|
|
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
|
|
Key = "Paste"
|
|
Object.ToolTipText = "Paste"
|
|
Object.Tag = ""
|
|
ImageIndex = 4
|
|
EndProperty
|
|
EndProperty
|
|
Begin VB.ComboBox cmbProfile
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
ItemData = "frmMain.frx":0442
|
|
Left = 3840
|
|
List = "frmMain.frx":0461
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 1
|
|
Top = 0
|
|
Width = 5535
|
|
End
|
|
End
|
|
Begin MSComDlg.CommonDialog CommonDialog1
|
|
Left = 4560
|
|
Top = 2880
|
|
_ExtentX = 847
|
|
_ExtentY = 847
|
|
_Version = 393216
|
|
End
|
|
Begin ComctlLib.ImageList imlIcons
|
|
Left = 8880
|
|
Top = 4800
|
|
_ExtentX = 1005
|
|
_ExtentY = 1005
|
|
BackColor = -2147483643
|
|
ImageWidth = 20
|
|
ImageHeight = 16
|
|
MaskColor = 12632256
|
|
_Version = 327682
|
|
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
|
|
NumListImages = 4
|
|
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
|
|
Picture = "frmMain.frx":04E9
|
|
Key = ""
|
|
EndProperty
|
|
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
|
|
Picture = "frmMain.frx":0B63
|
|
Key = ""
|
|
EndProperty
|
|
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
|
|
Picture = "frmMain.frx":118D
|
|
Key = ""
|
|
EndProperty
|
|
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
|
|
Picture = "frmMain.frx":1807
|
|
Key = ""
|
|
EndProperty
|
|
EndProperty
|
|
End
|
|
Begin VB.Menu mnuFile
|
|
Caption = "&File"
|
|
Begin VB.Menu mnuFileExit
|
|
Caption = "E&xit"
|
|
End
|
|
End
|
|
Begin VB.Menu mnuEdit
|
|
Caption = "&Edit"
|
|
Begin VB.Menu mnuEditCopy
|
|
Caption = "&Copy"
|
|
Shortcut = ^C
|
|
End
|
|
Begin VB.Menu mnuEditPaste
|
|
Caption = "&Paste"
|
|
Shortcut = ^V
|
|
End
|
|
Begin VB.Menu mnuEditClear
|
|
Caption = "C&lear"
|
|
Shortcut = ^X
|
|
End
|
|
Begin VB.Menu mnuEditBar1
|
|
Caption = "-"
|
|
End
|
|
Begin VB.Menu mnuEditCalc
|
|
Caption = "C&alculator"
|
|
End
|
|
End
|
|
Begin VB.Menu mnuWindow
|
|
Caption = "&Profile"
|
|
Begin VB.Menu mnuProfileData
|
|
Caption = "&Data Profile"
|
|
End
|
|
Begin VB.Menu mnuProfileVoice
|
|
Caption = "&Voice Profile"
|
|
End
|
|
Begin VB.Menu mnuProfileResponse
|
|
Caption = "&Response State"
|
|
End
|
|
Begin VB.Menu mnuProfileDCB
|
|
Caption = "D&CB"
|
|
End
|
|
Begin VB.Menu mnuProfileInactivity
|
|
Caption = "&Inactivity Scale"
|
|
End
|
|
Begin VB.Menu mnuProfileSpeaker
|
|
Caption = "S&peaker Phone Specs"
|
|
End
|
|
Begin VB.Menu mnuProfileXformID
|
|
Caption = "&XformID (Win9x)"
|
|
End
|
|
Begin VB.Menu mnuProfileXformIDNT
|
|
Caption = "X&formID (NT)"
|
|
End
|
|
Begin VB.Menu mnuProfileTerminalMode
|
|
Caption = "&Terminal Mode"
|
|
Visible = 0 'False
|
|
End
|
|
Begin VB.Menu mnuProfileScriptMode
|
|
Caption = "&Script Mode"
|
|
Visible = 0 'False
|
|
End
|
|
Begin VB.Menu mnuProfileUnimodemId
|
|
Caption = "&UnimodemID"
|
|
End
|
|
End
|
|
Begin VB.Menu mnuHelp
|
|
Caption = "&Help"
|
|
Begin VB.Menu mnuHelpAbout
|
|
Caption = "&About Profile Calculator..."
|
|
End
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmMain"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
|
|
|
|
Private Sub cmbProfile_Click()
|
|
Dim Profile As String
|
|
Profile = cmbProfile.Text
|
|
mnuProfileData.Checked = False
|
|
mnuProfileDCB.Checked = False
|
|
mnuProfileInactivity.Checked = False
|
|
mnuProfileResponse.Checked = False
|
|
mnuProfileSpeaker.Checked = False
|
|
mnuProfileVoice.Checked = False
|
|
mnuProfileXformID.Checked = False
|
|
mnuProfileXformIDNT.Checked = False
|
|
mnuProfileUnimodemId.Checked = False
|
|
'mnuProfileScriptMode.Checked = False
|
|
'mnuProfileTerminalMode.Checked = False
|
|
HideAll
|
|
|
|
Select Case Profile
|
|
Case "Data Profile"
|
|
With frmData
|
|
.Top = 0
|
|
.Left = 0
|
|
.Height = fMainForm.Height - 1205
|
|
.Width = fMainForm.Width - 120
|
|
.Show
|
|
End With
|
|
mnuProfileData.Checked = True
|
|
Case "Voice Profile"
|
|
With frmVoice
|
|
.Top = 0
|
|
.Left = 0
|
|
.Height = fMainForm.Height - 1205
|
|
.Width = fMainForm.Width - 120
|
|
.Show
|
|
End With
|
|
mnuProfileVoice.Checked = True
|
|
Case "Response State"
|
|
With frmResponse
|
|
.Top = 0
|
|
.Left = 0
|
|
.Height = fMainForm.Height - 1205
|
|
.Width = fMainForm.Width - 120
|
|
.Show
|
|
End With
|
|
mnuProfileResponse.Checked = True
|
|
Case "DCB"
|
|
With frmDCB
|
|
.Top = 0
|
|
.Left = 0
|
|
.Height = fMainForm.Height - 1205
|
|
.Width = fMainForm.Width - 120
|
|
.Show
|
|
End With
|
|
mnuProfileDCB.Checked = True
|
|
Case "Inactivity Scale"
|
|
With frmInactivity
|
|
.Top = 0
|
|
.Left = 0
|
|
.Height = fMainForm.Height - 1205
|
|
.Width = fMainForm.Width - 120
|
|
.Show
|
|
End With
|
|
mnuProfileInactivity.Checked = True
|
|
Case "Speaker Phone Specs"
|
|
With frmSpeakerPhone
|
|
.Top = 0
|
|
.Left = 0
|
|
.Height = fMainForm.Height - 1205
|
|
.Width = fMainForm.Width - 120
|
|
.Show
|
|
End With
|
|
mnuProfileSpeaker.Checked = True
|
|
Case "XformID (Win9x)"
|
|
With frmXformID
|
|
.Top = 0
|
|
.Left = 0
|
|
.Height = fMainForm.Height - 1205
|
|
.Width = fMainForm.Width - 120
|
|
.Show
|
|
End With
|
|
mnuProfileXformID.Checked = True
|
|
Case "XformID (NT)"
|
|
With frmXformIDNT
|
|
.Top = 0
|
|
.Left = 0
|
|
.Height = fMainForm.Height - 1205
|
|
.Width = fMainForm.Width - 120
|
|
.Show
|
|
End With
|
|
mnuProfileXformIDNT.Checked = True
|
|
' Case "Terminal Mode"
|
|
' With frmTerminalMode
|
|
' .Top = 0
|
|
' .Left = 0
|
|
' .Height = fMainForm.Height - 1155
|
|
' .Width = fMainForm.Width - 120
|
|
' .Show
|
|
' End With
|
|
' mnuProfileTerminalMode.Checked = True
|
|
' Case "Script Mode"
|
|
' With frmScriptMode
|
|
' .Top = 0
|
|
' .Left = 0
|
|
' .Height = fMainForm.Height - 1155
|
|
' .Width = fMainForm.Width - 120
|
|
' .Show
|
|
' End With
|
|
' mnuProfileScriptMode.Checked = True
|
|
Case "UnimodemID"
|
|
With frmUnimodemId
|
|
.Top = 0
|
|
.Left = 0
|
|
.Height = fMainForm.Height - 1205
|
|
.Width = fMainForm.Width - 120
|
|
.Show
|
|
End With
|
|
mnuProfileUnimodemId.Checked = True
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub MDIForm_Load()
|
|
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
|
|
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
|
|
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6885)
|
|
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 9600)
|
|
LoadNewDoc
|
|
End Sub
|
|
|
|
Private Sub LoadNewDoc()
|
|
cmbProfile.Text = "Data Profile"
|
|
If frmData.Visible = False Then
|
|
frmData.Visible = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MDIForm_Resize()
|
|
If Me.WindowState <> vbMinimized Then
|
|
If fMainForm.Width < 9600 Then
|
|
fMainForm.Width = 9600
|
|
End If
|
|
If fMainForm.Height < 6885 Then
|
|
fMainForm.Height = 6885
|
|
End If
|
|
cmbProfile.Left = fMainForm.Width - 5760
|
|
Dim Profile As String
|
|
Profile = cmbProfile.Text
|
|
|
|
Select Case Profile
|
|
Case "Data Profile"
|
|
With frmData
|
|
.Height = fMainForm.Height - 1195
|
|
.Width = fMainForm.Width - 120
|
|
End With
|
|
Case "Voice Profile"
|
|
With frmVoice
|
|
.Height = fMainForm.Height - 1195
|
|
.Width = fMainForm.Width - 120
|
|
End With
|
|
Case "Response State"
|
|
With frmResponse
|
|
.Height = fMainForm.Height - 1195
|
|
.Width = fMainForm.Width - 120
|
|
End With
|
|
Case "DCB"
|
|
With frmDCB
|
|
.Height = fMainForm.Height - 1195
|
|
.Width = fMainForm.Width - 120
|
|
End With
|
|
Case "Inactivity Scale"
|
|
With frmInactivity
|
|
.Height = fMainForm.Height - 1195
|
|
.Width = fMainForm.Width - 120
|
|
End With
|
|
Case "Speaker Phone Specs"
|
|
With frmSpeakerPhone
|
|
.Height = fMainForm.Height - 1195
|
|
.Width = fMainForm.Width - 120
|
|
End With
|
|
Case "XformID (Win9x)"
|
|
With frmXformID
|
|
.Height = fMainForm.Height - 1195
|
|
.Width = fMainForm.Width - 120
|
|
End With
|
|
Case "XformID (NT)"
|
|
With frmXformIDNT
|
|
.Height = fMainForm.Height - 1195
|
|
.Width = fMainForm.Width - 120
|
|
End With
|
|
Case "Terminal Mode"
|
|
With frmTerminalMode
|
|
.Height = fMainForm.Height - 1195
|
|
.Width = fMainForm.Width - 120
|
|
End With
|
|
Case "Script Mode"
|
|
With frmScriptMode
|
|
.Height = fMainForm.Height - 1195
|
|
.Width = fMainForm.Width - 120
|
|
End With
|
|
Case "UnimodemID"
|
|
With frmUnimodemId
|
|
.Height = fMainForm.Height - 1195
|
|
.Width = fMainForm.Width - 120
|
|
End With
|
|
End Select
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MDIForm_Unload(Cancel As Integer)
|
|
If Me.WindowState <> vbMinimized Then
|
|
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
|
|
SaveSetting App.Title, "Settings", "MainTop", Me.Top
|
|
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
|
|
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuEditCalc_Click()
|
|
Dim d$, r&, d1$, d2$
|
|
Dim RetVal
|
|
d$ = String$(255, Ø)
|
|
r& = GetWindowsDirectory(d$, 254)
|
|
d$ = Left$(d$, r)
|
|
Dim MyFile
|
|
d1$ = d$ & "\calc.exe"
|
|
d2$ = d$ & "\system32\calc.exe"
|
|
MyFile = Dir(d1$) ' Returns "Calc.exe" if it exists.
|
|
MyFile = UCase(MyFile)
|
|
If MyFile = "CALC.EXE" Then 'We're running under Win9x
|
|
RetVal = Shell(d1$, 1) ' Run Calculator.
|
|
Exit Sub
|
|
End If
|
|
MyFile = Dir(d2$) ' Returns "Calc.exe" if it exists.
|
|
MyFile = UCase(MyFile)
|
|
If MyFile = "CALC.EXE" Then 'We're running under WinNT
|
|
RetVal = Shell(d2$, 1) ' Run Calculator.
|
|
Exit Sub
|
|
End If
|
|
MsgBox "Calculator is not installed.", vbOKOnly
|
|
End Sub
|
|
|
|
Private Sub mnuEditClear_Click()
|
|
'Hitting ClearControl twice fixes a bug in frmVoice
|
|
ActiveForm.ClearControl
|
|
ActiveForm.ClearControl
|
|
End Sub
|
|
|
|
Private Sub mnuHelpAbout_Click()
|
|
frmAbout.Show vbModal, Me
|
|
End Sub
|
|
|
|
Private Sub mnuHelpReadme_Click()
|
|
Const HelpCNT = &HB
|
|
Dim Filename$
|
|
Filename$ = App.Path
|
|
If Right$(Filename$, 1) <> "\" Then Filename$ = Filename$ & "\"
|
|
Filename$ = Filename$ & "Profile.hlp"
|
|
With CommonDialog1 ' You must set the Help file name.
|
|
.HelpFile = Filename$ ' Display the Table of Contents. Note that the
|
|
.HelpKey = "Overview" ' HelpCNT contstant is not an intrinsic
|
|
' constant. The cdlHelpSetContents ensures that
|
|
' only the Table of Contents (not Index or Find) ' shows.
|
|
'.HelpCommand = HelpCNT Or cdlHelpSetContents
|
|
.HelpCommand = cdlHelpKey
|
|
.ShowHelp
|
|
End With
|
|
End Sub
|
|
|
|
Private Sub mnuProfileData_Click()
|
|
cmbProfile.Text = "Data Profile"
|
|
cmbProfile_Click
|
|
End Sub
|
|
|
|
Private Sub mnuProfileDCB_Click()
|
|
cmbProfile.Text = "DCB"
|
|
cmbProfile_Click
|
|
End Sub
|
|
|
|
Private Sub mnuProfileInactivity_Click()
|
|
cmbProfile.Text = "Inactivity Scale"
|
|
cmbProfile_Click
|
|
End Sub
|
|
|
|
Private Sub mnuProfileResponse_Click()
|
|
cmbProfile.Text = "Response State"
|
|
cmbProfile_Click
|
|
End Sub
|
|
|
|
Private Sub mnuProfileSpeaker_Click()
|
|
cmbProfile.Text = "Speaker Phone Specs"
|
|
cmbProfile_Click
|
|
End Sub
|
|
|
|
Private Sub mnuProfileUnimodemId_Click()
|
|
cmbProfile.Text = "UnimodemId"
|
|
cmbProfile_Click
|
|
End Sub
|
|
|
|
Private Sub mnuProfileVoice_Click()
|
|
cmbProfile.Text = "Voice Profile"
|
|
cmbProfile_Click
|
|
End Sub
|
|
|
|
Private Sub mnuProfileXformID_Click()
|
|
cmbProfile.Text = "XformID (Win9x)"
|
|
cmbProfile_Click
|
|
End Sub
|
|
|
|
Private Sub mnuProfileXformIDNT_Click()
|
|
cmbProfile.Text = "XformID (NT)"
|
|
cmbProfile_Click
|
|
End Sub
|
|
|
|
Private Sub tbToolBar_ButtonClick(ByVal Button As ComctlLib.Button)
|
|
Select Case Button.key
|
|
Case "Copy"
|
|
mnuEditCopy_Click
|
|
Case "Paste"
|
|
mnuEditPaste_Click
|
|
Case "Calc"
|
|
mnuEditCalc_Click
|
|
Case "Clear"
|
|
mnuEditClear_Click
|
|
End Select
|
|
End Sub
|
|
|
|
|
|
Private Sub mnuHelpContents_Click()
|
|
Dim nRet As Integer
|
|
'if there is no helpfile for this project display a message to the user
|
|
'you can set the HelpFile for your application in the
|
|
'Project Properties dialog
|
|
If Len(App.HelpFile) = 0 Then
|
|
MsgBox "Unable to display Help Contents. There is no Help associated with this project.", vbInformation, Me.Caption
|
|
Else
|
|
On Error Resume Next
|
|
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)
|
|
If Err Then
|
|
MsgBox Err.Description
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub mnuHelpSearch_Click()
|
|
Dim nRet As Integer
|
|
'if there is no helpfile for this project display a message to the user
|
|
'you can set the HelpFile for your application in the
|
|
'Project Properties dialog
|
|
If Len(App.HelpFile) = 0 Then
|
|
MsgBox "Unable to display Help Contents. There is no Help associated with this project.", vbInformation, Me.Caption
|
|
Else
|
|
On Error Resume Next
|
|
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0)
|
|
If Err Then
|
|
MsgBox Err.Description
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuEditCopy_Click()
|
|
ActiveForm.EditCopy
|
|
End Sub
|
|
|
|
Private Sub mnuEditPaste_Click()
|
|
ActiveForm.EditPaste
|
|
End Sub
|
|
|
|
Private Sub mnuFileExit_Click()
|
|
'unload the form
|
|
Unload Me
|
|
End Sub
|
|
|
|
|