📄 p3ddemo.frm
字号:
Left = 2625
TabIndex = 7
Top = 255
Width = 975
Begin VB.CheckBox Check1
Height = 225
Left = 375
TabIndex = 8
Top = 270
Width = 240
End
End
Begin VB.Frame Frame4
Caption = "Bevelwidth"
Height = 660
Left = 180
TabIndex = 4
Top = 1065
Width = 2190
Begin vbpPanel3D.Panel3D Panel3D4
Height = 375
Left = 1680
Top = 210
Width = 405
_ExtentX = 714
_ExtentY = 661
Version = "March,16 1998"
RichLabel = "False"
Caption = "5"
Alignment = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Font3D = 3
BackColor = 12632256
ForeColor = 12582912
BorderColor = 12632256
ShadowColor = 8421504
FloodColor = 16711680
OutLine = 0 'False
BevelInner = 1
BevelOuter = 2
BevelWidth = 1
BorderWidth = 3
Enabled = -1 'True
Object.Visible = -1 'True
End
Begin VB.HScrollBar HScroll2
Height = 255
Left = 105
Max = 30
Min = 1
TabIndex = 5
Top = 240
Value = 5
Width = 1425
End
End
Begin VB.Frame Frame3
Caption = "BorderWidth"
Height = 660
Left = 195
TabIndex = 2
Top = 255
Width = 2175
Begin vbpPanel3D.Panel3D Panel3D3
Height = 390
Left = 1680
Top = 210
Width = 390
_ExtentX = 688
_ExtentY = 688
Version = "March,16 1998"
RichLabel = "False"
Caption = "12"
Alignment = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Font3D = 1
BackColor = 12632256
ForeColor = 12582912
BorderColor = 12632256
ShadowColor = 8421504
FloodColor = 16711680
OutLine = 0 'False
BevelInner = 1
BevelOuter = 2
BevelWidth = 1
BorderWidth = 3
Enabled = -1 'True
Object.Visible = -1 'True
End
Begin VB.HScrollBar HScroll1
Height = 255
Left = 120
Max = 30
TabIndex = 3
Top = 255
Value = 12
Width = 1410
End
End
End
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
Height = 2355
Left = 255
TabIndex = 0
Top = 210
Width = 3735
Begin vbpPanel3D.Panel3D Panel3D1
Height = 1770
Left = 255
ToolTipText = "3D演示"
Top = 345
Width = 3270
_ExtentX = 5768
_ExtentY = 3122
Version = "March,16 1998"
RichLabel = "False"
Caption = "三维立体"
Alignment = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Font3D = 3
BackColor = 12632256
ForeColor = 0
BorderColor = 12632256
ShadowColor = 8421504
FloodColor = 16711680
OutLine = 0 'False
BevelInner = 2
BevelOuter = 2
BevelWidth = 5
BorderWidth = 12
Enabled = -1 'True
Object.Visible = -1 'True
End
End
Begin MSComDlg.CommonDialog cmd1
Left = 30
Top = 30
_ExtentX = 847
_ExtentY = 847
_Version = 327680
End
End
Attribute VB_Name = "frmPanel3DDemo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
Panel3D1.OutLine = Check1.Value
End Sub
Private Sub cmdBoxBevel_Click()
Panel3D1.BoxBevel cboBoxBevel(0).Text, cboBoxBevel(1).Text, cboBoxBevel(2).Text, cboBoxBevel(3).Text, cboBoxBevel(4).Text
End Sub
Private Sub cmdcolor_Click(Index As Integer)
' 设置“取消”为True
cmd1.CancelError = True
On Error GoTo ErrHandler
'设置 Flags 属性
cmd1.Flags = cdlCCRGBInit
' 显示“颜色”对话框
cmd1.ShowColor
' 设置窗体的背景颜色为选定的颜色
With Panel3D1
Select Case Index
Case 0
.BackColor = cmd1.Color
Case 1
.BorderColor = cmd1.Color
Case 2
.ForeColor = cmd1.Color
Case 3
.ShadowColor = cmd1.Color
Case 4
.FloodColor = cmd1.Color
End Select
End With
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
End Sub
Private Sub cmdFlood_Click()
Dim I As Integer
With Panel3D1
For I = 1 To 101
.Caption = I & "%"
.Percents = I
Next I
.Caption = "三维立体"
End With
End Sub
Private Sub cmdFont_Click()
' 设置“取消”为 True
cmd1.CancelError = True
On Error GoTo ErrHandler
' 设置 Flags 属性
cmd1.Flags = cdlCFEffects Or cdlCFBoth
' 显示“字体”对话框
'On Error Resume Next
cmd1.ShowFont
Panel3D1.FontName = cmd1.FontName
Panel3D1.FontSize = cmd1.FontSize
Panel3D1.FontBold = cmd1.FontBold
Panel3D1.FontItalic = cmd1.FontItalic
Panel3D1.FontUnderline = cmd1.FontUnderline
'Set Panel3D1.Font = cmd1.Font
'Panel3D1.FontStrikethru = CommonDialog1.FontStrikethru
'Panel3D1.ForeColor = CommonDialog1.Color
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
Private Sub cmdOk_Click()
Unload Me
End Sub
Private Sub Combo2_Click()
Panel3D1.Alignment = Combo2.ListIndex
End Sub
Private Sub Combo3_Click()
Panel3D1.BevelInner = Combo3.ListIndex
End Sub
Private Sub Combo4_Click()
Panel3D1.BevelOuter = Combo4.ListIndex
End Sub
Private Sub Combo5_Click()
Panel3D1.Font3D = Combo5.ListIndex
End Sub
Private Sub Form_Click()
frmTest2.Show
End Sub
Private Sub Form_Load()
Dim I As Integer
Combo2.ListIndex = 4
Combo3.ListIndex = 1
Combo4.ListIndex = 2
Combo5.ListIndex = 4
For I = 0 To 4
cboBoxBevel(I).ListIndex = 0
Next I
HScroll1 = 12
HScroll2 = 5
End Sub
Private Sub HScroll1_Change()
Panel3D3.Caption = HScroll1.Value
Panel3D1.BorderWidth = HScroll1.Value
End Sub
Private Sub HScroll2_Change()
Panel3D4.Caption = HScroll2.Value
Panel3D1.BevelWidth = HScroll2.Value
End Sub
Private Sub txtCaption_Change()
Panel3D1.Caption = txtCaption
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -