📄 change colour.frm
字号:
VERSION 4.00
Begin VB.Form frmColors
BorderStyle = 3 'Fixed Dialog
Caption = "Background Colors"
ClientHeight = 3255
ClientLeft = 3645
ClientTop = 4905
ClientWidth = 3255
Height = 3660
Icon = "Change Colour.frx":0000
Left = 3585
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3255
ScaleWidth = 3255
ShowInTaskbar = 0 'False
Top = 4560
Width = 3375
Begin VB.CommandButton cmdTest
Caption = "<---- &Test"
Height = 375
Left = 1920
TabIndex = 26
Top = 2040
Width = 1095
End
Begin VB.CommandButton cmdDefault
Caption = "&Default"
Height = 375
Left = 2160
TabIndex = 29
Top = 2760
Width = 975
End
Begin VB.CommandButton cmdCancel
Caption = "&Cancel"
Height = 375
Left = 1080
TabIndex = 28
Top = 2760
Width = 975
End
Begin VB.CommandButton cmdOk
Caption = "&OK"
Height = 375
Left = 60
TabIndex = 27
Top = 2760
Width = 915
End
Begin VB.Label lblColorPick
BorderStyle = 1 'Fixed Single
BeginProperty Font
name = "Arial"
charset = 0
weight = 400
size = 9
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = 1200
TabIndex = 25
Top = 2040
Width = 615
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Color Chosen:"
Height = 195
Left = 120
TabIndex = 24
Top = 2160
Width = 990
End
Begin VB.Label lblColors
BackColor = &H00808000&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 23
Left = 2640
TabIndex = 23
Top = 1560
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00008000&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 22
Left = 2160
TabIndex = 22
Top = 1560
Width = 375
End
Begin VB.Label lblColors
BackColor = &H0000C000&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 21
Left = 1680
TabIndex = 21
Top = 1560
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00FF00FF&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 20
Left = 1200
TabIndex = 20
Top = 1560
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00FF80FF&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 19
Left = 720
TabIndex = 19
Top = 1560
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00FFC0FF&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 18
Left = 240
TabIndex = 18
Top = 1560
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 17
Left = 2640
TabIndex = 17
Top = 1080
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00FF8080&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 16
Left = 2160
TabIndex = 16
Top = 1080
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 15
Left = 1680
TabIndex = 15
Top = 1080
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00FFFF00&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 14
Left = 1200
TabIndex = 14
Top = 1080
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00FFFF80&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 13
Left = 720
TabIndex = 13
Top = 1080
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00FFFFC0&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 12
Left = 240
TabIndex = 12
Top = 1080
Width = 375
End
Begin VB.Label lblColors
BackColor = &H0000FF00&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 11
Left = 2640
TabIndex = 11
Top = 600
Width = 375
End
Begin VB.Label lblColors
BackColor = &H0080FF80&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 10
Left = 2160
TabIndex = 10
Top = 600
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00C0FFC0&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 9
Left = 1680
TabIndex = 9
Top = 600
Width = 375
End
Begin VB.Label lblColors
BackColor = &H0000FFFF&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 8
Left = 1200
TabIndex = 8
Top = 600
Width = 375
End
Begin VB.Label lblColors
BackColor = &H0080FFFF&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 7
Left = 720
TabIndex = 7
Top = 600
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00C0FFFF&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 6
Left = 240
TabIndex = 6
Top = 600
Width = 375
End
Begin VB.Label lblColors
BackColor = &H000080FF&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 5
Left = 2640
TabIndex = 5
Top = 120
Width = 375
End
Begin VB.Label lblColors
BackColor = &H0080C0FF&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 4
Left = 2160
TabIndex = 4
Top = 120
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00C0E0FF&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 3
Left = 1680
TabIndex = 3
Top = 120
Width = 375
End
Begin VB.Label lblColors
BackColor = &H000000FF&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 2
Left = 1200
TabIndex = 2
Top = 120
Width = 375
End
Begin VB.Label lblColors
BackColor = &H008080FF&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 1
Left = 720
TabIndex = 1
Top = 120
Width = 375
End
Begin VB.Label lblColors
BackColor = &H00C0C0FF&
BorderStyle = 1 'Fixed Single
Height = 375
Index = 0
Left = 240
TabIndex = 0
Top = 120
Width = 375
End
End
Attribute VB_Name = "frmColors"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim msngDefColor As String 'default color
Dim mbOkClick As Boolean 'find out if ok is clicked
Private Sub cmdCancel_Click()
'if the user doesnt like the color,
'then the computer will set it back to the previous color
frmStopWatch.BackColor = msngDefColor
frmStopWatch.lblTime.BackColor = msngDefColor
frmStopWatch.lblDate.BackColor = msngDefColor
Unload Me 'exit the program
End Sub
Private Sub cmdDefault_Click()
mbOkClick = True
frmStopWatch.BackColor = &H8000000F 'change it back to the default
frmStopWatch.lblTime.BackColor = &H8000000F
frmStopWatch.lblDate.BackColor = &H8000000F
Unload Me 'exit the program
End Sub
Private Sub cmdOk_Click()
mbOkClick = True
frmStopWatch.BackColor = lblColorPick.BackColor
frmStopWatch.lblTime.BackColor = lblColorPick.BackColor
frmStopWatch.lblDate.BackColor = lblColorPick.BackColor
Unload Me 'exit the program
End Sub
Private Sub cmdTest_Click()
'This will temporarily change the
'background color of the form, just
'to make sure the user likes it, if not
'then just click on cancel and the
'original color will appear again
frmStopWatch.BackColor = lblColorPick.BackColor
frmStopWatch.lblTime.BackColor = lblColorPick.BackColor
frmStopWatch.lblDate.BackColor = lblColorPick.BackColor
End Sub
Private Sub Form_Load()
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 'centre the form on the screen
msngDefColor = frmStopWatch.BackColor
mbOkClick = False 'by default the ok button is not clicked
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If mbOkClick = True Then Exit Sub
frmStopWatch.BackColor = msngDefColor
Cancel = False
End Sub
Private Sub lblColors_Click(Index As Integer)
lblColorPick.BackColor = lblColors(Index).BackColor
cmdTest.Enabled = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -