📄 about.frm
字号:
VERSION 5.00
Begin VB.Form About
AutoRedraw = -1 'True
BorderStyle = 4 'Fixed ToolWindow
ClientHeight = 3510
ClientLeft = 15
ClientTop = 15
ClientWidth = 4920
ControlBox = 0 'False
Icon = "About.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 234
ScaleMode = 3 'Pixel
ScaleWidth = 328
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.PictureBox PicFocus
Height = 195
Left = 300
ScaleHeight = 135
ScaleWidth = 135
TabIndex = 0
Top = 75000
Width = 195
End
Begin VB.PictureBox PicScale
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
FillColor = &H00C0FFFF&
FillStyle = 0 'Solid
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontTransparent = 0 'False
ForeColor = &H00C0FFFF&
Height = 2730
Left = 0
ScaleHeight = 182
ScaleMode = 3 'Pixel
ScaleWidth = 328
TabIndex = 8
TabStop = 0 'False
Top = 75000
Width = 4920
End
Begin VB.PictureBox PicText
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
FillColor = &H00C0FFFF&
FillStyle = 0 'Solid
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontTransparent = 0 'False
ForeColor = &H00C0FFFF&
Height = 2730
Left = 0
ScaleHeight = 182
ScaleMode = 3 'Pixel
ScaleWidth = 324
TabIndex = 7
TabStop = 0 'False
Top = 75000
Width = 4860
End
Begin VB.PictureBox PicField
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 2730
Left = 0
ScaleHeight = 182
ScaleMode = 3 'Pixel
ScaleWidth = 328
TabIndex = 6
TabStop = 0 'False
Top = 0
Width = 4920
End
Begin VB.PictureBox PicScreen
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 2730
Left = 660
Picture = "About.frx":000C
ScaleHeight = 182
ScaleMode = 3 'Pixel
ScaleWidth = 328
TabIndex = 5
TabStop = 0 'False
Top = 75000
Width = 4920
End
Begin VB.PictureBox PicMask2
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 3510
Left = 480
Picture = "About.frx":02B7
ScaleHeight = 234
ScaleMode = 3 'Pixel
ScaleWidth = 328
TabIndex = 4
TabStop = 0 'False
Top = 75000
Width = 4920
End
Begin VB.PictureBox PicStar
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 2730
Left = 0
ScaleHeight = 182
ScaleMode = 3 'Pixel
ScaleWidth = 328
TabIndex = 3
TabStop = 0 'False
Top = 75000
Width = 4920
End
Begin VB.PictureBox PicMask
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 3510
Left = 1260
Picture = "About.frx":09D0
ScaleHeight = 3510
ScaleWidth = 4920
TabIndex = 2
TabStop = 0 'False
Top = 75000
Width = 4920
End
Begin VB.PictureBox PicAbout
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 3510
Left = 300
Picture = "About.frx":0C7B
ScaleHeight = 3510
ScaleWidth = 4920
TabIndex = 1
TabStop = 0 'False
Top = 2.25000e5
Width = 4920
End
Begin VB.Image AboutOK
Height = 300
Left = 3420
Top = 3120
Width = 1305
End
End
Attribute VB_Name = "About"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/03/20
'描 述：软盘分析修复维护工具 Ver 1.3.0-------一个比较有个性的关于对话框 :)
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit
'--------------------------------------Windows API Functions
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function ReleaseWinCapture Lib "user32" Alias "ReleaseCapture" () As Long
Private Declare Function SendWinMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hDC As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
'------------------------------------------------------常数
Private Const WM_MOVE = &HF012
Private Const WM_SYSCOMMAND = &H112
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Const RGN_OR = 2
Private Const SRCCOPY = &HCC0020
Private Const SRCPAINT = &HEE0086
Private Const SRCAND = &H8800C6
'------------------------------------------------------坐标
Private Const MaxStars = 30
Private Const ZFactor = 200
Private Type StarRec
X As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -