📄 form4.frm
字号:
VERSION 5.00
Begin VB.Form Form4
Caption = "完整功能显示"
ClientHeight = 6015
ClientLeft = 60
ClientTop = 450
ClientWidth = 7815
LinkTopic = "Form4"
ScaleHeight = 6015
ScaleWidth = 7815
StartUpPosition = 3 '窗口缺省
Begin prjXPFrame.xpFrame fraXP
Height = 5760
Left = 135
TabIndex = 0
Top = 135
Width = 3960
_extentx = 6985
_extenty = 10160
headertextfont = "Form4.frx":0000
footertextfont = "Form4.frx":0024
containertextfont= "Form4.frx":0048
expandable = -1 'True
headertext = "页眉"
footertext = "页脚"
containerforecolor= -2147483634
headerbackcolor = 16512
footerbackcolor = 12632256
containerbackcolor= 8388608
headerfadecolor = 4210752
footerfadecolor = 4210752
containerbordercolor= 16761024
appearence = 1
headertext = "页眉"
footertext = "页脚"
collapsebuttoncolor= 14737632
headerpicture = "Form4.frx":0076
containerpicture= "Form4.frx":0B68
containerresizable= -1 'True
zorderonfocus = 0 'False
closeable = -1 'True
End
Begin VB.CheckBox Check13
Caption = "标题垂直"
Height = 195
Left = 4245
TabIndex = 15
Top = 2880
Value = 1 'Checked
Width = 2085
End
Begin VB.CheckBox Check12
Caption = "页脚垂直"
Height = 195
Left = 4245
TabIndex = 14
Top = 2655
Value = 1 'Checked
Width = 2115
End
Begin VB.ComboBox Combo3
Height = 315
ItemData = "Form4.frx":0F04
Left = 4230
List = "Form4.frx":0F2C
Style = 2 'Dropdown List
TabIndex = 12
Top = 3360
Width = 2865
End
Begin VB.CheckBox Check11
Caption = "圆形边框"
Height = 195
Left = 4245
TabIndex = 11
Top = 2430
Width = 3045
End
Begin VB.CheckBox Check10
Caption = "图像容器可视"
Height = 210
Left = 4245
TabIndex = 10
Top = 2205
Value = 1 'Checked
Width = 3045
End
Begin VB.CheckBox Check9
Caption = "显示标题图像"
Height = 195
Left = 4245
TabIndex = 9
Top = 1980
Value = 1 'Checked
Width = 3045
End
Begin VB.CheckBox Check8
Caption = "页脚可视"
Height = 195
Left = 4245
TabIndex = 8
Top = 1755
Value = 1 'Checked
Width = 3045
End
Begin VB.CheckBox Check7
Caption = "标题可视"
Height = 195
Left = 4245
TabIndex = 7
Top = 1530
Value = 1 'Checked
Width = 3045
End
Begin VB.CheckBox Check6
Caption = "经典 XP 样式"
Height = 195
Left = 4245
TabIndex = 6
Top = 1305
Width = 2805
End
Begin VB.CheckBox Check5
Caption = "可移动窗口"
Height = 195
Left = 4245
TabIndex = 5
Top = 1080
Width = 2805
End
Begin VB.CheckBox Check4
Caption = "Closeable"
Height = 195
Left = 4245
TabIndex = 4
Top = 855
Value = 1 'Checked
Width = 2805
End
Begin VB.CheckBox Check3
Caption = "Collapsable"
Height = 240
Left = 4245
TabIndex = 3
Top = 615
Value = 1 'Checked
Width = 2805
End
Begin VB.CheckBox Check2
Caption = "可以缩放"
Height = 210
Left = 4245
TabIndex = 2
Top = 405
Value = 1 'Checked
Width = 2805
End
Begin VB.CheckBox Check1
Caption = "Collapse Down"
Height = 195
Left = 4245
TabIndex = 1
Top = 180
Value = 1 'Checked
Width = 2805
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "样式:"
Height = 180
Left = 4230
TabIndex = 13
Top = 3150
Width = 450
End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Check10_Click()
If Check10.Value = vbChecked Then
fraXP.ContainerPictureVisible = True
Else
fraXP.ContainerPictureVisible = False
End If
End Sub
Private Sub Check11_Click()
If Check11.Value = vbChecked Then
fraXP.ContainerShapeStyle = Rounded
Else
fraXP.ContainerShapeStyle = Squared
End If
End Sub
Private Sub Check12_Click()
If Check12.Value = vbChecked Then
fraXP.FooterFillStyle = VerticalFading
Else
fraXP.FooterFillStyle = HorizontalFading
End If
End Sub
Private Sub Check13_Click()
If Check13.Value = vbChecked Then
fraXP.HeaderFillStyle = VerticalFading
Else
fraXP.HeaderFillStyle = HorizontalFading
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = vbChecked Then
fraXP.ContainerResizable = True
Else
fraXP.ContainerResizable = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = vbChecked Then
fraXP.Expandable = True
Else
fraXP.Expandable = False
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = vbChecked Then
fraXP.Closeable = True
Else
fraXP.Closeable = False
End If
End Sub
Private Sub Check5_Click()
If Check5.Value = vbChecked Then
fraXP.ContainerMoveable = True
Else
fraXP.ContainerMoveable = False
End If
End Sub
Private Sub Check6_Click()
If Check6.Value = vbChecked Then
fraXP.ClassicXPStyle = True
Else
fraXP.ClassicXPStyle = False
End If
End Sub
Private Sub Check7_Click()
If Check7.Value = vbChecked Then
fraXP.HeaderVisible = True
Else
fraXP.HeaderVisible = False
End If
End Sub
Private Sub Check8_Click()
If Check8.Value = vbChecked Then
fraXP.FooterVisible = True
Else
fraXP.FooterVisible = False
End If
End Sub
Private Sub Check9_Click()
If Check9.Value = vbChecked Then
fraXP.HeaderPictureVisible = True
Else
fraXP.HeaderPictureVisible = False
End If
End Sub
Private Sub Combo3_Click()
Select Case Combo3.ListIndex
Case 0: fraXP.Appearence = xThemeDarkBlue
Case 1: fraXP.Appearence = xThemeMoney
Case 2: fraXP.Appearence = xThemeMediaPlayer
Case 3: fraXP.Appearence = xThemeMediaPlayer2
Case 4: fraXP.Appearence = xThemeGreen
Case 5: fraXP.Appearence = xThemeMetallic
Case 6: fraXP.Appearence = xThemeOffice2003
Case 7: fraXP.Appearence = xThemeOrange
Case 8: fraXP.Appearence = xThemeTurquoise
Case 9: fraXP.Appearence = xThemeGray
Case 10: fraXP.Appearence = xThemeDarkBlue2
Case 11: fraXP.Appearence = xThemeLightBlue
End Select
End Sub
Private Sub Form_Load()
Combo3.ListIndex = 1
End Sub
Private Sub fraXP_ChevronClick(Button As Integer, Shift As Integer, X As Single, Y As Single, Collapse As Boolean, FooterSize As Long, HeaderSize As Long, Height As Long)
If Check1.Value = vbChecked Then
If Collapse = True Then
fraXP.Top = fraXP.Top + (fraXP.Height - (HeaderSize * Screen.TwipsPerPixelY))
Else
fraXP.Top = fraXP.Top - (fraXP.Height - (HeaderSize * Screen.TwipsPerPixelY))
End If
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -