April 10, 2010

測試 縮放



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

Today's Visitors: 0 Total Visitors: 2
Personal Category: Uncategorized Articles Topic: technology / tech info / programming
[Trackback URL]

Post A Comment









Yes No





誰來收藏
Loading ...
unlog_NVPO 0