?? frmabout.frm
字號:
VERSION 5.00
Begin VB.Form frmAbout
BackColor = &H00E0E0E0&
Caption = "關于"
ClientHeight = 4800
ClientLeft = 60
ClientTop = 345
ClientWidth = 7095
LinkTopic = "Form1"
ScaleHeight = 4800
ScaleWidth = 7095
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture1
BackColor = &H00E0E0E0&
Height = 3015
Left = 600
ScaleHeight = 2955
ScaleWidth = 5595
TabIndex = 1
Top = 720
Width = 5655
Begin VB.Label Label4
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = $"frmAbout.frx":0000
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 1215
Left = 0
TabIndex = 6
Top = 1680
Width = 5415
End
Begin VB.Label Label3
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "計0501"
BeginProperty Font
Name = "Times New Roman"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 360
TabIndex = 4
Top = 960
Width = 5535
End
Begin VB.Label Label1
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "作 者: 陶望路"
BeginProperty Font
Name = "Times New Roman"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 360
TabIndex = 3
Top = 480
Width = 5055
End
Begin VB.Label lblWelcome
Alignment = 2 'Center
BackColor = &H00808080&
Caption = "圖書館信息管理系統"
BeginProperty Font
Name = "Times New Roman"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 495
Left = 0
TabIndex = 2
Top = 0
Width = 5655
End
End
Begin VB.CommandButton Command1
BackColor = &H00C0C0C0&
Caption = "關閉(&C)"
Height = 615
Left = 2760
Style = 1 'Graphical
TabIndex = 0
Top = 3960
Width = 1575
End
Begin VB.Label lblvote
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00E0E0E0&
Caption = "圖書館信息管理系統"
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 2040
TabIndex = 5
Top = 240
Width = 2865
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'####################################################
'Declaration for making form as TOPMOST
' [ Start ]
'####################################################
'Private Const HWND_TOPMOST = -1
'Private Const HWND_NOTOPMOST = -2
'Private Const SWP_NOSIZE = &H1
'Private Const SWP_NOMOVE = &H2
'Private Const SWP_NOACTIVATE = &H10
'Private Const SWP_SHOWWINDOW = &H40
'Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
'####################################################
'Declaration for making form as TOPMOST
' [ End ]
'####################################################
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "User32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
'the form's diameter in pixels
Const F_DIA As Integer = 7000
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Call popup
' SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub
Private Sub Form_Load()
Me.Width = F_DIA
Me.Height = F_DIA
thewidth = Me.Width / Screen.TwipsPerPixelX
theheight = Me.Height / Screen.TwipsPerPixelY
hori = CreateEllipticRgn(25, 25, thewidth, theheight)
digo = SetWindowRgn(Me.hWnd, hori, False)
Me.Height = F_DIA + 25
Me.Width = F_DIA + 25
'For displaying form in between
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
'Me.Left = Screen.Width - (Me.Width + 50)
Me.Top = Screen.Height - 1400 '1400 assumed height for taskbar
Picture1.Visible = False
'For displaying command btn in between
Command1.Move (Me.Width - Command1.Width) \ 2, (Me.Height - Command1.Height) - 700
lblvote.Move (Me.Width - lblvote.Width) \ 2, (Me.ScaleTop + lblvote.Height) + 500
Picture1.Move (Me.Width - Picture1.Width) \ 2, (Me.ScaleTop + lblvote.Height) + 1475
' Call frmNewsBar.Show
End Sub
'**************************************************
' MSN Style Popup Menu Coding
'**************************************************
Private Sub popup()
Picture1.Visible = True
Dim i As Integer
i = Me.Height
Me.Height = 0
While Me.Height < i
Me.Height = Me.Height + 50
Me.Top = Me.Top - 50
DoEvents
Wend
End Sub
Private Sub popdown()
i = Me.Height
While Me.Height > 0
Me.Height = Me.Height - 50
Me.Top = Me.Top + 50
DoEvents
Wend
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -