Question

我有一个创建2个按钮的主窗体。第一个“关于”按钮在屏幕上显示“关于”窗口。第二个按钮“关闭”关闭主窗体。我想在显示“关于”窗口时，直到关闭“关于”窗口后，用户才能激活主表单的按钮。关闭此“关于”窗口后，我希望能够再次单击“关于”按钮来再次显示它。

当前代码中的问题：当屏幕上显示“关于”窗口时，我可以用鼠标激活主窗体的2个按钮，因此，我将显示与我单击此按钮。

我尝试了函数“ ShowDialog”，但是它不起作用。我不知道该怎么办？谢谢您的帮助。

[1] pry(main)> ENV.fetch('S3_BUCKET')
=> "<%= ENV[\"S3_BUCKET\"] %>"

Answer 1

jmcilhinney，谢谢您的建议。搜索后，答案是：添加WindowAbout = New FormAbout。现在可以了。

'Window Main

Class MainWindow
    Dim WindowAbout As FormAbout = New FormAbout
    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
        WindowAbout = New FormAbout
        WindowAbout.ShowDialog()
    End Sub
End Class

--------

'Window About

Imports System.ComponentModel

Public Class FormAbout
    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
        Close()
    End Sub
End Class

如何阻止鼠标在打开的窗口外单击？

1 个答案: