home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD78957182000.psc / frmTest.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-07-18  |  3.0 KB  |  105 lines
  1. VERSION 5.00
  2. Object = "{0576E0EE-5C84-11D4-B234-0080C8F8E0E3}#4.0#0"; "TransRegion.ocx"
  3. Begin VB.Form frmTest 
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   3375
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   4425
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    ScaleHeight     =   3375
  13.    ScaleWidth      =   4425
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin TransRegionCtrl.TransRegion TransRegion1 
  17.       Height          =   3405
  18.       Left            =   0
  19.       TabIndex        =   0
  20.       Top             =   0
  21.       Width           =   4425
  22.       _ExtentX        =   7805
  23.       _ExtentY        =   6006
  24.       Picture         =   "frmTest.frx":0000
  25.       Begin VB.CommandButton Command2 
  26.          Caption         =   "R"
  27.          Height          =   225
  28.          Left            =   3600
  29.          TabIndex        =   4
  30.          Top             =   1305
  31.          Width           =   255
  32.       End
  33.       Begin VB.CommandButton Command3 
  34.          Caption         =   "G"
  35.          Height          =   225
  36.          Left            =   3855
  37.          TabIndex        =   3
  38.          Top             =   1305
  39.          Width           =   255
  40.       End
  41.       Begin VB.CommandButton Command4 
  42.          Caption         =   "B"
  43.          Height          =   225
  44.          Left            =   4110
  45.          TabIndex        =   2
  46.          Top             =   1305
  47.          Width           =   255
  48.       End
  49.       Begin VB.CommandButton Command1 
  50.          Caption         =   "Exit"
  51.          Height          =   270
  52.          Left            =   3645
  53.          TabIndex        =   1
  54.          Top             =   555
  55.          Width           =   675
  56.       End
  57.       Begin VB.Label Label1 
  58.          BackStyle       =   0  'Transparent
  59.          Caption         =   "Trans"
  60.          Height          =   225
  61.          Left            =   3765
  62.          TabIndex        =   5
  63.          Top             =   1050
  64.          Width           =   510
  65.       End
  66.    End
  67. Attribute VB_Name = "frmTest"
  68. Attribute VB_GlobalNameSpace = False
  69. Attribute VB_Creatable = False
  70. Attribute VB_PredeclaredId = True
  71. Attribute VB_Exposed = False
  72. Private Sub Command1_Click()
  73. Unload Me
  74. End Sub
  75. Private Sub Command2_Click()
  76. 'We change the Mask colors so we can create multiple transparencies
  77. 'Very important.  If you enter Mask properties you must send 0,0,0 to the
  78. 'TransRegion Method
  79. With TransRegion1
  80.     .MaskRed = 255
  81.     .MaskBlue = 0
  82.     .MaskGreen = 0
  83. End With
  84. TransRegion1.TransRegion 0, 0, 0
  85. End Sub
  86. Private Sub Command3_Click()
  87. With TransRegion1
  88.     .MaskRed = 0
  89.     .MaskBlue = 0
  90.     .MaskGreen = 255
  91. End With
  92. TransRegion1.TransRegion 0, 0, 0
  93. End Sub
  94. Private Sub Command4_Click()
  95. With TransRegion1
  96.     .MaskRed = 0
  97.     .MaskBlue = 255
  98.     .MaskGreen = 0
  99. End With
  100. TransRegion1.TransRegion 0, 0, 0
  101. End Sub
  102. Private Sub Form_Load()
  103. TransRegion1.TransRegion 0, 0, 0
  104. End Sub
  105.