遊戲“你是XX麼”的VB.NET實現

標籤：style   http   color   使用   os   strong   io   for   

〇、

本程式可以在 這裡 下載到。

一、關於本遊戲的玩法

1）剛進程式，會有一個提示性的表單，單擊“開始測試”按鈕正式進入遊戲

2）正式進入遊戲表單後，當滑鼠挪向按鈕“不是”後，按鈕“不是”上的字樣會變成“是”，而原來的按鈕“是”上面會顯示“不是”。點擊兩個按鈕的任意一個後，都會被程式“羞辱”，然後程式會自動結束。

3）不要試圖通過開啟右上方的X或是用工作管理員（taskmgr）關閉這個視窗，如果你真的想關閉這個程式還不想承認自己是XX，請使用命令列。

4）你可以用這個程式去搞一些惡作劇，還是那句話：Just For Fun :-P

二、程式控制項與代碼

1）表單FormMain

表單內容：

StartPosition（初始位置）	CenterScreen
MaximizeBox（最大化按鈕）	False
MinimizeBox（最小化按鈕）	False
FormBorderStyle（表單風格）	FixedSingle

表單代碼

Public Class FormMain    Private Sub btnTest_Click(sender As Object, e As EventArgs) _        Handles btnTest.Click        Me.Hide()        FormTest.ShowDialog()    End SubEnd Class

2）表單FormTest

表單內容：

StartPosition（初始位置）	CenterScreen
MaximizeBox（最大化按鈕）	False
MinimizeBox（最小化按鈕）	False
FormBorderStyle（表單風格）	Fixed3D
ShowIcon（顯示表徵圖）	False
ShowInTaskbar（在工作列出現）	False

表單代碼：

Public Class FormTest    ‘選擇“是”或“不是”後該布爾值會變成True，此時視窗可關閉    Dim isChoosen As Boolean = False    ‘上方的Panel採用漸近色處理    Private Sub pnlTop_Paint(sender As Object, e As PaintEventArgs) _        Handles pnlTop.Paint        Using LG As Drawing2D.LinearGradientBrush =           New Drawing2D.LinearGradientBrush(               New Point(0, 0),               New Point(0, Me.Height),               Color.FromArgb(192, 192, 255),               Color.White)            e.Graphics.FillRectangle(LG, New Rectangle(0, 0, Me.Width, Me.Height))        End Using    End Sub    Private Sub FormTest_Load(sender As Object, e As EventArgs) _        Handles MyBase.Load        ‘滑鼠移到右側按鈕，則按鈕上文字變化        AddHandler btnRight.MouseEnter,            Sub(obj As System.Object, arg As System.EventArgs)                btnRight.Text = "是"                btnLeft.Text = "不是"            End Sub        ‘滑鼠移出右側按鈕，則按鈕上文字變回原樣        AddHandler btnRight.MouseLeave,            Sub(obj As System.Object, arg As System.EventArgs)                btnRight.Text = "不是"                btnLeft.Text = "是"            End Sub        ‘滑鼠按下按鈕，如果按鈕上文字為“是”則彈出MessageBox        AddHandler btnLeft.MouseClick,            Sub(obj As System.Object, arg As System.EventArgs)                Dim btnTemp As Button = DirectCast(obj, Button)                If btnTemp.Text = "是" Then                    MessageBox.Show("我就知道你會選是的")                    isChoosen = True                    Application.Exit()                End If            End Sub        ‘滑鼠按下按鈕，如果按鈕上文字為“是”則彈出MessageBox        AddHandler btnRight.MouseClick,            Sub(obj As System.Object, arg As System.EventArgs)                Dim btnTemp As Button = DirectCast(obj, Button)                If btnTemp.Text = "是" Then                    MessageBox.Show("我就知道你會選是的")                    isChoosen = True                    Application.Exit()                End If            End Sub        ‘計時器：禁止開啟工作管理員        Dim tmr As New Timer        AddHandler tmr.Tick,            Sub(obj As System.Object, arg As System.EventArgs)                Dim pArray As Process() = Process.GetProcesses                For Each p As Process In pArray                    Try                        If p.ProcessName.ToLower.Trim = "taskmgr" Then                            p.Kill()                            MessageBox.Show("小夥你不覺得你很逗嗎？")                            ‘將本視窗放到最前                            Me.TopMost = True                            Me.TopMost = False                            Return                        End If                    Catch ex As Exception                        Return                    End Try                Next            End Sub        tmr.Interval = 200        tmr.Enabled = True        tmr.Start()    End Sub    ‘關閉視窗事件    Private Sub FormTest_FormClosing(sender As Object, e As FormClosingEventArgs) _        Handles MyBase.FormClosing        ‘如果沒有選擇禁止關閉視窗        If isChoosen = False Then            MessageBox.Show("關了我也改變不了事實，你還是選一個吧")            e.Cancel = True            Return        End If        Me.Hide()        Threading.Thread.Sleep(3000)        MessageBox.Show(            "This game is just for fun! Thx 4 playing." & vbCrLf & _            "           -Tsybius 2014年8月1日 13:37:35")    End SubEnd Class

END