📄 yftitle1.ctl
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.UserControl YFWin
Alignable = -1 'True
BackColor = &H00FCBD6C&
ClientHeight = 7260
ClientLeft = 0
ClientTop = 0
ClientWidth = 7740
ControlContainer= -1 'True
ScaleHeight = 7260
ScaleWidth = 7740
ToolboxBitmap = "YFTitle1.ctx":0000
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 300
Left = 630
Top = 3480
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 100
Left = 180
Top = 3480
End
Begin MSComctlLib.ImageList ImageList1
Left = 60
Top = 2790
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 14
ImageHeight = 14
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "YFTitle1.ctx":0312
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "YFTitle1.ctx":0723
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "YFTitle1.ctx":0B34
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "YFTitle1.ctx":0DB0
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "YFTitle1.ctx":11C4
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "YFTitle1.ctx":1250
Key = ""
EndProperty
EndProperty
End
Begin VB.Image imgFlag
Height = 240
Left = 6900
Picture = "YFTitle1.ctx":12E6
ToolTipText = "钉子"
Top = 60
Width = 240
End
Begin VB.Label lblMove
BackStyle = 0 'Transparent
Height = 315
Left = 0
TabIndex = 3
Top = 30
Width = 6885
End
Begin VB.Image imgICON
Height = 260
Left = 90
Picture = "YFTitle1.ctx":1362
Stretch = -1 'True
Top = 50
Width = 260
End
Begin VB.Line Line4
BorderColor = &H00CEA978&
X1 = 30
X2 = 7680
Y1 = 7230
Y2 = 7230
End
Begin VB.Line Line3
BorderColor = &H00CEA978&
X1 = 7710
X2 = 7710
Y1 = 30
Y2 = 7170
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 20
X2 = 20
Y1 = 90
Y2 = 7260
End
Begin VB.Line Line1
BorderColor = &H00FFF8E8&
X1 = 20
X2 = 7710
Y1 = 20
Y2 = 20
End
Begin VB.Image imgMin
Height = 210
Left = 7200
Picture = "YFTitle1.ctx":17A4
ToolTipText = "最小化"
Top = 70
Width = 210
End
Begin VB.Image imgExit
Height = 210
Left = 7440
Picture = "YFTitle1.ctx":1A10
ToolTipText = "退出"
Top = 70
Width = 210
End
Begin VB.Image imgYF
Height = 300
Index = 1
Left = 5040
Picture = "YFTitle1.ctx":1E11
Top = 30
Width = 1725
End
Begin VB.Image imgYF
Height = 300
Index = 0
Left = 600
Picture = "YFTitle1.ctx":3985
Top = 30
Width = 1725
End
Begin VB.Label lblText
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "叶帆软件"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Index = 0
Left = 2040
TabIndex = 1
Top = 60
Width = 3585
End
Begin VB.Label lblText
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "叶帆软件"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FCBD6C&
Height = 285
Index = 1
Left = 2070
TabIndex = 2
Top = 70
Width = 3585
End
Begin VB.Label lblTitle
BackColor = &H00FEA821&
Height = 300
Left = 30
TabIndex = 0
Top = 30
Width = 7665
End
End
Attribute VB_Name = "YFWin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'*************************************************************************
'**模 块 名：YFWin
'**说 明：YFsoft 叶帆Blog:http://blog.csdn.net/yefanqiu/
'**创 建 人：叶帆
'**日 期：2004-12-14 10:03:23
'**修 改 人：
'**日 期：
'**描 述：窗体控件，直接添加到窗体即可
'**版 本：V1.0.0
'*************************************************************************
Option Explicit
Dim m_TextLen As Long
Dim m_Text As String
Dim m_hWnd As Long
Dim m_Form As Form
Dim m_Flag As Boolean
Dim m_FlagVisible As Boolean
Event MinWindow() '最小化窗体事件
Event CloseWindow() '关闭窗体事件
Event IconClick()
Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event KeyPress(KeyAscii As Integer)
Event KeyDown(KeyCode As Integer, Shift As Integer)
Event KeyUp(KeyCode As Integer, Shift As Integer)
Event Click()
Private Sub imgFlag_Click()
m_Flag = Not m_Flag
If m_Flag = True Then '最前
SetWindowPos m_hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
imgFlag.Picture = ImageList1.ListImages(6).Picture
Else '普通
SetWindowPos m_hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
imgFlag.Picture = ImageList1.ListImages(5).Picture
End If
PropertyChanged "Flag"
End Sub
Private Sub imgExit_Click()
Unload UserControl.Extender.Parent
RaiseEvent CloseWindow
End Sub
Private Sub imgFlag_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgExit.Picture = ImageList1.ListImages(1).Picture
imgMin.Picture = ImageList1.ListImages(3).Picture
End Sub
Private Sub imgMin_Click()
AddToTray m_hWnd, imgICON.Picture '增加图标到托盘
SetTrayTip m_Text '设置新的提示信息
Timer1.Enabled = True
UserControl.Extender.Parent.WindowState = vbMinimized
UserControl.Extender.Parent.Visible = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -