1

我是编程新手，在 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

两种形式的代码

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

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

我不知道这是否重要，但对于我的大多数表单，我使用数据集。谁能帮帮我吗？我会感谢你一千次。:D

4

0 回答 0