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

Question

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

那么基本上，我如何才能在这个输入框中获得一个图标？

inventory = InputBox("库存:"& vbCrLf & "确保输入正确，因为错误可能导致登录失败。", "编辑库存", 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("Text data entered: " & DrZedInputbox.TextData)
MsgBox("User response: " & DrZedInputbox.Response)

完成输入框后(整理)

DrZedInputbox.Dispose()

更新

已添加照片