?? win.frm
字號:
VERSION 5.00
Begin VB.Form WIN
BorderStyle = 3 'Fixed Dialog
Caption = "WINER IS YOU !"
ClientHeight = 1170
ClientLeft = 2820
ClientTop = 5550
ClientWidth = 4740
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000003&
Icon = "WIN.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1170
ScaleWidth = 4740
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame1
Caption = "Abuot:"
ForeColor = &H00C00000&
Height = 1000
Left = 120
TabIndex = 3
Top = 50
Width = 1500
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "PICGAME. Made of VB5."
ForeColor = &H00C00000&
Height = 540
Left = 120
TabIndex = 4
Top = 225
Width = 1215
WordWrap = -1 'True
End
End
Begin VB.PictureBox Picture1
Height = 500
Left = 1700
ScaleHeight = 435
ScaleWidth = 2835
TabIndex = 2
Top = 120
Width = 2900
End
Begin VB.Timer Timer1
Interval = 100
Left = 2880
Top = 720
End
Begin VB.CommandButton Command2
Caption = "No"
BeginProperty Font
Name = "宋體"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3480
TabIndex = 1
Top = 720
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Yes"
BeginProperty Font
Name = "宋體"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1920
TabIndex = 0
Top = 720
Width = 855
End
Begin VB.Image Image2
Height = 500
Left = 1800
Picture = "WIN.frx":08CA
Stretch = -1 'True
Top = 120
Width = 2800
End
End
Attribute VB_Name = "WIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public a As Integer
Private Sub Command1_Click()
Unload WIN '繼續
End Sub
Private Sub Command2_Click()
End '退出
End Sub
Private Sub Form_Load()
If Val(PICG.MT) = 0 Then
TempT = Val(PICG.ST) & " Sec."
Else
If Val(PICG.ST) = 0 Then
TempT = Val(PICG.MT) & " Min."
Else
TempT = Val(PICG.MT) & " M " & PICG.ST & " S."
End If
End If
WIN.Caption = WIN.Caption & "( Use time : " & TempT & ")"
WIN.a = Picture1.Width '動畫邊界
End Sub
Private Sub Form_Unload(Cancel As Integer)
PICG.Show
PICG.start.SetFocus
End Sub
Private Sub Timer1_Timer()
Static b As Integer
If WIN.a >= 0 Then ' 動畫邊界
Picture1.Picture = LoadPicture("")
WIN.a = WIN.a - 100
Picture1.PaintPicture Image2.Picture, WIN.a, 0, _
Picture1.Width - WIN.a, Picture1.Height, _
0, 0, _
Picture1.Width - WIN.a, Picture1.Height, _
vbSrcCopy
'將圖片從右往左移動
Else
b = b + 1 '完成退出
If b > 50 Then
Unload WIN: b = 0
End If
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -