📄 frmproperties.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmProperties
BorderStyle = 4 'Festes Werkzeugfenster
Caption = "Properties"
ClientHeight = 6480
ClientLeft = 45
ClientTop = 3900
ClientWidth = 3015
ControlBox = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6480
ScaleWidth = 3015
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmdDLG
Caption = "MsgBox"
Height = 375
Left = 960
TabIndex = 12
ToolTipText = "AutoStyle: Arrange Control 0 (Label), Control 1 (Button) and Control 2 (PictureBox)"
Top = 6120
Width = 975
End
Begin VB.CommandButton cmdReport
Caption = "Report"
Height = 375
Left = 0
TabIndex = 11
ToolTipText = "AutoStyle: Arrange Control 0 (Label), Control 1 (Button)"
Top = 6120
Width = 975
End
Begin VB.CommandButton cmdRIGHT
Caption = ">|"
Height = 375
Left = 2520
TabIndex = 10
ToolTipText = "Align"
Top = 6120
Width = 495
End
Begin VB.CommandButton cmdBOTTOM
Caption = "BTM"
Height = 375
Left = 2040
TabIndex = 9
ToolTipText = "Align"
Top = 6120
Width = 495
End
Begin VB.CommandButton cmdLEFT
Caption = "|<"
Height = 375
Left = 2520
TabIndex = 8
ToolTipText = "Align"
Top = 5760
Width = 495
End
Begin VB.CommandButton cmdTOP
Caption = "TOP"
Height = 375
Left = 2040
TabIndex = 7
ToolTipText = "Align"
Top = 5760
Width = 495
End
Begin VB.CommandButton cmdMY
Caption = "<Y>"
Height = 375
Left = 1440
TabIndex = 6
ToolTipText = "Maximize vertically"
Top = 5760
Width = 495
End
Begin VB.CommandButton cmdMX
Caption = "<X>"
Height = 375
Left = 960
TabIndex = 5
ToolTipText = "Maximize horizontally"
Top = 5760
Width = 495
End
Begin VB.CommandButton cmdCY
Caption = "|Y|"
Height = 375
Left = 480
TabIndex = 4
ToolTipText = "Center vertically"
Top = 5760
Width = 495
End
Begin VB.CommandButton cmdCX
Caption = "|X|"
Height = 375
Left = 0
TabIndex = 3
ToolTipText = "Center horizontally"
Top = 5760
Width = 495
End
Begin MSComctlLib.ImageList imlList
Left = 1320
Top = 2520
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmProperties.frx":0000
Key = "Open"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmProperties.frx":059A
Key = "Convert"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmProperties.frx":0B34
Key = "Save"
EndProperty
EndProperty
End
Begin VB.TextBox txtCode
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5055
Left = 0
MultiLine = -1 'True
TabIndex = 0
Text = "frmProperties.frx":0F86
Top = 720
Width = 3015
End
Begin MSComctlLib.Toolbar tbTools
Align = 1 'Oben ausrichten
Height = 360
Left = 0
TabIndex = 1
Top = 0
Width = 3015
_ExtentX = 5318
_ExtentY = 635
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
Style = 1
ImageList = "imlList"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Open"
ImageKey = "Open"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Save"
ImageKey = "Save"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Convert"
ImageKey = "Convert"
EndProperty
EndProperty
BorderStyle = 1
End
Begin VB.TextBox txtID
Alignment = 2 'Zentriert
Height = 360
Left = 0
TabIndex = 2
Text = "Please type a control number here."
Top = 360
Width = 3015
End
End
Attribute VB_Name = "frmProperties"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Owner As frmForm
Private Sub cmdBOTTOM_Click()
Owner.ChangeCode Owner.SelectedID, "top", "@" & Owner.ScaleHeight - Owner.getCurrentControl.Height
Owner.RedrawAllControls
End Sub
Private Sub cmdCX_Click()
Owner.ChangeCode Owner.SelectedID, "left", "@" & _
Owner.ScaleWidth / 2 - Owner.getCurrentControl.Width / 2
Owner.RedrawAllControls
End Sub
Private Sub cmdCY_Click()
Owner.ChangeCode Owner.SelectedID, "top", "@" & _
Owner.ScaleHeight / 2 - Owner.getCurrentControl.Height / 2
Owner.RedrawAllControls
End Sub
Private Sub cmdDLG_Click()
On Error Resume Next
Owner.SelectControl 0
Owner.ChangeCode 0, "left", "@48"
Owner.ChangeCode 0, "top", "@0"
Owner.ChangeCode 0, "width", "@" & Owner.ScaleWidth
Owner.ChangeCode 0, "height", "@" & Owner.ScaleHeight - (Owner.getControl(1).Height + 16)
Owner.SelectControl 1
Owner.ChangeCode 1, "left", "@" & Owner.ScaleWidth / 2 - (Owner.getControl(1).Width / 2)
Owner.ChangeCode 1, "top", "@" & Owner.ScaleHeight - (Owner.getControl(1).Height + 8)
Owner.SelectControl 2
Owner.ChangeCode 2, "left", "@8"
Owner.ChangeCode 2, "top", "@" & Owner.ScaleHeight / 2 - 16
Owner.ChangeCode 2, "width", "@32"
Owner.ChangeCode 2, "height", "@32"
Owner.RedrawAllControls
End Sub
Private Sub cmdLEFT_Click()
Owner.ChangeCode Owner.SelectedID, "left", "@0"
Owner.RedrawAllControls
End Sub
Private Sub cmdMX_Click()
Owner.ChangeCode Owner.SelectedID, "left", "@0"
Owner.ChangeCode Owner.SelectedID, "width", "@" & Owner.ScaleWidth
Owner.RedrawAllControls
End Sub
Private Sub cmdMY_Click()
Owner.ChangeCode Owner.SelectedID, "top", "@0"
Owner.ChangeCode Owner.SelectedID, "height", "@" & Owner.ScaleHeight
Owner.RedrawAllControls
End Sub
Private Sub cmdReport_Click()
Owner.SelectControl 0
Owner.ChangeCode 0, "left", "@0"
Owner.ChangeCode 0, "top", "@0"
Owner.ChangeCode 0, "width", "@" & Owner.ScaleWidth
Owner.ChangeCode 0, "height", "@" & Owner.ScaleHeight - (Owner.getControl(1).Height + 16)
Owner.SelectControl 1
Owner.ChangeCode 1, "left", "@" & Owner.ScaleWidth / 2 - (Owner.getControl(1).Width / 2)
Owner.ChangeCode 1, "top", "@" & Owner.ScaleHeight - (Owner.getControl(1).Height + 8)
Owner.RedrawAllControls
End Sub
Private Sub cmdRIGHT_Click()
Owner.ChangeCode Owner.SelectedID, "left", "@" & Owner.ScaleWidth - Owner.getCurrentControl.Width
Owner.RedrawAllControls
End Sub
Private Sub cmdTOP_Click()
Owner.ChangeCode Owner.SelectedID, "top", "@0"
Owner.RedrawAllControls
End Sub
Private Sub tbTools_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "Open"
Owner.fLoad
Case "Save"
Owner.Save
Case "Convert"
Owner.Convert
End Select
End Sub
Private Sub txtCode_Change()
Owner.setCode Owner.SelectedID, txtCode.Text
Owner.RedrawAllControls
Owner.SelectControl Owner.SelectedID
End Sub
Private Sub txtID_Change()
On Error Resume Next
Owner.SelectControl CInt(txtID.Text)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -