【VB开源代码栏目提醒】:本文主要为网学会员提供frmBrush.frm,希望对需要frmBrush.frm网友有所帮助,学习一下!
VERSION 5.00
Begin VB.Form frmBrush
BackColor = &H00C0C0C0&
BorderStyle = 4 'Fixed ToolWindow
Caption = "Palette"
ClientHeight = 2250
ClientLeft = 45
ClientTop = 285
ClientWidth = 1470
Icon = "frmBrush.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 2250
ScaleWidth = 1470
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmdColour
Caption = "Colour"
Height = 375
Left = 240
TabIndex = 1
Top = 1200
Width = 975
End
Begin VB.CheckBox chkFill
BackColor = &H00C0C0C0&
Caption = "Filled"
Height = 255
Left = 360
TabIndex = 0
Top = 1800
Width = 735
End
Begin VB.Shape shpColour
BorderColor = &H000000FF&
BorderWidth = 5
FillColor = &H000000FF&
Height = 615
Left = 240
Top = 360
Width = 975
End
Begin
VB.Shape Shape1
FillStyle = 0 'Solid
Height = 855
Left = 120
Top = 240
Width = 1215
End
End
Attribute VB_Name = "frmBrush"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub chkFill_Click()
Select Case chkFill
Case 0
shpColour.FillStyle = 1
Case 1
shpColour.FillStyle = 0
End Select
End Sub
Private Sub cmdColour_Click()
' Object colour
frmColour.colActivate 0, True
frmColour.SetColour intColour
frmColour.Show vbModal
intColour = frmColour.GetColour
shpColour.BorderColor = QBColor(intColour)
shpColour.FillColor = QBColor(intColour)
End Sub
Private Sub Form_Load()
With frmBrush
.Left = 0
.Top = frmObjects.Top + frmObjects.Height
End With
End Sub