首页 > 解决方案 > 有没有办法基本上重新加载当前表单而不关闭它?

问题描述

所以我在 vb.net 中做一个小迷宫游戏,当它打开/加载游戏表单时,它会告诉我作为玩家使用的图片框,从哪里开始

Private Sub frmlvl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pbplayer.Location = New Point(30, 28)
        Me.pbplayer.Hide()

    End Sub

然后有一个显示 pbplayer 的按钮,启动计时器并定义玩家在开始时拥有的点数。并且该计时器将每秒取一个点,直到它达到零或玩家到达终点。之后,我想打开一个消息框,询问用户是否想再试一次或退出/关闭游戏

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim x As Integer
        lblpts.Text = CStr(CDbl(lblpts.Text) - 1)

        If CDbl(lblpts.Text) <= 0 Then

            Timer1.Stop()

            x = MsgBox("You lose" & vbNewLine & "Want to try again?", MsgBoxStyle.RetryCancel, "You Lose")
            If x = 4 Then
        'code to retry
            End If
        End If

    End Sub

我想知道的是我是否可以刷新或者基本上是否可以在不关闭表单并再次打开的情况下重做表单加载事件,我试过 me.refresh(), me.visible = false 和 frmlvl1.visible= true从不同的形式,但没有成功。

标签: vb.net

解决方案


推荐阅读