vb.net - 是否可以更改 vb.net 中的输入框图标？

Question

我有一个从代码调用的输入框，但是虽然我的所有表单都有图标，但我在这个输入框上没有图标。由于它是消息框的标准选项，我认为奇怪的是没有关于输入框的标准选项。

所以基本上，我该如何在这个输入框上获得一个图标？

inventory = InputBox("Inventory:" & vbCrLf & "Make sure this is correct, as an error can cause failure to login.", "Edit Inventory", oldinv)

注意：由于这是一个纯粹的美学问题，我还没有真正研究过很多，因为此时还有更重要的工作要做。

Answer 1

你可以试试我自己的输入框

输入表格

Public Class frmInputbox

  Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    btnResponse.Text = MsgBoxResult.Ok
    Me.Hide()
  End Sub

  Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    btnResponse.Text = MsgBoxResult.Cancel
    Me.Hide()
  End Sub

End Class

包装

Public Class DrZedInputbox

  Private Shared _UserResponseDlg As New frmInputbox()

  Public Shared Function Inputbox(Prompt As String, Title As String, ByRef TextData As String, Left As Integer, Top As Integer, Icon As System.Drawing.Icon) As MsgBoxResult
    Inputbox = MsgBoxResult.Cancel
    _UserResponseDlg.Text = Title
    _UserResponseDlg.Label1.Text = Prompt
    _UserResponseDlg.TextBox1.Text = textData
    _UserResponseDlg.Left = Left
    _UserResponseDlg.Top = Top
    _UserResponseDlg.Icon = Icon
    _UserResponseDlg.ShowDialog()
    Inputbox = _UserResponseDlg.btnResponse.Text
  End Function

  Public Shared ReadOnly Property TextData As String
    Get
      Return _UserResponseDlg.TextBox1.Text
    End Get
  End Property

  Public Shared ReadOnly Property Response As MsgBoxResult
    Get
      Return CType(_UserResponseDlg.btnResponse.Text, MsgBoxResult)
    End Get
  End Property

  Public Sub Dispose()
    _UserResponseDlg = Nothing
  End Sub

  Protected Overrides Sub Finalize()
    _UserResponseDlg = Nothing
    MyBase.Finalize()
  End Sub

End Class

实施

显示输入框

DrZedInputbox.Inputbox("prompt", "title", "default", 100, 100, Me.Icon)

收集结果（使用 msgbox 显示）

MsgBox("Text data entered: " & DrZedInputbox.TextData)
MsgBox("User response: " & DrZedInputbox.Response)

完成输入框后（整理）

DrZedInputbox.Dispose()

更新

添加照片

Answer 2

看起来您需要为此实现自己的对话框（本机不支持）。看：

• vbcity 上的输入框图标

谷歌上的其他结果也有类似的建议。