home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / olympus / ik32_15t / vb4.shr / Draw2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-07  |  1.6 KB  |  53 lines
  1. VERSION 4.00
  2. Begin VB.Form frmPicbuf 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Picbuf"
  5.    ClientHeight    =   3345
  6.    ClientLeft      =   8790
  7.    ClientTop       =   3480
  8.    ClientWidth     =   3255
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   3810
  12.    Left            =   8730
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   3345
  18.    ScaleWidth      =   3255
  19.    ShowInTaskbar   =   0   'False
  20.    Top             =   3075
  21.    Width           =   3375
  22.    Begin ik32Lib.Picbuf Picbuf1 
  23.       Height          =   3000
  24.       Left            =   120
  25.       TabIndex        =   0
  26.       Top             =   120
  27.       Width           =   3000
  28.       _Version        =   65536
  29.       _ExtentX        =   5292
  30.       _ExtentY        =   5292
  31.       _StockProps     =   253
  32.       ForeColor       =   0
  33.       BackColor       =   16777215
  34.       FileName        =   "D:\MAI\PROJECTS\IMK\SAMPLES\OCX\IMAGES\white.bmp"
  35.    End
  36.    Begin VB.Label Label24 
  37.       Caption         =   "200,200"
  38.       Height          =   255
  39.       Left            =   120
  40.       TabIndex        =   1
  41.       Top             =   3120
  42.       Width           =   735
  43.    End
  44. Attribute VB_Name = "frmPicbuf"
  45. Attribute VB_Creatable = False
  46. Attribute VB_Exposed = False
  47. Private Sub Form_Load()
  48.     InitPicbuf frmPicbuf.picbuf1, False, "White24.bmp"
  49. End Sub
  50. Private Sub Picbuf1_Change()
  51.     Draw.txtCD.Text = frmPicbuf.picbuf1.ColorDepth
  52. End Sub
  53.