Visual Basic Graphics Programming (2nd Edition)/Visual Basic Graphics Programming 2nd Edition.iso/OldSrc/CH4/SRC/FILEFRM2.FRM

Visual Basic Form | 1996-05-01 | 5.2 KB | 186 lines

VERSION 4.00
Begin VB.Form FilesForm
   Caption         =   "Select Files"
   ClientHeight    =   2850
   ClientLeft      =   510
   ClientTop       =   1035
   ClientWidth     =   4065
   Height          =   3540
   Left            =   450
   LinkTopic       =   "Form1"
   ScaleHeight     =   2850
   ScaleWidth      =   4065
   Top             =   405
   Width           =   4185
   Begin VB.TextBox YOffText
      Height          =   285
      Left            =   960
      TabIndex        =   10
      Text            =   "-85"
      Top             =   1920
      Width           =   495
   End
   Begin VB.TextBox XOffText
      Height          =   285
      Left            =   960
      TabIndex        =   9
      Text            =   "73"
      Top             =   1560
      Width           =   495
   End
   Begin VB.CommandButton CmdLoad
      Caption         =   "Load"
      Default         =   -1  'True
      Height          =   495
      Left            =   1680
      TabIndex        =   8
      Top             =   2280
      Width           =   735
   End
   Begin VB.TextBox SourceText
      Height          =   285
      Left            =   960
      TabIndex        =   0
      Text            =   "Char2.bmp"
      Top             =   120
      Width           =   3015
   End
   Begin VB.TextBox DestText
      Height          =   285
      Left            =   960
      TabIndex        =   1
      Text            =   "Sanitas5.bmp"
      Top             =   480
      Width           =   3015
   End
   Begin VB.TextBox Mask1Text
      Height          =   285
      Left            =   960
      TabIndex        =   2
      Text            =   "Char2M.bmp"
      Top             =   840
      Width           =   3015
   End
   Begin VB.TextBox Mask2Text
      Height          =   285
      Left            =   960
      TabIndex        =   3
      Text            =   "SanitasM.bmp"
      Top             =   1200
      Width           =   3015
   End
   Begin VB.Label Label1
      Caption         =   "YOffset"
      Height          =   255
      Index           =   5
      Left            =   120
      TabIndex        =   12
      Top             =   1920
      Width           =   855
   End
   Begin VB.Label Label1
      Caption         =   "XOffset"
      Height          =   255
      Index           =   4
      Left            =   120
      TabIndex        =   11
      Top             =   1560
      Width           =   855
   End
   Begin VB.Label Label1
      Caption         =   "Source"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   7
      Top             =   120
      Width           =   855
   End
   Begin VB.Label Label1
      Caption         =   "Destination"
      Height          =   255
      Index           =   1
      Left            =   120
      TabIndex        =   6
      Top             =   480
      Width           =   855
   End
   Begin VB.Label Label1
      Caption         =   "Mask1"
      Height          =   255
      Index           =   2
      Left            =   120
      TabIndex        =   5
      Top             =   840
      Width           =   855
   End
   Begin VB.Label Label1
      Caption         =   "Mask2"
      Height          =   255
      Index           =   3
      Left            =   120
      TabIndex        =   4
      Top             =   1200
      Width           =   855
   End
   Begin VB.Menu mnuFile
      Caption         =   "File"
      Begin VB.Menu mnuFileExit
         Caption         =   "E&xit"
      End
   End
Attribute VB_Name = "FilesForm"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Sub WaitEnd()
    MousePointer = vbDefault
End Sub
Sub WaitStart()
    MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
Dim pth As String
Dim loc As Integer
    pth = UCase$(App.Path)
    loc = InStr(pth, "\CH4")
    If loc > 0 Then pth = Left$(pth, loc + 3) & "\DATA"
    SourceText.Text = pth & "\" & SourceText.Text
    DestText.Text = pth & "\" & DestText.Text
    Mask1Text.Text = pth & "\" & Mask1Text.Text
    Mask2Text.Text = pth & "\" & Mask2Text.Text
End Sub
Private Sub Form_Unload(Cancel As Integer)
    End
End Sub
' ***********************************************
' End the application.
' ***********************************************
Private Sub mnuFileExit_Click()
    End
End Sub
' ***********************************************
' Load the image files.
' ***********************************************
Private Sub CmdLoad_Click()
Dim frm As CompositeForm2
Dim xoff As Integer
Dim yoff As Integer
    On Error GoTo Done
    WaitStart
    If IsNumeric(XOffText.Text) Then _
        xoff = CInt(XOffText.Text)
    If IsNumeric(YOffText.Text) Then _
        yoff = CInt(YOffText.Text)
    Set frm = New CompositeForm2
    frm.Show
    If Not frm.LoadFiles( _
        Trim$(SourceText.Text), _
        Trim$(DestText.Text), _
        Trim$(Mask1Text.Text), _
        Trim$(Mask2Text.Text)) Then _
            frm.MakeComposite xoff, yoff
Done:
    WaitEnd
End Sub