如何在 windows 应用程序 下重新加载窗体

[半支烟z]

windows 应用程序下建立一个项目
做个扫雷的小游戏练习

对点到雷后,弹出一个对话框,告诉我点到雷了,在点对话框上的确定之后

想对这个窗体就重新的加载一次(就是恢复到刚开始运行的那个状态)

这个应该是用什么去实现呢?

其他的判断都做完了,就剩下这个问题了

刚接触这个3天,还请前辈多指教

2.顺便还想问下,在做软件的话是不是大多都是在这个"windows 应用程序" 这个环境下做的呢?

因为之前是做网站的，所以没接触过

还请原谅我问的不好意思嘿嘿

[北京的雾霾天]

需要传这两个参数吗?

觉得没有必要在你的这个功能下(好像)

如果确实要这两个参数,那么你要类似这样使用:

me, new EventArgs()

[半支烟z]

我笨了,还是没弄出来!

Me.Form1_Load(sender, e)
用这个方法,虽然能初始化一些Form1_Load()里的数

但是 按纽的 Enabled=false 的这个属性没有改变成最开始的

就是说在点过的按妞不能在复原

[mqmmx]

那你在Load事件中加上
Enabled=true不就行了

还有就是楼主扫雷中的具体算法是怎么做的能不能说说？

[半支烟z]

If s = "T" Then
sender.Enabled = False
sender.Text = "Tu"
MsgBox("有雷，请从新开始")
Me.Form1_Load(Me, New EventArgs())


Else
num_E = num_E + 1
If 64 - num_T = num_E Then
MsgBox("过关了")
End If
'MsgBox(num_E)
sender.Enabled = "false"
Dim i_Partial As Integer = 0
Select Case i
Case 1
If bool(i + 1, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 8, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 9, 1) = "T" Then
i_Partial = i_Partial + 1
End If
'sender.Text = i_Partial
Case 8
If bool(i - 1, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 8, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 7, 1) = "T" Then
i_Partial = i_Partial + 1
End If
'sender.Text = i_Partial
Case 57
If bool(i + 1, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 8, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 7, 1) = "T" Then
i_Partial = i_Partial + 1
End If
'sender.Text = i_Partial
Case 64
If bool(i - 9, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 8, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 1, 1) = "T" Then
i_Partial = i_Partial + 1
End If
Case 2 To 7 '''最上排
If bool(i - 1, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 1, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 8, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 9, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 7, 1) = "T" Then
i_Partial = i_Partial + 1
End If
Case 58 To 63 '''最下排
If bool(i - 1, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 1, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 8, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 7, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 9, 1) = "T" Then
i_Partial = i_Partial + 1
End If
Case 9, 17, 25, 33, 41, 49 '''最左排
If bool(i + 8, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 8, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 1, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 7, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 9, 1) = "T" Then
i_Partial = i_Partial + 1
End If
Case 16, 24, 32, 40, 48, 56 '''最右排
If bool(i + 8, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 8, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 1, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 9, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 7, 1) = "T" Then
i_Partial = i_Partial + 1
End If
Case Else
If bool(i + 8, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 8, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 1, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 1, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 9, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i + 7, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 7, 1) = "T" Then
i_Partial = i_Partial + 1
End If
If bool(i - 9, 1) = "T" Then
i_Partial = i_Partial + 1
End If
' sender.Text = i_Partial
End Select
sender.Text = i_Partial
End If
End If

[半支烟z]

全都复制上说是内容太长了

就把你问的那个地方贴出来了

没什么算发的

就是根据点的那个按妞去算他的周围有没有为T的按妞,并计算个数

[半支烟z]

If s = "T" Then
sender.Enabled = False
sender.Text = "Tu"
MsgBox("有雷，请从新开始")
Me.Form1_Load(Me, New EventArgs())

我就想让在这个点到雷了后就从新的加载

可是我么作出来,还请各位前辈指点一二

[BitCoffee]

点击确定之后，重新调用Load事件应该可以实现吧.
Me.Form1_Load(sender, e)

[北京的雾霾天]

写一个方法来初始化窗体,在Load及需要的地方来调用.

[北京的雾霾天]

不要初始化的代码直接写到Load里,用一个初始化的方法.

[半支烟z]

点击确定之后，重新调用Load事件应该可以实现吧.
Me.Form1_Load(sender, e)


不能很好的实现

[半支烟z]

hbxtlhx:不要初始化的代码直接写到Load里,用一个初始化的方法.


那怎么传递 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
这里的参数呢?

[zhouyidang]

Call Me.Form1_Load(sender, e)

[RiverCai]

If s = "T" Then
sender.Enabled = False
sender.Text = "Tu"
MsgBox("有雷，请从新开始")
sender.Enabled=True
Me.Form1_Load(sender,e)
EndIf

[idhgd]

如果load里是初始化的代码，调用me.form_load(nothing,nothing)不行吗？