home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.1#0"; "RICHTX32.OCX"
- Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
- Begin VB.Form SYSTEMS
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BorderStyle = 0 'None
- Caption = "Form1"
- ClientHeight = 7200
- ClientLeft = 0
- ClientTop = 0
- ClientWidth = 9600
- LinkTopic = "Form1"
- ScaleHeight = 480
- ScaleMode = 3 'Pixel
- ScaleWidth = 640
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin MCI.MMControl MM1
- Height = 330
- Left = 2760
- TabIndex = 8
- Top = 2490
- Visible = 0 'False
- Width = 3540
- _ExtentX = 6244
- _ExtentY = 582
- _Version = 327680
- BorderStyle = 0
- DeviceType = "AVIVideo"
- FileName = ""
- End
- Begin VB.PictureBox Picture2
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BorderStyle = 0 'None
- ForeColor = &H80000008&
- Height = 7215
- Left = 9300
- ScaleHeight = 481
- ScaleMode = 3 'Pixel
- ScaleWidth = 641
- TabIndex = 5
- Top = -150
- Width = 9615
- End
- Begin VB.PictureBox Picture1
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BorderStyle = 0 'None
- ForeColor = &H80000008&
- Height = 2955
- Left = 6570
- ScaleHeight = 197
- ScaleMode = 3 'Pixel
- ScaleWidth = 171
- TabIndex = 1
- Top = 90
- Width = 2565
- End
- Begin RichTextLib.RichTextBox rt1
- Height = 3195
- Left = 2610
- TabIndex = 0
- Top = 3120
- Width = 6645
- _ExtentX = 11721
- _ExtentY = 5636
- _Version = 327680
- BorderStyle = 0
- ReadOnly = -1 'True
- ScrollBars = 2
- Appearance = 0
- RightMargin = 435
- TextRTF = $"SYSTEMS.frx":0000
- End
- Begin VB.Label Label5
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- Caption = "PROSSIMAMENTE"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 18
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H80000008&
- Height = 645
- Left = 3150
- TabIndex = 7
- Top = 900
- Visible = 0 'False
- Width = 3195
- End
- Begin VB.Label Label4
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 525
- Left = 2520
- MouseIcon = "SYSTEMS.frx":00C9
- MousePointer = 99 'Custom
- TabIndex = 6
- Top = 6570
- Width = 1425
- End
- Begin VB.Label Label3
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 555
- Left = 7440
- MouseIcon = "SYSTEMS.frx":050B
- MousePointer = 99 'Custom
- TabIndex = 4
- Top = 6540
- Width = 645
- End
- Begin VB.Label Label2
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 555
- Left = 6360
- MouseIcon = "SYSTEMS.frx":094D
- MousePointer = 99 'Custom
- TabIndex = 3
- Top = 6510
- Width = 675
- End
- Begin VB.Label Label1
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 525
- Left = 4380
- MouseIcon = "SYSTEMS.frx":0D8F
- MousePointer = 99 'Custom
- TabIndex = 2
- Top = 6540
- Width = 1515
- End
- Attribute VB_Name = "SYSTEMS"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Public SYSPAGE As String
- Public Sub DoDemo()
- Dim retval
- Select Case SYSPAGE
- Case 0
- Picture2.Picture = LoadPicture(CDDRIVE & ":\cdc\systems\0\demo\demo.jpg")
- VisPicture2
- Case 1
- MM1.Command = "Close"
- MM1.DeviceType = Sequencer
- MM1.filename = CDDRIVE & ":\cdc\systems\1\demo\genin.mid"
- MM1.Notify = False
- MM1.Wait = True
- MM1.Shareable = False
- MM1.Command = "Open"
- MM1.Command = "Play"
- Case 3
- retval = Shell(CDDRIVE & ":\cdc\systems\3\demo\Dsgnr25TBYB.exe", 1)
- Case 4
- Picture2.Picture = LoadPicture(CDDRIVE & ":\cdc\systems\4\demo\auto.jpg")
- VisPicture2
- Case 5
- retval = Shell(CDDRIVE & ":\cdc\systems\5\demo\setup.exe", 1)
- Case 6
- Picture2.Picture = LoadPicture(CDDRIVE & ":\cdc\systems\6\demo\demo.jpg")
- VisPicture2
- Case 7
- retval = Shell(CDDRIVE & ":\cdc\systems\7\demo\setup.exe", 1)
- Case 14
- MM1.Command = "Close"
- MM1.DeviceType = AVIVideo
- MM1.filename = CDDRIVE & ":\cdc\systems\14\demo\photoste.avi"
- MM1.Notify = False
- MM1.Wait = True
- MM1.Shareable = False
- MM1.Command = "Open"
- MM1.Command = "Play"
- Case 16
- MM1.Command = "Close"
- MM1.DeviceType = AVIVideo
- MM1.filename = CDDRIVE & ":\cdc\systems\16\demo\vwdemo.avi"
- MM1.Notify = False
- MM1.Wait = True
- MM1.Shareable = False
- MM1.Command = "Open"
- MM1.Command = "Play"
- End Select
- End Sub
- Public Sub VisPicture2()
- Picture2.Top = 0
- Picture2.Left = 0
- End Sub
- Public Sub LoadPage()
- Picture1.Picture = LoadPicture(CDDRIVE & ":\cdc\systems\" & SYSPAGE & "\immagini\pacco.jpg")
- rt1.filename = CDDRIVE & ":\cdc\systems\" & SYSPAGE & "\testo\testo.rtf"
- If SYSPAGE < 9 Then
- Label5.Visible = False
- Label5.Visible = True
- End If
- End Sub
- Private Sub Form_Load()
- SYSPAGE = 0
- Me.Picture = LoadPicture(CDDRIVE & ":\cdc\pic\systems.jpg")
- Picture1.Picture = LoadPicture(CDDRIVE & ":\cdc\systems\0\immagini\pacco.jpg")
- rt1.BackColor = vbWhite
- rt1.filename = CDDRIVE & ":\cdc\systems\0\testo\testo.rtf"
- Label5.ForeColor = vbBlack
- Picture2.BackColor = vbWhite
- Picture2.Top = 5000
- Picture2.Left = 5000
- End Sub
- Private Sub Label1_Click()
- MM1.Command = "Close"
- INDICE.Show
- Unload Me
- End Sub
- Private Sub Label2_Click()
- If SYSPAGE > 0 Then
- SYSPAGE = SYSPAGE - 1
- LoadPage
- End If
- End Sub
- Private Sub Label3_Click()
- If SYSPAGE < 16 Then
- SYSPAGE = SYSPAGE + 1
- LoadPage
- End If
- End Sub
- Private Sub Label4_Click()
- DoDemo
- End Sub
- Private Sub MM1_Done(NotifyCode As Integer)
- MM1.Command = "Close"
- End Sub
- Private Sub Picture2_Click()
- Picture2.Top = 5000
- Picture2.Left = 5000
- End Sub
-