使用模块将表单相互连接

时间:2014-03-15 18:26:25

标签: vb.net forms module show-hide toolstripbutton

我是编程新手并且在VB.net中遇到问题

对于具有多种形式的项目,我想使用一个模块,该模块自动加载一个表单中的菜单(工具条)(Web开发中的一种CSS)。这是第一次有效,但如果我重复动作,菜单就会消失。 (例如司机>出租车>司机)。

我认为错误是我(重新)加载表单时的错误。

这是我的代码

模块代码

声明:

Public tsbdrivers, tsbTaxi As New ToolStripButton
Public tsMenu As New ToolStrip

tsMenu的属性

With tsMenu
        .Dock = DockStyle.Left
        .Text = "Navigatie, klik op knoppen om iets raad te plegen"
        'toolstrip bevolkeren
        .Items.Add(tsbchauffeurs)
        .Items.Add(tsbTaxi)
    End With
    'probs drivers
    With tsbdrivers
        .DisplayStyle = ToolStripItemDisplayStyle.Image
        .Image = Taxi2014.My.Resources.Resources.Chauffeurs
        .ImageScaling = ToolStripItemImageScaling.None
        .Text = "Raadpleeg uw chauffeurs en/of werknemers."
        AddHandler .Click, AddressOf DriverOpen
    End With
    'probs Taxi
    With tsbTaxi
        .DisplayStyle = ToolStripItemDisplayStyle.Image
        .Image = Taxi2014.My.Resources.Resources.Wagens
        .ImageScaling = ToolStripItemImageScaling.None
        .Text = "Raadpleeg uw wagens."
        AddHandler .Click, AddressOf TaxiOpen
    End With
End Sub

(图片是导入的图片)

公共潜艇

Public Sub DriverOpen()
    HideAll()
    Frmdriver.Show()
End Sub

Public Sub TaxiOpen()
    HideAll()
    Frmdriver.Show()
End Sub

 Public Sub HideAll()
    FrmMenu.Hide()
    FrmDrivers.Hide()
    frmTaxi.Hide()
End Sub

2种形式的代码

Private Sub frmTaxi_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'Menu toevoegen

    Afbeeldingeninladentoolstrips()
    Me.Controls.Add(tsMenu)
End sub

我不知道这是否重要,但对于我的大多数表格,我都使用数据集。 谁能帮帮我吗?我会感谢你一千次。 :d

0 个答案:

没有答案