Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/f12shell/f12shell.frm

Visual Basic Form | 1995-09-06 | 14.2 KB | 504 lines

VERSION 2.00
Begin Form picker2
   BackColor       =   &H00C0C0C0&
   Caption         =   "Program Picker"
   ClientHeight    =   1065
   ClientLeft      =   3000
   ClientTop       =   2955
   ClientWidth     =   4335
   FillStyle       =   0  'Solid
   ForeColor       =   &H00000000&
   Height          =   1755
   Icon            =   F12SHELL.FRX:0000
   KeyPreview      =   -1  'True
   Left            =   2940
   LinkTopic       =   "Form1"
   ScaleHeight     =   1065
   ScaleWidth      =   4335
   Top             =   2325
   Width           =   4455
   Begin Timer Timer1
      Interval        =   1000
      Left            =   480
      Top             =   0
   End
   Begin TextBox datetime
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      Height          =   285
      Left            =   120
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   720
      Width           =   4095
   End
   Begin Line Line9
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   3000
      X2              =   3000
      Y1              =   600
      Y2              =   120
   End
   Begin Line Line10
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   3480
      X2              =   3000
      Y1              =   120
      Y2              =   120
   End
   Begin Line Line11
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   3720
      X2              =   3720
      Y1              =   600
      Y2              =   120
   End
   Begin Line Line12
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   4200
      X2              =   3720
      Y1              =   120
      Y2              =   120
   End
   Begin Line Line24
      BorderWidth     =   2
      X1              =   4200
      X2              =   4200
      Y1              =   120
      Y2              =   600
   End
   Begin Line Line23
      BorderWidth     =   2
      X1              =   3720
      X2              =   4200
      Y1              =   600
      Y2              =   600
   End
   Begin Line Line22
      BorderWidth     =   2
      X1              =   3480
      X2              =   3480
      Y1              =   120
      Y2              =   600
   End
   Begin Line Line21
      BorderWidth     =   2
      X1              =   3000
      X2              =   3480
      Y1              =   600
      Y2              =   600
   End
   Begin Line Line20
      BorderWidth     =   2
      X1              =   2760
      X2              =   2760
      Y1              =   120
      Y2              =   600
   End
   Begin Line Line19
      BorderWidth     =   2
      X1              =   2280
      X2              =   2760
      Y1              =   600
      Y2              =   600
   End
   Begin Line Line5
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   1560
      X2              =   1560
      Y1              =   600
      Y2              =   120
   End
   Begin Line Line6
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   2040
      X2              =   1560
      Y1              =   120
      Y2              =   120
   End
   Begin Line Line3
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   840
      X2              =   840
      Y1              =   600
      Y2              =   120
   End
   Begin Line Line4
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   1320
      X2              =   840
      Y1              =   120
      Y2              =   120
   End
   Begin Line Line2
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   120
      X2              =   120
      Y1              =   120
      Y2              =   600
   End
   Begin Line Line1
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   120
      X2              =   600
      Y1              =   120
      Y2              =   120
   End
   Begin Line Line18
      BorderWidth     =   2
      X1              =   2040
      X2              =   2040
      Y1              =   120
      Y2              =   600
   End
   Begin Line Line17
      BorderWidth     =   2
      X1              =   1560
      X2              =   2040
      Y1              =   600
      Y2              =   600
   End
   Begin Line Line16
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      X1              =   1320
      X2              =   1320
      Y1              =   120
      Y2              =   600
   End
   Begin Line Line15
      BorderWidth     =   2
      X1              =   840
      X2              =   1320
      Y1              =   600
      Y2              =   600
   End
   Begin Line Line14
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      X1              =   600
      X2              =   600
      Y1              =   120
      Y2              =   600
   End
   Begin Line Line13
      BorderWidth     =   2
      X1              =   120
      X2              =   600
      Y1              =   600
      Y2              =   600
   End
   Begin Line Line8
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   2760
      X2              =   2280
      Y1              =   120
      Y2              =   120
   End
   Begin Line Line7
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   2280
      X2              =   2280
      Y1              =   600
      Y2              =   120
   End
   Begin Image Image7
      Height          =   480
      Left            =   3000
      Picture         =   F12SHELL.FRX:0302
      Top             =   120
      Width           =   480
   End
   Begin Shape Shape3
      BorderStyle     =   6  'Inside Solid
      Height          =   495
      Left            =   1560
      Top             =   120
      Width           =   495
   End
   Begin Shape Shape2
      BorderStyle     =   6  'Inside Solid
      Height          =   495
      Left            =   840
      Top             =   120
      Width           =   495
   End
   Begin Shape Shape1
      BackColor       =   &H00000000&
      BorderStyle     =   6  'Inside Solid
      Height          =   495
      Left            =   120
      Top             =   120
      Width           =   495
   End
   Begin Image Image6
      BorderStyle     =   1  'Fixed Single
      Height          =   510
      Left            =   3720
      Picture         =   F12SHELL.FRX:0604
      Top             =   120
      Width           =   510
   End
   Begin Image Image4
      BorderStyle     =   1  'Fixed Single
      Height          =   510
      Left            =   2280
      Picture         =   F12SHELL.FRX:0906
      Top             =   120
      Width           =   510
   End
   Begin Image Image3
      BorderStyle     =   1  'Fixed Single
      Height          =   510
      Left            =   1560
      Picture         =   F12SHELL.FRX:0C08
      Top             =   120
      Width           =   510
   End
   Begin Image Image2
      BorderStyle     =   1  'Fixed Single
      Height          =   510
      Left            =   840
      Picture         =   F12SHELL.FRX:0F0A
      Top             =   120
      Width           =   510
   End
   Begin Image Image1
      BorderStyle     =   1  'Fixed Single
      Height          =   510
      Left            =   120
      Picture         =   F12SHELL.FRX:120C
      Top             =   120
      Width           =   510
   End
   Begin Menu File
      Caption         =   "&File"
      Begin Menu sysedit
         Caption         =   "&SysEdit"
      End
      Begin Menu notepad
         Caption         =   "&Notepad"
      End
      Begin Menu control
         Caption         =   "&Control"
      End
      Begin Menu solitaire
         Caption         =   "S&olitaire"
      End
      Begin Menu calculator
         Caption         =   "&Calculator"
      End
      Begin Menu dos
         Caption         =   "&DOS"
      End
      Begin Menu Separator1
         Caption         =   "-"
      End
      Begin Menu stayitem
         Caption         =   "Stay On &Top"
      End
      Begin Menu separtor2
         Caption         =   "-"
      End
      Begin Menu Exit
         Caption         =   "E&xit"
      End
   End
   Begin Menu mnuhelp
      Caption         =   "&About"
      Begin Menu about
         Caption         =   "&About"
      End
      Begin Menu mreabo
         Caption         =   "&More About"
      End
      Begin Menu help
         Caption         =   "&Help"
      End
   End
