Question

Мне нужно отобразить окно сообщения, но пользователь должен иметь возможность выделить и скопировать текст в окне сообщения. Как бы я этого достиг? К вашему сведению это в C #.

jgallant · Answer 1 · 20 апреля 2009

Windows имеет скрытую функцию копирования текста MessageBox, когда пользователь нажимает сочетание клавиш CTRL + C, когда окно сообщений активно.

Если вам нужно разрешить пользователю выделять текст, то для этого вам нужно создать собственное окно сообщения.

jgallant · Answer 2 · 20 апреля 2009

Вот код, который я использовал для создания собственного MessageBox. Ниже приведен класс MessageBox:

'  A custom MessageBox class
'  Written to allow custom button text, specifically to allow for bilingual messageboxes
'
Public Class CustomMessageBox

  'Variables
  Private _btn1Return As DialogResult
  Private _btn2Return As DialogResult
  Private _btn3Return As DialogResult

  'Enumerate system icons
  Enum SystemIcons
    ErrorIcon = 1
    WarningIcon = 2
    QuestionIcon = 3
    InformationIcon = 4
  End Enum

  'Enumerate possible button combinations
  Enum ButtonTypes
    YesNo = 1
    YesNoCancel = 2
    Ok = 3
    OkCancel = 4
  End Enum

  'Enumerate possible default buttons
  Enum DefaultButton
    Button1 = 1
    Button2 = 2
    Button3 = 3
  End Enum


#Region "Constructor"
  'Constructor
  Public Sub New(ByVal text As String, ByVal caption As String, ByVal buttons As ButtonTypes, ByVal icon As SystemIcons, ByVal defaultButton As DefaultButton)
    InitializeComponent()
    Me.Text = caption
    Me.msgBoxText.Text = text
    SetupIcon(icon)
    SetupButtons(buttons, defaultButton)
  End Sub
#End Region

#Region "Functions"
  'Set text and return values of all buttons.  Also set focus to default button.
  Private Sub SetupButtons(ByVal buttons As Integer, ByVal defaultButton As Integer)
    Select Case buttons
      Case 1
        msgBoxButton1.Text = My.Resources.Caption_Yes
        _btn1Return = Windows.Forms.DialogResult.Yes
        msgBoxButton2.Text = My.Resources.Caption_No
        _btn2Return = Windows.Forms.DialogResult.No
        msgBoxButton3.Visible = False
      Case 2
        msgBoxButton1.Text = My.Resources.Caption_Yes
        _btn1Return = Windows.Forms.DialogResult.Yes
        msgBoxButton2.Text = My.Resources.Caption_No
        _btn2Return = Windows.Forms.DialogResult.No
        msgBoxButton3.Text = My.Resources.Caption_Cancel
        _btn3Return = Windows.Forms.DialogResult.Cancel
      Case 3
        msgBoxButton1.Text = My.Resources.Caption_OK
        _btn1Return = Windows.Forms.DialogResult.OK
        msgBoxButton2.Visible = False
        msgBoxButton3.Visible = False
      Case 4
        msgBoxButton1.Text = My.Resources.Caption_OK
        _btn1Return = Windows.Forms.DialogResult.OK
        msgBoxButton2.Text = My.Resources.Caption_Cancel
        _btn2Return = Windows.Forms.DialogResult.Cancel
        msgBoxButton3.Visible = False
    End Select

    'Set focus to specified default button
    Select Case defaultButton
      Case 1
        msgBoxButton1.Focus()
      Case 2
        msgBoxButton2.Focus()
      Case 3
        msgBoxButton3.Focus()
    End Select

  End Sub

  'Display specified icon
  Private Sub SetupIcon(ByVal iconValue As Integer)
    Dim icon As Icon = Nothing
    Select Case iconValue
      Case 1
        icon = System.Drawing.SystemIcons.Error
      Case 2
        icon = System.Drawing.SystemIcons.Warning
      Case 3
        icon = System.Drawing.SystemIcons.Question
      Case 4
        icon = System.Drawing.SystemIcons.Information
    End Select

    Me.msgBoxIcon.Image = icon.ToBitmap
  End Sub
#End Region

