很好玩?给你看我这个的code.
这个很容易弄罢了。
Public Class Form1
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("哈咯。")
MessageBox.Show("你好啊。")
MessageBox.Show("我们来玩一个游戏")
MessageBox.Show("你试试把我关掉^.^")
MessageBox.Show("关不掉勒。")
MessageBox.Show("是不是有点pek chek了")
MessageBox.Show("好啦我来倒数然后关掉。")
MessageBox.Show("5.")
MessageBox.Show("4..")
MessageBox.Show("3...")
MessageBox.Show("2....")
MessageBox.Show("1.....")
MessageBox.Show("还是关不掉。咔咔")
MessageBox.Show("可能你有方法把我关掉。")
MessageBox.Show("又有可能你关不掉我。")
MessageBox.Show("如果你关不掉我就陪我聊天吧")
MessageBox.Show("可是要聊什么呢??")
MessageBox.Show("哦,是哦,我还没有介绍我自己。")
MessageBox.Show("我的名字是 关不掉。")
MessageBox.Show("很多人都关不掉我。")
MessageBox.Show("所以叫关不掉")
MessageBox.Show("你呢叫什么名?")
MessageBox.Show("哦。很好听啊。")
MessageBox.Show("为什么会取这个名呢?肯定有原因的。")
MessageBox.Show("哦。")
MessageBox.Show("。")
MessageBox.Show("《〈此版本正在修改〉》")
MessageBox.Show("如果觉得好玩,要加什么字等。可以联络MidNight_Dao")
MessageBox.Show("也可以传给其他的人。")
MessageBox.Show("谢谢观赏")
Close()
End Sub
Private Sub LinkLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel1.Click
Dialog1.Show()
End Sub
End Class
这个是那个dialog 的。
Public Class Dialog1
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
End Class