Liren Large Software Subsidy 7/07.iso/c/c480/21.ddi/IOBFRM.FR_/IOBFRM.bin

Visual Basic Form | 1993-02-14 | 6.7 KB | 207 lines

VERSION 2.00
Begin Form IOBFrm
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Ink On Bitmap Control"
   ControlBox      =   0   'False
   Height          =   6270
   Left            =   900
   LinkTopic       =   "Form1"
   ScaleHeight     =   391
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   516
   Top             =   420
   Width           =   7860
   Begin PictureBox Picture1
      BackColor       =   &H00C0C0C0&
      Height          =   855
      Index           =   1
      Left            =   240
      ScaleHeight     =   825
      ScaleWidth      =   7185
      TabIndex        =   11
      Top             =   4200
      Width           =   7215
      Begin Label Label1
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "Change the AutoSize property to change how the background bitmap is displayed.  Load a new bitmap or icon in the Picture property to create graph paper or lined paper."
         ForeColor       =   &H00000000&
         Height          =   615
         Index           =   1
         Left            =   720
         TabIndex        =   12
         Top             =   120
         Width           =   5655
         WordWrap        =   -1  'True
      End
   End
   Begin PictureBox Picture1
      BackColor       =   &H00C0C0C0&
      Height          =   1095
      Index           =   0
      Left            =   240
      ScaleHeight     =   1065
      ScaleWidth      =   7185
      TabIndex        =   9
      Top             =   120
      Width           =   7215
      Begin Label Label1
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "The Pen Ink On Bitmap control is like a Picture Box control that allows you to draw and erase in on a bitmap.  To erase ink, write in the control while pressing the barrel button on your pen."
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00000000&
         Height          =   795
         Index           =   0
         Left            =   300
         TabIndex        =   10
         Top             =   180
         Width           =   6615
         WordWrap        =   -1  'True
      End
   End
   Begin CommandButton Command2
      Caption         =   "Return to Main Menu"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   180
      TabIndex        =   8
      Top             =   5220
      Width           =   7335
   End
   Begin CommandButton EraseButton
      Caption         =   "Erase Ink"
      Height          =   555
      Left            =   3480
      TabIndex        =   7
      Top             =   3480
      Width           =   1875
   End
   Begin SSFrame Frame3D1
      Caption         =   "AutoSize"
      ForeColor       =   &H00000000&
      Height          =   1935
      Left            =   3480
      TabIndex        =   2
      Top             =   1380
      Width           =   3975
      Begin SSOption Option3D4
         Caption         =   "Tile Picture"
         ForeColor       =   &H00000000&
         Height          =   240
         Left            =   480
         TabIndex        =   6
         Top             =   1440
         Value           =   -1  'True
         Width           =   2895
      End
      Begin SSOption Option3D3
         Caption         =   "Size Window to fit Picture"
         ForeColor       =   &H00000000&
         Height          =   240
         Left            =   480
         TabIndex        =   5
         TabStop         =   0   'False
         Top             =   1080
         Width           =   2895
      End
      Begin SSOption Option3D2
         Caption         =   "Stretch Picture to fit Window"
         ForeColor       =   &H00000000&
         Height          =   240
         Left            =   480
         TabIndex        =   4
         TabStop         =   0   'False
         Top             =   720
         Width           =   2895
      End
      Begin SSOption Option3D1
         Caption         =   "None"
         ForeColor       =   &H00000000&
         Height          =   240
         Left            =   480
         TabIndex        =   3
         TabStop         =   0   'False
         Top             =   360
         Width           =   2895
      End
   End
   Begin CommandButton ChangePicture
      Caption         =   "Change Picture..."
      Height          =   555
      Left            =   5580
      TabIndex        =   1
      Top             =   3480
      Width           =   1875
   End
   Begin CommonDialog CMDialog1
      Filename        =   "*.bmp"
      Filter          =   "Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico"
      Left            =   -240
      Top             =   -240
   End
   Begin InkOnBitmap IOB1
      AutoSize        =   3  'Tile Picture
      BackColor       =   &H00FFFFFF&
      Height          =   2655
      Image           =   IOBFRM.FRX:0000
      InkColor        =   &H00000000&
      Left            =   240
      Picture         =   IOBFRM.FRX:4862
      TabIndex        =   0
      Top             =   1380
      Version         =   268435458
      Width           =   3015
   End
Dim HeightSave As Single
Dim WidthSave As Single
Sub ChangePicture_Click ()
    On Error GoTo ErrTrap
    CMDialog1.Action = 1
    IOB1.Picture = LoadPicture(CMDialog1.Filename)
    Exit Sub
ErrTrap:
    MsgBox "Err =" + Str$(Err) + ": " + Error$, , "Pen Sample"
    Resume Next
End Sub
Sub Command2_Click ()
    MainFrm.Show
    IOBFrm.Hide
End Sub
Sub EraseButton_Click ()
    IOB1.EraseInk = True
End Sub
Sub Form_Load ()
    HeightSave = IOB1.Height
    WidthSave = IOB1.Width
End Sub
Sub Option3D1_Click (Value As Integer)
    IOB1.AutoSize = PEN_AUTOSIZE_NONE
    IOB1.Height = HeightSave
    IOB1.Width = WidthSave
End Sub
Sub Option3D2_Click (Value As Integer)
    IOB1.AutoSize = PEN_AUTOSIZE_SIZEPICTURE
    IOB1.Height = HeightSave
    IOB1.Width = WidthSave
End Sub
Sub Option3D3_Click (Value As Integer)
    IOB1.AutoSize = PEN_AUTOSIZE_SIZEWINDOW
End Sub
Sub Option3D4_Click (Value As Integer)
    IOB1.AutoSize = PEN_AUTOSIZE_TILE
    IOB1.Height = HeightSave
    IOB1.Width = WidthSave
End Sub