home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Nexcon_She886135302002.psc / frmStart.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-05-31  |  4.5 KB  |  153 lines
  1. VERSION 5.00
  2. Object = "{0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}#1.0#0"; "msscript.ocx"
  3. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  4. Begin VB.Form frmStart 
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Open a Program"
  7.    ClientHeight    =   2295
  8.    ClientLeft      =   2850
  9.    ClientTop       =   3465
  10.    ClientWidth     =   6150
  11.    Icon            =   "frmStart.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2295
  16.    ScaleWidth      =   6150
  17.    Begin RichTextLib.RichTextBox RTB 
  18.       Height          =   255
  19.       Left            =   720
  20.       TabIndex        =   4
  21.       Top             =   2040
  22.       Visible         =   0   'False
  23.       Width           =   255
  24.       _ExtentX        =   450
  25.       _ExtentY        =   450
  26.       _Version        =   393217
  27.       TextRTF         =   $"frmStart.frx":030A
  28.    End
  29.    Begin MSScriptControlCtl.ScriptControl Script 
  30.       Left            =   120
  31.       Top             =   1680
  32.       _ExtentX        =   1005
  33.       _ExtentY        =   1005
  34.       AllowUI         =   -1  'True
  35.    End
  36.    Begin VB.CommandButton cmdCancel 
  37.       Caption         =   "Cancel"
  38.       Height          =   495
  39.       Left            =   2880
  40.       TabIndex        =   3
  41.       Top             =   1680
  42.       Width           =   1335
  43.    End
  44.    Begin VB.CommandButton cmdRun 
  45.       Caption         =   "Run"
  46.       Height          =   495
  47.       Left            =   4440
  48.       TabIndex        =   2
  49.       Top             =   1680
  50.       Width           =   1335
  51.    End
  52.    Begin VB.ComboBox cmbProg 
  53.       Height          =   315
  54.       ItemData        =   "frmStart.frx":038C
  55.       Left            =   1440
  56.       List            =   "frmStart.frx":038E
  57.       TabIndex        =   0
  58.       Text            =   "Select a program..."
  59.       Top             =   1080
  60.       Width           =   4335
  61.    End
  62.    Begin VB.Label Label1 
  63.       BackStyle       =   0  'Transparent
  64.       Caption         =   "Please select a program from the list below to continue:"
  65.       ForeColor       =   &H00FFFFFF&
  66.       Height          =   255
  67.       Left            =   1440
  68.       TabIndex        =   1
  69.       Top             =   480
  70.       Width           =   4335
  71.    End
  72.    Begin VB.Image Image1 
  73.       Height          =   600
  74.       Left            =   360
  75.       Picture         =   "frmStart.frx":0390
  76.       Stretch         =   -1  'True
  77.       Top             =   720
  78.       Width           =   600
  79.    End
  80.    Begin VB.Image Image2 
  81.       Height          =   6765
  82.       Left            =   0
  83.       Picture         =   "frmStart.frx":07D2
  84.       Top             =   0
  85.       Width           =   9600
  86.    End
  87. Attribute VB_Name = "frmStart"
  88. Attribute VB_GlobalNameSpace = False
  89. Attribute VB_Creatable = False
  90. Attribute VB_PredeclaredId = True
  91. Attribute VB_Exposed = False
  92. Private Sub cmbProg_KeyPress(KeyAscii As Integer)
  93. If KeyAscii = 13 Then
  94. Call cmdRun_Click
  95. End If
  96. 'If KeyAscii = 126 Then
  97. 'frmConsole.Show
  98. 'Else
  99. 'End If
  100. End Sub
  101. Private Sub cmdCancel_Click()
  102. Me.Hide
  103. End Sub
  104. Private Sub cmdRun_Click()
  105. On Error Resume Next
  106. If Left(cmbProg.Text, 9) = "NexconApp" Then
  107. AppletName = Right(cmbProg.Text, Len(cmbProg.Text) - 10)
  108. RTB.LoadFile (App.Path & "\apps\" & AppletName)
  109. Script.ExecuteStatement (RTB.Text)
  110. Me.Hide
  111. Exit Sub
  112. End If
  113. Select Case cmbProg.Text
  114. Case "Select a program..."
  115. Case "Shutdown Nexcon"
  116. Unload frmAbout
  117. Unload frmBackgroundOptions
  118. Unload frmConsole
  119. Unload frmFileViewer
  120. Unload frmLoad
  121. Unload frmLogin
  122. Unload frmMain
  123. Unload frmMessageBox
  124. Unload Me
  125. Case "Log Off Nexcon"
  126. Me.Hide
  127. frmMain.Hide
  128. frmLogin.Show
  129. Case "Notepad"
  130. Shell ("C:\Windows\Notepad.exe")
  131. Case "File Viewer"
  132. frmFileViewer.Show
  133. Me.Hide
  134. Case "Program Off of Removeable Media..."
  135. If InStr(Dir("A:\"), "info.ini") Then
  136. If InStr(Dir("A:\"), "start.ini") Then
  137. varNull = LoadRemovableMedia()
  138. End If
  139. varNull = MessageBox("Sorry, no removable media was found. If you were trying to load a CD make sure to insert the diskette into the floppy drive.", "No media found!")
  140. End If
  141. Case "Update Nexcon"
  142. varNull = UpdateNexcon()
  143. Me.Hide
  144. Case Else
  145. If Left$(cmbProg.Text, 1) = "#" Then
  146. varNull = SystemFunction(cmbProg.Text)
  147. varNull = Replace(cmbProg.Text, " ", "")
  148. Shell ("C:\Programs\" & varNull & "\program.exe")
  149. End If
  150. Me.Hide
  151. End Select
  152. End Sub
  153.