📄 frmabout.frm
字号:
VERSION 5.00
Begin VB.Form frmAbout
BackColor = &H00E0E0E0&
Caption = "About Me"
ClientHeight = 4710
ClientLeft = 60
ClientTop = 345
ClientWidth = 6840
LinkTopic = "Form1"
ScaleHeight = 4710
ScaleWidth = 6840
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.PictureBox Picture1
BackColor = &H00E0E0E0&
Height = 3015
Left = 840
ScaleHeight = 2955
ScaleWidth = 5595
TabIndex = 1
Top = 1560
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 = 7
Top = 1680
Width = 5535
End
Begin VB.Label Label3
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Website : www.VIVEKPATEL.cjb.net"
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 = 5
Top = 1200
Width = 5535
End
Begin VB.Label Label2
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Email : vivek_patel9@rediffmail.com"
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 = 840
Width = 5535
End
Begin VB.Label Label1
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Programmed by : Vivek Patel"
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 = 840
TabIndex = 3
Top = 480
Width = 5055
End
Begin VB.Label lblWelcome
Alignment = 2 'Center
BackColor = &H00808080&
Caption = "Library Management System"
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 = "&Close Me"
Height = 615
Left = 600
Style = 1 'Graphical
TabIndex = 0
Top = 120
Width = 1575
End
Begin VB.Label lblvote
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00E0E0E0&
Caption = "VOTE for Library Mgmt System"
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 = 1410
TabIndex = 6
Top = 1080
Width = 4035
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'=====================================================
'*****************************************************
'* Programmed by : Gaurav (Cicular Form ) *
'* Contact : Website => www.kaga.cjb.net *
'* Description : A Circular Form with my details *
'=====================================================
'* Thanxs GAURAV for CIRCULAR FORM CODE....
'* Taken Help from my Net Friend????
'* I have made invisible form but some how unable to make
'* Circular form...and was hurry in issuing this code...
'* which make me go for it!!! as he had already programmed
'* it!! So rather than wasting Time i decided to go for it!!
'=====================================================
'* My Contribution
'++++++++++++++++++
'* I Have Modified it to Give Animation Effect...and rest of
'* the stuff!!! deducting Curcular Form.
'* Vote For Me : If you really enjoy this utility or *
' helped by any of the functionality *
' than plz. reward us by your VOTE. *
'*****************************************************
'=====================================================
'####################################################
'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 + -