首页 > 代码库 > 游戏“你是XX么”的VB.NET实现
游戏“你是XX么”的VB.NET实现
〇、下载地址
本程序可以在 这里 下载到。
一、关于本游戏的玩法
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 Sub End 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 Sub End Class
END
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。