带文字的图片按钮

Question

我最近开始在 Visual Studio 2010 中为一个业余项目学习 VB.Net，但我完全陷入了困境。 我要做的只是简单地画一张图片，然后在上面画文字。

这是我目前的代码...

Dim allFolders As String() = Directory.GetDirectories("C:\Project\Test")
For Each item As String In allFolders
        Dim newButton As New Button
        newButton.Name = item
        newButton.Width = folderW
        newButton.Width = folderH
        newButton.Left = folderX
        newButton.Top = folderY
        newButton.Image = My.Resources.Resources.grBtn
        newButton.Text = newButton.Name.Remove(0, 17)
        Me.Controls.Add(newButton)
        AddHandler newButton.Click, AddressOf openMyFolder
        folderX += folderXS
Next

如果我设置“Dim newButton As New Button”，那么它会完全忽略图像并只绘制标准按钮...如果我设置“Dim newButton As New PictureBox”，那么它会完全忽略文本，只绘制图像。 ..

肯定有什么方法可以让我同时拥有图片和文字？

感谢您的宝贵时间！

感谢 LarsTech！任何搜索类似问题的人，我正在使用的代码是：

        Dim newButton As New Button
        newButton.Name = item
        newButton.Width = folderW
        newButton.Height = folderH
        newButton.Left = folderX
        newButton.Top = folderY
        newButton.Image = My.Resources.Resources.<Your Image Resource>
        newButton.FlatStyle = FlatStyle.Flat
        newButton.FlatAppearance.BorderSize = 0
        newButton.Text = newButton.Name.Remove(0, 17)
        Me.Controls.Add(newButton)
        AddHandler newButton.Click, AddressOf openMyFolder
        folderX += folderXS

这将创建没有边框的漂亮、动态的图片按钮。

Answer 1

无法完全复制您的问题，但您没有设置 Height 属性（您有两次 Width）。

考虑添加以下属性以正确显示图像：

newButton.ImageAlign = ContentAlignment.MiddleCenter
newButton.TextAlign = ContentAlignment.MiddleCenter
newButton.TextImageRelation = TextImageRelation.ImageBeforeText