Question

我正在使用visual basic。如何将所有.exe文件显示为主窗体面板中的按钮？我目前正在使用静态方法，只允许我在单击带有应用程序图标的按钮时启动应用程序。所有按钮和功能都在此方法的代码中设置，如此代码所示。

    Public Class AppSelectorMain

    Private Sub MRDButton_Click(sender As Object, e As EventArgs) Handles MRDButton.Click
        Try
            Shell("D:\projects\VisualBasicAFMRD\AFMRD\bin\Debug\AFMRD.exe", vbNormalFocus)

        Catch ex As Exception

            msgbox("app not available")

        End Try
    End Sub
    Private Sub AoFurutusButton_Click(sender As Object, e As EventArgs) Handles AoFurutusButton.Click
        Try
            Shell("D:\projects\VisualBasic\project1\project1\bin\Debug\project1.exe", vbNormalFocus)
        Catch ex As Exception
            msgbox("app not available")

        End Try
    End Sub
End Class

这种方法适用于某些场合，你可以制作一个非常好的App Selection面板。

我希望能够在启动期间将所有.exe文件显示在我的表单中，类似于Windows任务栏。所以我猜我必须为每个应用程序创建一个快捷方式.exe文件，并将它们全部放在1个主文件夹中。快捷方式exe文件是在用户设置应用程序期间创建的，并自动放置在主文件夹中。主文件夹是在以我的商标名称＆＃34; Alternate Futue＆＃34;生产的用户第一个应用程序的setip期间创建的。一旦设置了所有以下备用的未来应用程序，将在主文件夹中找到并填充其文件的exe文件。

我现在如何将这些exe文件显示为可以启动应用程序的按钮？有任何想法吗？

Answer 1

我在这里假设WinForms，所以只需在表单底部添加ToolStrip控件和Dock即可。

添加一些ToolStripButtons，将Image属性设置为有意义的内容。

然后在单击每个ToolStripButton时执行一些操作：

Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
    Shell("D:\projects\VisualBasicAFMRD\AFMRD\bin\Debug\AFMRD.exe", vbNormalFocus)
End Sub

如果要在运行时动态添加项目。看看这个问题：Adding Items to ToolStrip at RunTime

如何创建任务栏

1 个答案: