📄 frmppal.frm
字号:
VERSION 5.00
Begin VB.Form frmPpal
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "PropertyGrid Demo"
ClientHeight = 6375
ClientLeft = 45
ClientTop = 405
ClientWidth = 6765
Icon = "frmPpal.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "frmPpal.frx":038A
ScaleHeight = 6375
ScaleWidth = 6765
StartUpPosition = 2 'CenterScreen
Begin PropertyGridDemo.PropertyGrid PropertyGrid
Height = 3300
Left = 120
TabIndex = 0
Top = 435
Width = 3855
_ExtentX = 6800
_ExtentY = 5821
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
HelpBackColor = 14811135
HelpForeColor = -2147483625
LineColor = 10070188
SplitterPos = 0.6
ViewCategoryForeColor= -2147483640
ViewForeColor = -2147483640
End
Begin PropertyGridDemo.PropertyGrid PropertyGrid1
Height = 2130
Left = 120
TabIndex = 2
Top = 4125
Width = 3855
_ExtentX = 6800
_ExtentY = 3757
BackColor = 14737632
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
HelpBackColor = 12648447
HelpForeColor = 16576
HelpVisible = 0 'False
LineColor = 8421504
SplitterPos = 0.6
ViewCategoryForeColor= 4210752
ViewForeColor = 8421504
End
Begin VB.Label lblCaption
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Dedicated to the prettiest girl that I have known XD, T.Q.M mibi"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00004000&
Height = 675
Index = 3
Left = 4155
TabIndex = 5
Top = 5370
Width = 2475
End
Begin VB.Label lblCaption
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Based in the PropertyGrid Of Visual Basic 6.0. Any comment is wellcome and votes is great for me :)"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00004000&
Height = 870
Index = 2
Left = 4155
TabIndex = 4
Top = 4410
Width = 2475
End
Begin VB.Image imgCatg
Height = 255
Index = 1
Left = 465
MouseIcon = "frmPpal.frx":CA46
MousePointer = 99 'Custom
Picture = "frmPpal.frx":CD50
Top = 135
Width = 225
End
Begin VB.Image imgCatg
Height = 255
Index = 0
Left = 150
MouseIcon = "frmPpal.frx":CDE1
MousePointer = 99 'Custom
Picture = "frmPpal.frx":D0EB
Top = 135
Width = 240
End
Begin VB.Label lblCaption
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = $"frmPpal.frx":D17B
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00004000&
Height = 1080
Index = 1
Left = 4155
TabIndex = 3
Top = 3270
Width = 2475
End
Begin VB.Label lblCaption
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Result after of select in the First PropertyGrid"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 0
Left = 195
TabIndex = 1
Top = 3855
Width = 3855
End
Begin VB.Image imgLogo
Height = 2010
Left = 3930
Picture = "frmPpal.frx":D209
Top = 450
Width = 2985
End
End
Attribute VB_Name = "frmPpal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit '// Added
Private Sub Form_Load()
Dim PSCContrib(28) As String
Dim lRandom As String
Dim Credits(6) As String
Dim xSort(2) As String
Dim lFont As New StdFont
Randomize
lRandom = Int((UBound(PSCContrib) * Rnd(Timer))) ' Random Number between 0 To
' UBound(PSCContrib).
xSort(0) = "Categorized"
xSort(1) = "Alphabetical"
xSort(2) = "NoSort"
PSCContrib(0) = "IVan"
PSCContrib(1) = "Fred.cpp"
PSCContrib(2) = "Option Explicit"
PSCContrib(3) = "Richard Mewett"
PSCContrib(4) = "Jim Jose"
PSCContrib(5) = "Paul Caton"
PSCContrib(6) = "Paul R. Territo"
PSCContrib(7) = "Carles P.V"
PSCContrib(8) = "Habin"
PSCContrib(9) = "Steppenwolfe"
PSCContrib(10) = "Kelvin C. Perez"
PSCContrib(11) = "Juan Carlos San Rom醤"
PSCContrib(12) = "D. Rijmenants"
PSCContrib(13) = "Gary Noble"
PSCContrib(14) = "Dreamvb"
PSCContrib(15) = "Selftaught"
PSCContrib(16) = "Light Templer"
PSCContrib(17) = "Luthfi"
PSCContrib(18) = "Mario Flores"
PSCContrib(19) = "Mario Villanueva"
PSCContrib(20) = "rm_code"
PSCContrib(21) = "Agustin Rodriguez"
PSCContrib(22) = "Robert Rayment"
PSCContrib(23) = "Ulli's"
PSCContrib(24) = "LaVolpe"
PSCContrib(25) = "Dean Camera"
PSCContrib(26) = "Evan Toder"
PSCContrib(27) = "Kinex"
PSCContrib(28) = "int21"
Credits(0) = PSCContrib(5) & " CodeId=54117"
Credits(1) = "Steve McMahon" & " www.vbaccelerator.com"
Credits(2) = PSCContrib(3) & " CodeId=61438"
Credits(3) = PSCContrib(6) & " CodeId=63905"
Credits(4) = PSCContrib(7) & " CodeId=29586"
Credits(5) = PSCContrib(1) & " CodeId=61476"
Credits(6) = PSCContrib(4) & " CodeId=60901"
With PropertyGrid
.AddCategory "Key2", "Properties", "Properties of this control", True
.AddCategory "Key3", "About", "", True
'.AddChildItem "Key1", PropertyItemStringList, "PSC Community", PSCContrib,
' PSCContrib(lRandom), "People that contribute in this community. #(^~^)#"
.AddChildItem "Key2", PropertyItemStringReadOnly, "(Name)", .Name
.AddChildItem "Key2", PropertyItemColor, "BackColor", .BackColor
.AddChildItem "Key2", PropertyItemFont, "Font", .Font
.AddChildItem "Key2", PropertyItemColor, "HelpBackColor", .HelpBackColor
.AddChildItem "Key2", PropertyItemColor, "HelpForeColor", .HelpForeColor
.AddChildItem "Key2", PropertyItemNumber, "HelpHeight", .HelpHeight
.AddChildItem "Key2", PropertyItemBool, "HelpVisible", .HelpVisible
.AddChildItem "Key2", PropertyItemColor, "LineColor", .LineColor
.AddChildItem "Key2", PropertyItemStringList, "PropertySort", xSort, xSort(.PropertySort)
.AddChildItem "Key2", PropertyItemNumber, "SplitterPos", .SplitterPos
.AddChildItem "Key2", PropertyItemColor, "ViewBackColor", .ViewBackColor
.AddChildItem "Key2", PropertyItemColor, "ViewCategoryForeColor", .ViewCategoryForeColor
.AddChildItem "Key2", PropertyItemColor, "ViewForeColor", .ViewForeColor
.AddChildItem "Key3", PropertyItemStringReadOnly, "Author", "Heriberto Mantilla Santamar韆", _
, "All rights Reserved ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -