home *** CD-ROM | disk | FTP | other *** search
/ Computer Discount - Smash Disk / SmashDisk.bin / Cdc / SRC / SYSTEMS.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-06-11  |  7.6 KB  |  254 lines

  1. VERSION 5.00
  2. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.1#0"; "RICHTX32.OCX"
  3. Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
  4. Begin VB.Form SYSTEMS 
  5.    Appearance      =   0  'Flat
  6.    BackColor       =   &H80000005&
  7.    BorderStyle     =   0  'None
  8.    Caption         =   "Form1"
  9.    ClientHeight    =   7200
  10.    ClientLeft      =   0
  11.    ClientTop       =   0
  12.    ClientWidth     =   9600
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   480
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   640
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin MCI.MMControl MM1 
  20.       Height          =   330
  21.       Left            =   2760
  22.       TabIndex        =   8
  23.       Top             =   2490
  24.       Visible         =   0   'False
  25.       Width           =   3540
  26.       _ExtentX        =   6244
  27.       _ExtentY        =   582
  28.       _Version        =   327680
  29.       BorderStyle     =   0
  30.       DeviceType      =   "AVIVideo"
  31.       FileName        =   ""
  32.    End
  33.    Begin VB.PictureBox Picture2 
  34.       Appearance      =   0  'Flat
  35.       BackColor       =   &H80000005&
  36.       BorderStyle     =   0  'None
  37.       ForeColor       =   &H80000008&
  38.       Height          =   7215
  39.       Left            =   9300
  40.       ScaleHeight     =   481
  41.       ScaleMode       =   3  'Pixel
  42.       ScaleWidth      =   641
  43.       TabIndex        =   5
  44.       Top             =   -150
  45.       Width           =   9615
  46.    End
  47.    Begin VB.PictureBox Picture1 
  48.       Appearance      =   0  'Flat
  49.       BackColor       =   &H80000005&
  50.       BorderStyle     =   0  'None
  51.       ForeColor       =   &H80000008&
  52.       Height          =   2955
  53.       Left            =   6570
  54.       ScaleHeight     =   197
  55.       ScaleMode       =   3  'Pixel
  56.       ScaleWidth      =   171
  57.       TabIndex        =   1
  58.       Top             =   90
  59.       Width           =   2565
  60.    End
  61.    Begin RichTextLib.RichTextBox rt1 
  62.       Height          =   3195
  63.       Left            =   2610
  64.       TabIndex        =   0
  65.       Top             =   3120
  66.       Width           =   6645
  67.       _ExtentX        =   11721
  68.       _ExtentY        =   5636
  69.       _Version        =   327680
  70.       BorderStyle     =   0
  71.       ReadOnly        =   -1  'True
  72.       ScrollBars      =   2
  73.       Appearance      =   0
  74.       RightMargin     =   435
  75.       TextRTF         =   $"SYSTEMS.frx":0000
  76.    End
  77.    Begin VB.Label Label5 
  78.       Appearance      =   0  'Flat
  79.       BackColor       =   &H80000005&
  80.       BackStyle       =   0  'Transparent
  81.       Caption         =   "PROSSIMAMENTE"
  82.       BeginProperty Font 
  83.          Name            =   "MS Sans Serif"
  84.          Size            =   18
  85.          Charset         =   0
  86.          Weight          =   400
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       ForeColor       =   &H80000008&
  92.       Height          =   645
  93.       Left            =   3150
  94.       TabIndex        =   7
  95.       Top             =   900
  96.       Visible         =   0   'False
  97.       Width           =   3195
  98.    End
  99.    Begin VB.Label Label4 
  100.       Appearance      =   0  'Flat
  101.       BackColor       =   &H80000005&
  102.       BackStyle       =   0  'Transparent
  103.       ForeColor       =   &H80000008&
  104.       Height          =   525
  105.       Left            =   2520
  106.       MouseIcon       =   "SYSTEMS.frx":00C9
  107.       MousePointer    =   99  'Custom
  108.       TabIndex        =   6
  109.       Top             =   6570
  110.       Width           =   1425
  111.    End
  112.    Begin VB.Label Label3 
  113.       Appearance      =   0  'Flat
  114.       BackColor       =   &H80000005&
  115.       BackStyle       =   0  'Transparent
  116.       ForeColor       =   &H80000008&
  117.       Height          =   555
  118.       Left            =   7440
  119.       MouseIcon       =   "SYSTEMS.frx":050B
  120.       MousePointer    =   99  'Custom
  121.       TabIndex        =   4
  122.       Top             =   6540
  123.       Width           =   645
  124.    End
  125.    Begin VB.Label Label2 
  126.       Appearance      =   0  'Flat
  127.       BackColor       =   &H80000005&
  128.       BackStyle       =   0  'Transparent
  129.       ForeColor       =   &H80000008&
  130.       Height          =   555
  131.       Left            =   6360
  132.       MouseIcon       =   "SYSTEMS.frx":094D
  133.       MousePointer    =   99  'Custom
  134.       TabIndex        =   3
  135.       Top             =   6510
  136.       Width           =   675
  137.    End
  138.    Begin VB.Label Label1 
  139.       Appearance      =   0  'Flat
  140.       BackColor       =   &H80000005&
  141.       BackStyle       =   0  'Transparent
  142.       ForeColor       =   &H80000008&
  143.       Height          =   525
  144.       Left            =   4380
  145.       MouseIcon       =   "SYSTEMS.frx":0D8F
  146.       MousePointer    =   99  'Custom
  147.       TabIndex        =   2
  148.       Top             =   6540
  149.       Width           =   1515
  150.    End
  151. Attribute VB_Name = "SYSTEMS"
  152. Attribute VB_GlobalNameSpace = False
  153. Attribute VB_Creatable = False
  154. Attribute VB_PredeclaredId = True
  155. Attribute VB_Exposed = False
  156. Public SYSPAGE As String
  157. Public Sub DoDemo()
  158. Dim retval
  159. Select Case SYSPAGE
  160. Case 0
  161.    Picture2.Picture = LoadPicture(CDDRIVE & ":\cdc\systems\0\demo\demo.jpg")
  162.    VisPicture2
  163. Case 1
  164.    MM1.Command = "Close"
  165.    MM1.DeviceType = Sequencer
  166.    MM1.filename = CDDRIVE & ":\cdc\systems\1\demo\genin.mid"
  167.    MM1.Notify = False
  168.    MM1.Wait = True
  169.    MM1.Shareable = False
  170.    MM1.Command = "Open"
  171.    MM1.Command = "Play"
  172. Case 3
  173.    retval = Shell(CDDRIVE & ":\cdc\systems\3\demo\Dsgnr25TBYB.exe", 1)
  174. Case 4
  175.    Picture2.Picture = LoadPicture(CDDRIVE & ":\cdc\systems\4\demo\auto.jpg")
  176.    VisPicture2
  177. Case 5
  178.    retval = Shell(CDDRIVE & ":\cdc\systems\5\demo\setup.exe", 1)
  179. Case 6
  180.    Picture2.Picture = LoadPicture(CDDRIVE & ":\cdc\systems\6\demo\demo.jpg")
  181.    VisPicture2
  182. Case 7
  183.    retval = Shell(CDDRIVE & ":\cdc\systems\7\demo\setup.exe", 1)
  184. Case 14
  185.    MM1.Command = "Close"
  186.    MM1.DeviceType = AVIVideo
  187.    MM1.filename = CDDRIVE & ":\cdc\systems\14\demo\photoste.avi"
  188.    MM1.Notify = False
  189.    MM1.Wait = True
  190.    MM1.Shareable = False
  191.    MM1.Command = "Open"
  192.    MM1.Command = "Play"
  193. Case 16
  194.    MM1.Command = "Close"
  195.    MM1.DeviceType = AVIVideo
  196.    MM1.filename = CDDRIVE & ":\cdc\systems\16\demo\vwdemo.avi"
  197.    MM1.Notify = False
  198.    MM1.Wait = True
  199.    MM1.Shareable = False
  200.    MM1.Command = "Open"
  201.    MM1.Command = "Play"
  202. End Select
  203. End Sub
  204. Public Sub VisPicture2()
  205. Picture2.Top = 0
  206. Picture2.Left = 0
  207. End Sub
  208. Public Sub LoadPage()
  209. Picture1.Picture = LoadPicture(CDDRIVE & ":\cdc\systems\" & SYSPAGE & "\immagini\pacco.jpg")
  210. rt1.filename = CDDRIVE & ":\cdc\systems\" & SYSPAGE & "\testo\testo.rtf"
  211. If SYSPAGE < 9 Then
  212.     Label5.Visible = False
  213.     Label5.Visible = True
  214. End If
  215. End Sub
  216. Private Sub Form_Load()
  217. SYSPAGE = 0
  218. Me.Picture = LoadPicture(CDDRIVE & ":\cdc\pic\systems.jpg")
  219. Picture1.Picture = LoadPicture(CDDRIVE & ":\cdc\systems\0\immagini\pacco.jpg")
  220. rt1.BackColor = vbWhite
  221. rt1.filename = CDDRIVE & ":\cdc\systems\0\testo\testo.rtf"
  222. Label5.ForeColor = vbBlack
  223. Picture2.BackColor = vbWhite
  224. Picture2.Top = 5000
  225. Picture2.Left = 5000
  226. End Sub
  227. Private Sub Label1_Click()
  228. MM1.Command = "Close"
  229. INDICE.Show
  230. Unload Me
  231. End Sub
  232. Private Sub Label2_Click()
  233. If SYSPAGE > 0 Then
  234.    SYSPAGE = SYSPAGE - 1
  235.    LoadPage
  236. End If
  237. End Sub
  238. Private Sub Label3_Click()
  239. If SYSPAGE < 16 Then
  240.    SYSPAGE = SYSPAGE + 1
  241.    LoadPage
  242. End If
  243. End Sub
  244. Private Sub Label4_Click()
  245. DoDemo
  246. End Sub
  247. Private Sub MM1_Done(NotifyCode As Integer)
  248. MM1.Command = "Close"
  249. End Sub
  250. Private Sub Picture2_Click()
  251. Picture2.Top = 5000
  252. Picture2.Left = 5000
  253. End Sub
  254.