#Region "Events"
  'Set return value when button is clicked.
  Private Sub msgBoxButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles msgBoxButton1.Click
    Me.DialogResult = _btn1Return
    Me.Close()
  End Sub

  'Set return value when button is clicked.
  Private Sub msgBoxButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles msgBoxButton2.Click
    Me.DialogResult = _btn2Return
    Me.Close()
  End Sub

  'Set return value when button is clicked.
  Private Sub msgBoxButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles msgBoxButton3.Click
    Me.DialogResult = _btn3Return
    Me.Close()
  End Sub
#End Region

End Class

А вот код дизайнера, связанный с ним:

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class CustomMessageBox
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
    Me.msgBoxText = New System.Windows.Forms.Label
    Me.msgBoxIcon = New System.Windows.Forms.PictureBox
    Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel
    Me.msgBoxButton1 = New System.Windows.Forms.Button
    Me.msgBoxButton3 = New System.Windows.Forms.Button
    Me.msgBoxButton2 = New System.Windows.Forms.Button
    CType(Me.msgBoxIcon, System.ComponentModel.ISupportInitialize).BeginInit()
    Me.TableLayoutPanel1.SuspendLayout()
    Me.SuspendLayout()
    '
    'msgBoxText
    '
    Me.msgBoxText.AutoSize = True
    Me.msgBoxText.Cursor = System.Windows.Forms.Cursors.Cross
    Me.msgBoxText.Dock = System.Windows.Forms.DockStyle.Fill
    Me.msgBoxText.FlatStyle = System.Windows.Forms.FlatStyle.Flat
    Me.msgBoxText.Location = New System.Drawing.Point(59, 0)
    Me.msgBoxText.MaximumSize = New System.Drawing.Size(245, 0)
    Me.msgBoxText.Name = "msgBoxText"
    Me.msgBoxText.Padding = New System.Windows.Forms.Padding(0, 10, 0, 10)
    Me.msgBoxText.Size = New System.Drawing.Size(39, 33)
    Me.msgBoxText.TabIndex = 6
    Me.msgBoxText.Text = "Label1"
    '
    'msgBoxIcon
    '
    Me.msgBoxIcon.Dock = System.Windows.Forms.DockStyle.Left
    Me.msgBoxIcon.Location = New System.Drawing.Point(0, 0)
    Me.msgBoxIcon.Name = "msgBoxIcon"
    Me.msgBoxIcon.Padding = New System.Windows.Forms.Padding(15, 10, 0, 0)
    Me.msgBoxIcon.Size = New System.Drawing.Size(59, 53)
    Me.msgBoxIcon.TabIndex = 4
    Me.msgBoxIcon.TabStop = False
    '
    'TableLayoutPanel1
    '
    Me.TableLayoutPanel1.AutoSize = True
    Me.TableLayoutPanel1.ColumnCount = 5
    Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
    Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle)
    Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle)
    Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle)
    Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
    Me.TableLayoutPanel1.Controls.Add(Me.msgBoxButton1, 1, 0)
    Me.TableLayoutPanel1.Controls.Add(Me.msgBoxButton3, 3, 0)
    Me.TableLayoutPanel1.Controls.Add(Me.msgBoxButton2, 2, 0)
    Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Bottom
    Me.TableLayoutPanel1.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.FixedSize
    Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 53)
    Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
    Me.TableLayoutPanel1.Padding = New System.Windows.Forms.Padding(0, 0, 0, 10)
    Me.TableLayoutPanel1.RowCount = 1
    Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle)
    Me.TableLayoutPanel1.Size = New System.Drawing.Size(305, 39)
    Me.TableLayoutPanel1.TabIndex = 5
    '
    'msgBoxButton1
    '
    Me.msgBoxButton1.AutoSize = True
    Me.msgBoxButton1.Location = New System.Drawing.Point(34, 3)
    Me.msgBoxButton1.Name = "msgBoxButton1"
    Me.msgBoxButton1.Size = New System.Drawing.Size(75, 23)
    Me.msgBoxButton1.TabIndex = 0
    Me.msgBoxButton1.Text = "Button1"
    Me.msgBoxButton1.UseVisualStyleBackColor = True
    '
    'msgBoxButton3
    '
    Me.msgBoxButton3.AutoSize = True
    Me.msgBoxButton3.Location = New System.Drawing.Point(196, 3)
    Me.msgBoxButton3.Name = "msgBoxButton3"
    Me.msgBoxButton3.Size = New System.Drawing.Size(75, 23)
    Me.msgBoxButton3.TabIndex = 2
    Me.msgBoxButton3.Text = "Button3"
    Me.msgBoxButton3.UseVisualStyleBackColor = True
    '
    'msgBoxButton2
    '
    Me.msgBoxButton2.AutoSize = True
    Me.msgBoxButton2.Location = New System.Drawing.Point(115, 3)
    Me.msgBoxButton2.Name = "msgBoxButton2"
    Me.msgBoxButton2.Size = New System.Drawing.Size(75, 23)
    Me.msgBoxButton2.TabIndex = 1
    Me.msgBoxButton2.Text = "Button2"
    Me.msgBoxButton2.UseVisualStyleBackColor = True
    '
    'CustomMessageBox
    '
    Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    Me.AutoSize = True
    Me.ClientSize = New System.Drawing.Size(305, 92)
    Me.Controls.Add(Me.msgBoxText)
    Me.Controls.Add(Me.msgBoxIcon)
    Me.Controls.Add(Me.TableLayoutPanel1)
    Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
    Me.MaximizeBox = False
    Me.MinimizeBox = False
    Me.Name = "CustomMessageBox"
    Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
    Me.Text = "MessageBox"
    Me.TopMost = True
    CType(Me.msgBoxIcon, System.ComponentModel.ISupportInitialize).EndInit()
    Me.TableLayoutPanel1.ResumeLayout(False)
    Me.TableLayoutPanel1.PerformLayout()
    Me.ResumeLayout(False)
    Me.PerformLayout()

  End Sub
  Friend WithEvents msgBoxText As System.Windows.Forms.Label
  Friend WithEvents msgBoxIcon As System.Windows.Forms.PictureBox
  Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
  Friend WithEvents msgBoxButton1 As System.Windows.Forms.Button
  Friend WithEvents msgBoxButton3 As System.Windows.Forms.Button
  Friend WithEvents msgBoxButton2 As System.Windows.Forms.Button
