В Visual Basic окна сообщений — популярный способ отображения информации или взаимодействия с пользователями. По умолчанию окна сообщений являются модальными, то есть они приостанавливают выполнение кода до тех пор, пока пользователь не ответит. Однако существуют сценарии, в которых желательны немодальные окна сообщений, позволяющие пользователю взаимодействовать с другими частями программы во время отображения окна сообщения. В этой статье мы рассмотрим различные методы создания немодальных окон сообщений в Visual Basic, а также приведем примеры кода.

Метод 1: использование отдельной формы
Один из способов создать немодальное окно сообщения — создать отдельную форму, напоминающую окно сообщения, и отобразить ее как немодальную форму. Вот пример:

Dim messageForm As New Form()
Private Sub ShowNonModalMessageBox(ByVal text As String)
    messageForm.Text = "Message Box"
    messageForm.FormBorderStyle = FormBorderStyle.FixedDialog
    messageForm.StartPosition = FormStartPosition.CenterParent
    messageForm.ControlBox = False
    messageForm.ShowInTaskbar = False

    Dim label As New Label()
    label.Text = text
    label.AutoSize = True
    label.Dock = DockStyle.Fill
    label.TextAlign = ContentAlignment.MiddleCenter

    messageForm.Controls.Add(label)

    messageForm.Show()
End Sub

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

Public Class CustomMessageBox
    Inherits Form

    Public Sub New(ByVal text As String)
        Me.Text = "Message Box"
        Me.FormBorderStyle = FormBorderStyle.FixedDialog
        Me.StartPosition = FormStartPosition.CenterParent
        Me.ControlBox = False
        Me.ShowInTaskbar = False

        Dim label As New Label()
        label.Text = text
        label.AutoSize = True
        label.Dock = DockStyle.Fill
        label.TextAlign = ContentAlignment.MiddleCenter

        Me.Controls.Add(label)
    End Sub
End Class
Private Sub ShowNonModalMessageBox(ByVal text As String)
    Dim customMessageBox As New CustomMessageBox(text)
    customMessageBox.Show()
End Sub

Метод 3: использование элемента управления NotifyIcon
Элемент управления NotifyIcon обеспечивает немодальный способ отображения сообщений с помощью значка в области уведомлений. Вот пример:

Private Sub ShowNonModalMessageBox(ByVal text As String)
    NotifyIcon1.Visible = True
    NotifyIcon1.ShowBalloonTip(5000, "Message Box", text, ToolTipIcon.Info)
End Sub

Метод 4. Использование API TaskDialog
Если вы работаете с более новыми версиями Visual Basic, вы можете использовать API TaskDialog для создания немодальных окон сообщений. Вот пример:

Private Sub ShowNonModalMessageBox(ByVal text As String)
    Dim taskDialog As New TaskDialog()
    taskDialog.Caption = "Message Box"
    taskDialog.Text = text
    taskDialog.Show()
End Sub

В этой статье мы рассмотрели несколько методов создания немодальных окон сообщений в Visual Basic. Независимо от того, используете ли вы отдельную форму, настраиваемое диалоговое окно, элемент управления NotifyIcon или API TaskDialog, теперь у вас есть различные варианты реализации немодальных окон сообщений в зависимости от ваших конкретных требований. Разрешая пользователям взаимодействовать с другими частями программы во время отображения окна сообщения, вы можете улучшить взаимодействие с пользователем и улучшить общую функциональность ваших приложений Visual Basic.