使用新的呼叫值重新加载表单 [英] Reloade form with new call value

问题描述

你好。我正在使用一个程序，并希望创建一个下一个按钮，重新加载相同的表单包括新的调用值。我该怎么办？



我的尝试：

 ToolStripMenu的第一个调用表单，工作正常。 
< pre lang =vb>私人小组KyuVittGulToolStripMenuItem_Click（发送者为对象，例如作为EventArgs的）
 CloseForm（）
尺寸frmInstr作为新FRM_Instr（15）
 frmInstr.MdiParent =我
 frmInstr.WindowState = FormWindowState。最大化
 frmInstr.Show（）
结束子

在FRM_Instr中我想用里面的按钮重新加载，怎么样？

 私人  Sub  Btn_NextGrad_Click （发件人作为 对象，e 作为 EventArgs ）句柄 Btn_NextGrad.Click 
 ' 重新加载表格与数字电话..种类，me.refresh（5） 
 结束  Sub  
 

解决方案

解决它...完美的代码与否，它的工作方式与我想的一样。



形式FRM_Instr

 私有  Sub  Btn_NextGrad_Click（发件人作为 对象，e 作为 EventArgs）句柄 Btn_NextGrad 。点击
 我 .Close（）
 Kyu =  0  
 调用 CallFormAgain.refreshFormAgain（Kyu +  1 ）
 结束  Sub  
 

创建了一个vb class

  Imports  mainwindow 
  Public  类 CallFormAgain 
  Pub lic  共享  Sub  refreshFormAgain（kyu  As  整数）
  Dim  frmInstr  As  <跨度类= 代码关键字>新 FRM_Instr（圭）
 frmInstr.MdiParent = FRM_MasterForm 
 frmInstr.WindowState = FormWindowState.Maximized 
 frmInstr.Show （）
 结束  Sub  
 
 公开 共享 拓宽 运营商  CType （v  As  CallFormAgain） As 表格
 抛出 新 NotImplementedException（ ）
 结束 运算符 
 结束 类 

Hi guys. I working with a program and want to create a next button, that reload same form included new calling value. How do I do?

What I have tried:

First calling form from ToolStripMenu, works fine.
<pre lang="vb">    Private Sub KyuVittGulToolStripMenuItem_Click(sender As Object, e As EventArgs)
        CloseForm()
        Dim frmInstr As New FRM_Instr(15)
        frmInstr.MdiParent = Me
        frmInstr.WindowState = FormWindowState.Maximized
        frmInstr.Show()
    End Sub

And in FRM_Instr I want to reload with a button inside, how?

Private Sub Btn_NextGrad_Click(sender As Object, e As EventArgs) Handles Btn_NextGrad.Click
    'Reload this form with numeric call.. kind of, me.refresh(5)
End Sub

解决方案

Solved it... Perfect code or not, it´s works like I want.

in form FRM_Instr

Private Sub Btn_NextGrad_Click(sender As Object, e As EventArgs) Handles Btn_NextGrad.Click
     Me.Close()
         Kyu = 0
     Call CallFormAgain.refreshFormAgain(Kyu + 1)
 End Sub

created a vb class

Imports mainwindow
Public Class CallFormAgain
    Public Shared Sub refreshFormAgain(kyu As Integer)
        Dim frmInstr As New FRM_Instr(kyu)
        frmInstr.MdiParent = FRM_MasterForm
        frmInstr.WindowState = FormWindowState.Maximized
        frmInstr.Show()
    End Sub

    Public Shared Widening Operator CType(v As CallFormAgain) As Form
        Throw New NotImplementedException()
    End Operator
End Class

这篇关于使用新的呼叫值重新加载表单的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！