End Class

Miguel A. Friginal · Answer 3 · 20 апреля 2009

Добавьте новую форму в ваш проект. В Visual Studio вы можете сделать это, перейдя в Project -> Add Windows Form.

Изменяйте форму, пока не почувствуете, что она выглядит достаточно близко к стандартным диалоговым окнам окон. Некоторые свойства, которые вы хотите изменить:

FormBorderStyle
StartPosition
MaximizeBox
MinimizeBox
ShowIcon
ShowInTaskbar

Используйте текстовое поле ReadOnly для метки формы. И установите для BorderStyle текстового поля значение Нет.

Наконец, используйте метод ShowDialog () формы, чтобы отобразить его как модальное диалоговое окно.

PS. Вы также должны проверить это с большим количеством текста. Возможно, вам придется установить режим авторазмера формы и установить для текстового поля многострочный и перенос.

Надеюсь, это поможет.

ChrisF · Answer 4 · 20 апреля 2009

Создайте пользовательское окно сообщения и используйте отключенный TextBox со стилями, установленными для отображения сообщения.

Согласно комментарию Джонни: создайте новую форму и отобразите ее с помощью ShowDialog

dr. evil · Answer 5 · 20 апреля 2009

Я не думаю, что это легко сделать с текстовым управлением по умолчанию, но вы можете попробовать icsharpcode texteditor или Управление текстовым редактором Alsing

Я использовал icsharpcode для подобных вещей, с ним довольно легко работать.

Выделить текст в окне сообщения

Пожалуйста, войдите или зарегистрируйтесь чтобы ответить на этот вопрос.

Ответы [ 5 ]

Пожалуйста, войдите или зарегистрируйтесь что бы добавить комментарий.

Пожалуйста, войдите или зарегистрируйтесь что бы добавить комментарий.

Пожалуйста, войдите или зарегистрируйтесь что бы добавить комментарий.

Пожалуйста, войдите или зарегистрируйтесь что бы добавить комментарий.

Пожалуйста, войдите или зарегистрируйтесь что бы добавить комментарий.

Выделить текст в окне сообщения

Пожалуйста, войдите или зарегистрируйтесь чтобы ответить на этот вопрос.

Ответы [ 5 ]

Пожалуйста, войдите или зарегистрируйтесь что бы добавить комментарий.

Пожалуйста, войдите или зарегистрируйтесь что бы добавить комментарий.

Пожалуйста, войдите или зарегистрируйтесь что бы добавить комментарий.

Пожалуйста, войдите или зарегистрируйтесь что бы добавить комментарий.

Пожалуйста, войдите или зарегистрируйтесь что бы добавить комментарий.

Похожие темы