測試 縮放
Public Class Form1
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
T_game.Enabled = False
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Top = 275
Me.Left = 535
Button1.Hide()
End Sub
Private Sub B_end_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_end.Click
T_end.Enabled = True
End Sub
Private Sub B_min_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_min.Click
T_move.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T_end.Tick
Me.Width -= 17
Me.Height -= 23
Me.Opacity -= 0.08
If Me.Opacity < 0.05 Then
End
End If
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_key.Click
End Sub
Private Sub enter_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enter_1.Click
If Val(T_key.Text) = 1234 Then
T_enter.Enabled = True
ElseIf T_key.Text = "" Then
MsgBox("連打字都不會阿", MsgBoxStyle.Critical, "警告")
ElseIf T_key.Text = " " Then
MsgBox("隱藏密碼", MsgBoxStyle.Information, "= =")
MsgBox("若無法到下個介面可能是電腦跟你鬧脾氣請繼續下一步", MsgBoxStyle.Information, "= =")
MsgBox("zzz", MsgBoxStyle.Information, "= =")
MsgBox("zzz", MsgBoxStyle.Information, "= =")
MsgBox("zzz", MsgBoxStyle.Information, "= =")
MsgBox("zzz", MsgBoxStyle.Information, "= =")
MsgBox("zzz", MsgBoxStyle.Information, "= =")
MsgBox("咬我阿", MsgBoxStyle.Information, "= =")
End
ElseIf MsgBox("眼脫ㄇ", MsgBoxStyle.Critical, "警告") Then
End If
T_key.Clear()
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T_move.Tick
Me.Top += 20
If Me.Top > 800 Then
Me.WindowState = FormWindowState.Minimized
T_move.Enabled = False
End If
End Sub
Private Sub L_look_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
T_game.Enabled = True
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T_game.Tick
Me.Left += 20
If Me.Left > 1400 Then
Me.Left = 0
Me.Left += 20
End If
End Sub
Private Sub re_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles re.Click
Me.Top = 275
Me.Left = 535
End Sub
Private Sub T_enter_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T_enter.Tick
Me.Top -= 7
Me.Width -= 17
Me.Height -= 23
Me.Opacity -= 0.08
If Me.Opacity < 0.05 Then
Me.Hide()
Form2.Show()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form3.Show()
End Sub
End Class