Declare Function SetWindowPos% Lib "user" (ByVal win%, ByVal awin%, ByVal xp%, ByVal yp%, ByVal xs%, ByVal ys%, ByVal flags%)
Dim StayOnTop As Integer
Sub About_Click ()
MsgBox "Picker by Force 12" & Chr$(10) & "Copyright " & Chr$(169) & " 1993", 64, "About Picker"
End Sub
Sub calculator_Click ()
On Error Resume Next
Dim I, X, msg
X = Shell("c:\windows\calc.exe", 1)
End Sub
Sub Command13_Click ()
End Sub
Sub Command14_Click ()
End Sub
Sub control_Click ()
On Error Resume Next
Dim I, X, msg
X = Shell("c:\windows\control.exe", 1)
End Sub
Sub Dir1_Change ()
End Sub
Sub dos_Click ()
On Error Resume Next
Dim I, X, msg
X = Shell("c:\windows\dosprmpt.pif", 3)
End Sub
Sub Drive1_Change ()
End Sub
Sub Exit_Click ()
    End
End Sub
Sub File1_DblClick ()
End Sub
Sub Form_Load ()
stayitem.Checked = False
StayOnTop = 0
End Sub
Sub Help_Click ()
MsgBox "Click the mouse on the application you want to run," & Chr$(10) & "         or Double click on a file in the list boxes.", 32, "Picker Help"
End Sub
Sub Image1_Click ()
On Error Resume Next
Dim I, X, msg
X = Shell("c:\windows\system\sysedit.exe", 1)
line1.BorderColor = &HFFFFFF
Line2.BorderColor = &HFFFFFF
line13.BorderColor = &H0
Line14.BorderColor = &H0
End Sub
Sub Image1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
line1.BorderColor = &H0&
Line2.BorderColor = &H0&
line13.BorderColor = &H808080
Line14.BorderColor = &H808080
End Sub
Sub Image2_Click ()
On Error Resume Next
Dim I, X, msg
X = Shell("c:\windows\notepad.exe", 1)
line3.BorderColor = &HFFFFFF
Line4.BorderColor = &HFFFFFF
line15.BorderColor = &H0
Line16.BorderColor = &H0
End Sub
Sub Image2_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
line3.BorderColor = &H0&
Line4.BorderColor = &H0&
line13.BorderColor = &H808080
Line14.BorderColor = &H808080
End Sub
Sub Image3_Click ()
On Error Resume Next
Dim I, X, msg
X = Shell("c:\windows\control.exe", 1)
line5.BorderColor = &HFFFFFF
Line6.BorderColor = &HFFFFFF
line17.BorderColor = &H0
Line18.BorderColor = &H0
End Sub
Sub Image3_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
line5.BorderColor = &H0&
Line6.BorderColor = &H0&
line17.BorderColor = &H808080
Line18.BorderColor = &H808080
End Sub
Sub Image4_Click ()
On Error Resume Next
Dim I, X, msg
X = Shell("c:\windows\sol.exe", 1)
line7.BorderColor = &HFFFFFF
Line8.BorderColor = &HFFFFFF
line19.BorderColor = &H0
Line20.BorderColor = &H0
End Sub
Sub Image4_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
line7.BorderColor = &H0&
Line8.BorderColor = &H0&
line19.BorderColor = &H808080
Line20.BorderColor = &H808080
End Sub
Sub Image5_Click ()
Dim I, X, msg
X = Shell("c:\windows\calc.exe", 1)
End Sub
Sub Image6_Click ()
On Error Resume Next
Dim I, X, msg
X = Shell("c:\windows\dosprmpt.pif", 3)
line11.BorderColor = &HFFFFFF
Line12.BorderColor = &HFFFFFF
line23.BorderColor = &H0
Line24.BorderColor = &H0
End Sub
Sub Image6_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
line11.BorderColor = &H0&
Line12.BorderColor = &H0&
line23.BorderColor = &H808080
Line24.BorderColor = &H808080
End Sub
Sub Image7_Click ()
On Error Resume Next
Dim I, X, msg
X = Shell("c:\windows\calc.exe", 1)
line9.BorderColor = &HFFFFFF
Line10.BorderColor = &HFFFFFF
line21.BorderColor = &H0
Line22.BorderColor = &H0
End Sub
Sub Image7_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
line9.BorderColor = &H0&
Line10.BorderColor = &H0&
line21.BorderColor = &H808080
Line22.BorderColor = &H808080
End Sub
Sub mreabo_Click ()
MsgBox "Force 12" & Chr$(10) & "78 Broad Street" & Chr$(10) & "New London, CT 06320" & Chr$(10) & "Voice: [phone]" & Chr$(10) & "Fax: [phone]" & Chr$(10) & "CIS: 70740,2472" & Chr$(10) & "AOL: CTNLON" & Chr$(10) & "InterNet: [e-mail]", 64, "More About"
End Sub
Sub notepad_Click ()
On Error Resume Next
Dim I, X, msg
X = Shell("c:\windows\notepad.exe", 1)
End Sub
Sub solitaire_Click ()
On Error Resume Next
Dim I, X, msg
X = Shell("c:\windows\sol.exe", 1)
End Sub
Sub stayitem_Click ()
   If StayOnTop = 0 Then           '  Make it stay on top
      StayOnTop = 1            '  So other code runs next
              '  API function forces window to Zorder top
      j% = SetWindowPos(picker2.hWnd, -1, 0, 0, 0, 0, 3)
       stayitem.Checked = True
      'Command1.Caption = "&Unstay On Top"   ' Set caption
   Else
      StayOnTop = 0              ' Next time, stay on top
          ' API function resets so it's not always on top
      j% = SetWindowPos(picker2.hWnd, -2, 0, 0, 0, 0, 3)
      stayitem.Checked = False
      'Command1.Caption = "&Stay On Top"  ' Change caption
    End If
End Sub
Sub sysedit_Click ()
On Error Resume Next
Dim I, X, msg
X = Shell("c:\windows\system\sysedit.exe", 1)
End Sub
Sub Timer1_Timer ()
datetime.Text = Format$(Now, "dddd, mmmm d, yyyy, hh:mm:ss AM/PM")
End Sub
Sub waol_Click ()
End Sub