?? about.frm
字號(hào):
VERSION 5.00
Begin VB.Form Form6
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
ClientHeight = 4200
ClientLeft = 3075
ClientTop = 2340
ClientWidth = 4755
LinkTopic = "Form6"
MaxButton = 0 'False
ScaleHeight = 4200
ScaleWidth = 4755
Begin VB.Timer Timer1
Left = 5280
Top = 3360
End
Begin VB.PictureBox Picture1
BackColor = &H00000000&
Height = 375
Left = 5280
ScaleHeight = 315
ScaleWidth = 315
TabIndex = 0
Top = 3360
Visible = 0 'False
Width = 375
End
Begin VB.Label Label9
BackColor = &H00000000&
Caption = " Email:wang_cqtj@126.com"
ForeColor = &H00FFFFFF&
Height = 255
Left = 840
TabIndex = 9
Top = 3240
Width = 3375
End
Begin VB.Label Label8
BackColor = &H00000000&
Caption = "開(kāi)發(fā)平臺(tái): Visual Basic 6.0"
ForeColor = &H00FFFFFF&
Height = 255
Left = 1320
TabIndex = 8
Top = 2640
Width = 2655
End
Begin VB.Label Label7
BackColor = &H00000000&
Caption = "頁(yè)面設(shè)計(jì): 王 昆"
ForeColor = &H00FFFFFF&
Height = 255
Left = 1320
TabIndex = 7
Top = 2280
Width = 2295
End
Begin VB.Label Label6
BackColor = &H00000000&
Caption = "程序設(shè)計(jì): 王 昆"
ForeColor = &H00FFFFFF&
Height = 255
Left = 1320
TabIndex = 6
Top = 1920
Width = 2295
End
Begin VB.Label Label5
BackColor = &H00000000&
Caption = "程序開(kāi)發(fā): 王 昆"
ForeColor = &H00FFFFFF&
Height = 255
Left = 1320
TabIndex = 5
Top = 1560
Width = 2295
End
Begin VB.Label Label4
BackColor = &H00000000&
Caption = "[verion 1.0]"
ForeColor = &H00FFFFFF&
Height = 255
Left = 1800
TabIndex = 4
Top = 1080
Width = 1095
End
Begin VB.Label Label3
BackColor = &H00000000&
Caption = "Copyright 2003-2004 WWSoft"
ForeColor = &H00FFFFFF&
Height = 255
Left = 1200
TabIndex = 3
Top = 840
Width = 2535
End
Begin VB.Label Label2
BackColor = &H00000000&
Caption = "人 事 管 理 系 統(tǒng)"
ForeColor = &H00FFFFFF&
Height = 255
Left = 1560
TabIndex = 2
Top = 600
Width = 1695
End
Begin VB.Shape Shape2
Height = 495
Left = 3720
Top = 3600
Visible = 0 'False
Width = 1215
End
Begin VB.Shape Shape1
Height = 495
Left = 2520
Top = 3600
Visible = 0 'False
Width = 1215
End
Begin VB.Label Label1
BackColor = &H00000000&
ForeColor = &H00FFFFFF&
Height = 4215
Left = -720
TabIndex = 1
Top = 0
Width = 5655
End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim step As Integer
Private Sub Form_Load()
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
step = 40
Rem
Label1.Left = 0
Label1.Top = Picture1.Height
Label1.Caption = Label1.Caption + " " + Chr$(13)
Label1.Caption = Label1.Caption + " " + Chr$(13)
Label1.Caption = Label1.Caption + " 人 事 管 理 系 統(tǒng)" + Chr$(13)
Label1.Caption = Label1.Caption + " " + Chr$(13)
Label1.Caption = Label1.Caption + " Copyright 2003-2004 WWSoft" + Chr$(13)
Label1.Caption = Label1.Caption + " " + Chr$(13)
Label1.Caption = Label1.Caption + " [verion 1.0]" + Chr$(13)
Label1.Caption = Label1.Caption + " " + Chr$(13)
Label1.Caption = Label1.Caption + " " + Chr$(13)
Label1.Caption = Label1.Caption + " " + Chr$(13)
Label1.Caption = Label1.Caption + " 程序開(kāi)發(fā): 王 昆" + Chr$(13)
Label1.Caption = Label1.Caption + " " + Chr$(13)
Label1.Caption = Label1.Caption + " 程序設(shè)計(jì): 王 昆" + Chr$(13)
Label1.Caption = Label1.Caption + " " + Chr$(13)
Label1.Caption = Label1.Caption + " 頁(yè)面設(shè)計(jì): 王 昆" + Chr$(13)
Label1.Caption = Label1.Caption + " " + Chr$(13)
Label1.Caption = Label1.Caption + " 開(kāi)發(fā)平臺(tái): Visual Basic 6.0" + Chr$(13)
Label1.Caption = Label1.Caption + " " + Chr$(13)
Label1.Caption = Label1.Caption + " " + Chr$(13)
Label1.Caption = Label1.Caption + " " + Chr$(13)
Label1.Caption = Label1.Caption + " Email:wang_cqtj@126.com" + Chr$(13)
'Shape1.FillColor = Shape1.BackColor
Shape1.FillStyle = 0
Shape1.Height = Shape2.Height - 2
Shape1.Left = Shape2.Left
Shape1.Top = Shape2.Top + 1
If step < 0 Then
step = -step
End If
If step = 0 Then
step = 40
End If
Timer1.Interval = step
Timer1.Enabled = False
Label1.Top = Picture1.Height
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If (-Label1.Top) - Label1.Height >= -step Then
Shape1.Width = Shape2.Width
Label1.Top = -Label1.Height
Timer1.Enabled = False
Shape1.Width = 1
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label6.Visible = True
Label7.Visible = True
Label8.Visible = True
Label9.Visible = True
Else
Label1.Top = Label1.Top - step
Shape1.Width = Shape2.Width * (1 - (Label1.Top + Label1.Height) / (Picture1.Height + Label1.Height))
End If
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -