专注收集记录技术开发学习笔记、技术难点、解决方案
网站信息搜索 >> 请输入关键词:
您当前的位置: 首页 > VB Dotnet

openForm解决办法

发布时间:2011-06-23 16:03:53 文章来源:www.iduyao.cn 采编人员:星星草
openForm
在数据库中有菜单的表,其中指示了打开的界面。
按钮1 打开 A窗体

但是在VB。NET中如何实现,记得在VBA中可以用 DOCMD.OPENFORM "FormName" 来实现。

寻求各位帮助

------解决方案--------------------
appliaction.run(formname)??
我也不太懂
------解决方案--------------------
show(formname)不就是打开窗体吗?不知道你是不是想要这个?
------解决方案--------------------
Dim frm As FrmDataMana = New FrmDataMana
 frm.MdiParent = Me
 frm.Show()
------解决方案--------------------
那你就根据combox所选择的内容,然后弹出对应的窗口应该就可以了: 
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim formname= Me.ComboBox1.SelectedItem
Dim frm As formname
frm = New formname
frm.ShowDialog()
End Sub
 
------解决方案--------------------
VB.NET code

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim frm As Form

        Select Case Me.ComboBox1.Text
            Case "form1"
                frm = New Form1
                frm.ShowDialog()
            Case "form2"
                frm = New Form2
                frm.ShowDialog()
            Case "form3"
                frm = New Form3
                frm.ShowDialog()
            Case Else
        End Select

    End Sub

------解决方案--------------------
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case Me.ComboBox1.Text
Case "form1"
Dim frm As New Form1
Case "form2"
Dim frm As New Form2
Case Else
Dim frm As New Form3
End Select
With frm
.Visible = True
.Show()
.TopMost = True
End With
End Sub
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。

其他相似内容:

热门推荐: