Planet Source Code Jumbo …e CD Visual Basic 1 to 7/1_2002.ISO/Data/Zips/Tutorial_M46439152002.psc/frmMake.frm

Visual Basic Form | 2002-01-04 | 5.8 KB | 207 lines

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMake
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Tutorial v1.0.0 (Make) on p. 1"
   ClientHeight    =   4815
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   6885
   Icon            =   "frmMake.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4815
   ScaleWidth      =   6885
   StartUpPosition =   2  'CenterScreen
   Begin MSComDlg.CommonDialog cmm
      Left            =   3240
      Top             =   2160
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Frame Frame1
      Caption         =   "Controls"
      Height          =   2055
      Left            =   4320
      TabIndex        =   3
      Top             =   2640
      Width           =   2535
      Begin VB.CommandButton cmdNext
         Caption         =   "Next >>"
         Height          =   495
         Left            =   240
         TabIndex        =   6
         Top             =   240
         Width           =   2175
      End
      Begin VB.CommandButton cmdBack
         Caption         =   "<< Back"
         Height          =   495
         Left            =   240
         TabIndex        =   5
         Top             =   840
         Width           =   2175
      End
      Begin VB.CommandButton cmdChange
         Caption         =   "Change Pic"
         Height          =   495
         Left            =   240
         TabIndex        =   4
         Top             =   1440
         Width           =   2175
      End
   End
   Begin VB.TextBox txtText
      Height          =   4215
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   480
      Width           =   4095
   End
   Begin VB.Label Label2
      Caption         =   "Pic:"
      Height          =   255
      Left            =   4320
      TabIndex        =   2
      Top             =   120
      Width           =   2415
   End
   Begin VB.Image imgPic
      Height          =   2055
      Left            =   4320
      Stretch         =   -1  'True
      Top             =   480
      Width           =   2535
   End
   Begin VB.Label Label1
      Caption         =   "Text:"
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   4095
   End
   Begin VB.Menu FI
      Caption         =   "File"
      Begin VB.Menu OP
         Caption         =   "Open"
      End
      Begin VB.Menu SA
         Caption         =   "Save"
      End
      Begin VB.Menu COM
         Caption         =   "Compile to .exe"
      End
      Begin VB.Menu Sep2
         Caption         =   "-"
      End
      Begin VB.Menu TA
         Caption         =   "Take"
      End
      Begin VB.Menu sep1
         Caption         =   "-"
      End
      Begin VB.Menu EX
         Caption         =   "Exit"
      End
   End
Attribute VB_Name = "frmMake"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim on_page As Long
Dim pic(99) As String, text(99) As String, xx() As String, pic2() As String, text2() As String
Private Sub cmdBack_Click()
If on_page = 1 Then
    Me.Caption = "Tutorial v1.0.0 (Make) on p. 1 - Error lowest number page alowed is 1!"
    Exit Sub
End If
on_page = on_page - 1
Me.Caption = "Tutorial v1.0.0 (Make) on p. " & on_page
imgPic.Picture = LoadPicture(pic(on_page - 1))
txtText.text = text(on_page - 1)
End Sub
Private Sub cmdEnlarge_Click()
End Sub
Private Sub cmdChange_Click()
On Error Resume Next
cmm.Filter = "Bitmap Files (*.bmp)|*.bmp"
cmm.InitDir = App.Path
cmm.DialogTitle = "Open - Keep the pictures in the tutorial's path!"
cmm.ShowOpen
imgPic.Picture = LoadPicture(cmm.FileName)
pic(on_page - 1) = cmm.FileName
End Sub
Private Sub cmdNext_Click()
If on_page = 100 Then
    Me.Caption = "Tutorial v1.0.0 (Make) on p. 100-Error only 100 pages alowed!"
    Exit Sub
End If
on_page = on_page + 1
Me.Caption = "Tutorial v1.0.0 (Make) on p. " & on_page
imgPic.Picture = LoadPicture(pic(on_page - 1))
txtText.text = text(on_page - 1)
End Sub
Private Sub COM_Click()
Open App.Path & "\tmp.tut" For Output As #1
    strpic = Join(pic, "
    strtext = Join(text, "
    Print #1, strpic & "~" & strtext
Close #1
cmm.Filter = "Executable Files (*.exe)|*.exe"
cmm.ShowSave
PutFile App.Path & "\exerun.exe", App.Path & "\tmp.tut", cmm.FileName
End Sub
Private Sub EX_Click()
Unload frmTake
Unload Me
End Sub
Private Sub Form_Load()
on_page = 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload frmTake
Unload Me
End Sub
Private Sub OP_Click()
cmm.Filter = "Tutorial Files (*.tut)|*.tut"
cmm.ShowOpen
Open cmm.FileName For Input As #1
    Line Input #1, a
    xx = Split(a, "~")
    pic2 = Split(xx(0), "
    text2 = Split(xx(1), "
Close #1
For x = 0 To 99
    pic(x) = pic2(x)
    If Not FileExist(pic(x)) Then
        pic(x) = App.Path & "\" & GetFileNameFromPath(pic(x))
    End If
    text(x) = text2(x)
Next x
on_page = 1
cmdNext_Click
cmdBack_Click
End Sub
Private Sub SA_Click()
cmm.Filter = "Tutorial Files (*.tut)|*.tut"
cmm.ShowSave
Open cmm.FileName For Output As #1
    strpic = Join(pic, "
    strtext = Join(text, "
    Print #1, strpic & "~" & strtext
Close #1
End Sub
Private Sub TA_Click()
Me.Hide
frmTake.Show
End Sub
Private Sub txtText_Change()
text(on_page - 1) = txtText.text
End Sub