📄 ftest.frm
字号:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ShowFocusRect = -1 'True
BackColor = 16777215
ForeColor = 0
MousePointer = 0
MouseIcon = "fTest.frx":4968
Value = 0 'False
End
Begin AeroSuite.AeroOptionButton AeroOptionButton2
Height = 375
Index = 1
Left = 240
TabIndex = 21
Top = 600
Width = 2055
_ExtentX = 3625
_ExtentY = 661
Align = 0
Caption = "Option 2"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ShowFocusRect = -1 'True
BackColor = 16777215
ForeColor = 0
MousePointer = 0
MouseIcon = "fTest.frx":4984
Value = 0 'False
End
Begin AeroSuite.AeroOptionButton AeroOptionButton2
Height = 375
Index = 2
Left = 240
TabIndex = 22
Top = 960
Width = 2055
_ExtentX = 3625
_ExtentY = 661
Align = 0
Caption = "Option 3"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ShowFocusRect = -1 'True
BackColor = 16777215
ForeColor = 0
MousePointer = 0
MouseIcon = "fTest.frx":49A0
Value = 0 'False
End
End
Begin AeroSuite.AeroProgressBar AeroProgressBar1
Height = 270
Left = -39520
Top = 840
Width = 4815
_ExtentX = 8493
_ExtentY = 476
End
Begin AeroSuite.AeroProgressBar AeroProgressBar2
Height = 270
Left = -39520
Top = 1680
Width = 4815
_ExtentX = 8493
_ExtentY = 476
Value = 0
MarqueeStyle = -1 'True
End
Begin AeroSuite.AeroScrollbar AeroHScrollbar1
Height = 255
Left = -29760
Top = 3360
Width = 2895
_ExtentX = 5106
_ExtentY = 450
LargeChange = 30
Orientation = 1
End
Begin AeroSuite.AeroScrollbar AeroVScrollbar1
Height = 2895
Left = -26880
Top = 480
Width = 255
_ExtentX = 450
_ExtentY = 5106
LargeChange = 30
End
Begin AeroSuite.AeroListBox AeroListBox1
Height = 2760
Left = -19760
TabIndex = 12
Top = 840
Width = 2535
_ExtentX = 4471
_ExtentY = 4868
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ItemHeight = 20
ItemHeightAuto = 0 'False
End
Begin AeroSuite.AeroListBox AeroListBox2
Height = 2760
Left = -17000
TabIndex = 23
Top = 840
Width = 2535
_ExtentX = 4471
_ExtentY = 4868
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ItemHeight = 18
End
Begin AeroSuite.AeroTextBox AeroTextBox1
Height = 345
Index = 1
Left = -9640
TabIndex = 27
Top = 1320
Width = 5055
_ExtentX = 8916
_ExtentY = 609
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = "AeroTextBox2"
End
Begin AeroSuite.AeroTextBox AeroTextBox1
Height = 1095
Index = 2
Left = -9640
TabIndex = 46
Top = 1920
Width = 5055
_ExtentX = 8916
_ExtentY = 1931
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = "AeroTextBox3"
MultiLine = -1 'True
ScrollBars = 3
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = $"fTest.frx":49BC
Height = 675
Left = -9640
TabIndex = 28
Top = 3480
Width = 5160
WordWrap = -1 'True
End
Begin VB.Label Label3
BackColor = &H00FFFFFF&
Caption = "Without Icon:"
Height = 255
Index = 1
Left = -17000
TabIndex = 25
Top = 600
Width = 2535
End
Begin VB.Label Label3
BackColor = &H00FFFFFF&
Caption = "With Icon:"
Height = 255
Index = 0
Left = -19760
TabIndex = 24
Top = 600
Width = 2535
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Marquee Style ProgressBar"
Height = 225
Left = -39760
TabIndex = 10
Top = 1320
Width = 2100
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Standard ProgressBar"
Height = 225
Left = -39760
TabIndex = 9
Top = 480
Width = 1680
End
End
End
Attribute VB_Name = "fTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub AeroCheckBox4_Click()
AeroVScrollbar1.Enabled = Abs(AeroCheckBox4.Value)
AeroHScrollbar1.Enabled = Abs(AeroCheckBox4.Value)
End Sub
Private Sub bAbout_Click()
bAbout.AboutBox
End Sub
Private Sub bInputBox_Click()
tResult.Text = AeroForm1.ShowInputBox(tPrompt.Text, tDefault.Text, tTitle1.Text)
End Sub
Private Sub bMsgBox_Click()
AeroForm1.ShowMsgBox tMainIns.Text, tContent.Text, cboButton.ListIndex, cboIcon.ListIndex, tTitle.Text
End Sub
Private Sub Form_Load()
AeroTab1.TabCaption(0) = "Buttons"
AeroTab1.TabCaption(1) = "TextBox"
AeroTab1.TabCaption(2) = "ListBox"
AeroTab1.TabCaption(3) = "ScrollBar"
AeroTab1.TabCaption(4) = "ProgressBar"
AeroTab1.TabCaption(5) = "DialogBoxes"
AeroTab2.TabCaption(0) = "Message Box"
AeroTab2.TabCaption(1) = "Input Box"
AeroListBox1.SetImageList ImageList1
Randomize
For i = 0 To 100
AeroListBox1.AddItem "This is item " & i, Int(Rnd * 20) + 1
AeroListBox2.AddItem "This is item " & i
Next
AeroButton4.Caption = "This is a button" & vbCrLf & "with multiline text"
AeroCheckBox5.Caption = "This is a checkbox" & vbCrLf & "with multiline text"
AeroOptionButton1.Caption = "This is an optionbutton" & vbCrLf & "with multiline text"
cboIcon.AddItem "iNone"
cboIcon.AddItem "iWarning"
cboIcon.AddItem "iError"
cboIcon.AddItem "iInformation"
cboIcon.AddItem "iQuestion"
cboIcon.ListIndex = 3
cboButton.AddItem "bOKOnly"
cboButton.AddItem "bOKCancel"
cboButton.AddItem "bYesNo"
cboButton.AddItem "bYesNoCancel"
cboButton.AddItem "bRetryCancel"
cboButton.AddItem "bAbortRetryIgnore"
cboButton.ListIndex = 0
End Sub
Private Sub Timer1_Timer()
If AeroProgressBar2.Value < AeroProgressBar2.Max Then
AeroProgressBar2.Value = AeroProgressBar2.Value + 1
Else
AeroProgressBar2.Value = 0
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -