home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / olympus / ik32_15t / vb4.shr / FRSTPRO.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-07  |  1.5 KB  |  56 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Your First ImageKnife/OCX Project"
  5.    ClientHeight    =   4695
  6.    ClientLeft      =   1140
  7.    ClientTop       =   1950
  8.    ClientWidth     =   5535
  9.    Height          =   5385
  10.    Left            =   1080
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4695
  15.    ScaleWidth      =   5535
  16.    Top             =   1320
  17.    Width           =   5655
  18.    Begin ik32Lib.Picbuf Picbuf1 
  19.       Height          =   4575
  20.       Left            =   120
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   5295
  24.       _Version        =   65541
  25.       _ExtentX        =   9340
  26.       _ExtentY        =   8070
  27.       _StockProps     =   253
  28.    End
  29.    Begin VB.Menu mnuFile 
  30.       Caption         =   "&File"
  31.       Begin VB.Menu mnuExit 
  32.          Caption         =   "E&xit"
  33.          Shortcut        =   ^X
  34.       End
  35.    End
  36. Attribute VB_Name = "Form1"
  37. Attribute VB_Creatable = False
  38. Attribute VB_Exposed = False
  39. Private Sub Form_Load()
  40. Picbuf1.Appearance = ThreeD
  41. End Sub
  42. Private Sub mnuExit_Click()
  43.     End
  44. End Sub
  45. Private Sub Picbuf1_Click()
  46. Picbuf1.filename = App.Path + "\..\Images\marybeth.tif"
  47. Picbuf1.Load
  48. End Sub
  49. Private Sub Picbuf1_DblClick()
  50. Picbuf1.AutoScale = Not Picbuf1.AutoScale
  51. If Picbuf1.AutoScale = False Then
  52.     Picbuf1.ScaleScreen = 1
  53.     Picbuf1.ScaleImage = 1
  54. End If
  55. End Sub
  56.