?? welcome.frm
字號:
VERSION 5.00
Begin VB.Form Welcome
BorderStyle = 0 'None
Caption = "Welcome"
ClientHeight = 3300
ClientLeft = 0
ClientTop = 0
ClientWidth = 4575
LinkTopic = "Form6"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3300
ScaleWidth = 4575
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture2
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 3300
Left = 0
Picture = "Welcome.frx":0000
ScaleHeight = 216
ScaleMode = 3 'Pixel
ScaleWidth = 300
TabIndex = 1
Top = 0
Visible = 0 'False
Width = 4560
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 3315
Left = 0
Picture = "Welcome.frx":0514
ScaleHeight = 217
ScaleMode = 3 'Pixel
ScaleWidth = 307
TabIndex = 0
Top = 0
Visible = 0 'False
Width = 4665
End
End
Attribute VB_Name = "Welcome"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'申明在指定的設備場景中設置一個像素的RGB值的函數Getpixel和GetPixel
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Dim scanlines As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.Hide
End Sub
'退出按鈕
'Private Sub Command1_Click()
'End
'End Sub
Private Sub Form_Load()
Picture1.ScaleMode = 3 'ScaleMade的屬性值為3表示像素,監視器的最小分辨率
Welcome.ScaleMode = 3
'設置圖片的大小
Picture1.Width = Welcome.ScaleWidth
Picture1.Height = Welcome.ScaleHeight
End Sub
'延遲時間設置
Sub delay(delaytime As Long)
For i = 1 To delaytime
DoEvents
Next i
End Sub
Private Sub Form_Paint()
'從右往左展開
mx = Picture1.ScaleWidth
My = Picture1.ScaleHeight
For X = mx To 0 Step -1
For Y = My To 0 Step -1
a = GetPixel(Picture1.hdc, X, Y)
B = SetPixel(Me.hdc, X, Y, a)
Next Y
DoEvents
Next X
delay 1000
'從左往右展開
mx = Picture2.ScaleWidth
My = Picture2.ScaleHeight
For X = 0 To mx
For Y = 0 To My
a = GetPixel(Picture2.hdc, X, Y)
B = SetPixel(Me.hdc, X, Y, a)
Next Y
DoEvents
Next X
delay 1000
If FClose = True Then
End
Else
Me.Hide
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -