频道导航

vb.net 教程 3-2 窗体编程之窗体 3

2020-03-05 VB 前端之家

前端之家收集整理的这篇文章主要介绍了vb.net 教程 3-2 窗体编程之窗体 3，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

@H_403_0@ 为窗体/控件添加事件的方法：
双击窗体/控件，就会转入默认的事件，例如窗体是Load事件，按钮是Click事件，文本框是TextChanged事件……
要修改引发的事件可以采用以下方法：

@H_403_0@ 方法一：

@H_403_0@ 代码页面，鼠标点击下图中红色方框内的下拉框

@H_403_0@

@H_403_0@ 可以看到里面除了窗体外还有两个控件，一个Button，一个CheckBox：

@H_403_0@

@H_403_0@ 选择某个控件或者（Form1 事件），比如选中（form1 事件），就可以在最后一个下拉框选择相应的事件了，其中粗体的表示已经添加的事件： @H_403_0@ @H_403_0@ 方法二： @H_403_0@ 鼠标在已经有的某个控件的事件内部点击一下，然后就可以在方法一的最后一部里面选择了。 @H_403_0@ 方法三： @H_403_0@ 属性窗口，点击“事件”按钮，下图的红色框位置： @H_403_0@ @H_403_0@ 双击需要的事件名称，即可转入该事件的代码编写。 @H_403_0@ 也可以在事件名称后面选择已经有的子过程，但是参数必须和事件的参数一致。 @H_403_0@ 窗体和控件都有的事件： @H_403_0@ Click 单击鼠标 @H_403_0@ DoubleClick 双击鼠标 @H_403_0@ MouseDown 按下鼠标（不放） @H_403_0@ MouseUp 按下的鼠标按键释放开 @H_403_0@ MouseMove 鼠标移动 @H_403_0@ MouseHover 鼠标停留 @H_403_0@ KeyPress 按下键盘上的按键 @H_403_0@ …… @H_403_0@
@H_403_0@ 除了以上事件，窗体/控件还有自己独立的事件，例如窗体的事件： @H_403_0@ Load 窗体载入时 @H_403_0@ FormClosing 窗体关闭时 @H_403_0@ FormClosed 窗体已经关闭 @H_403_0@ Closed 同 FormClosed，但是已经过时 @H_403_0@ Closing 同FormClosing，但是已经过时 @H_403_0@
@H_403_0@ 如下代码： @H_403_0@

    Private Sub Form1_FormClosing(sender As Object,e As FormClosingEventArgs) Handles Me.FormClosing
        Console.WriteLine("FormClosing")
    End Sub

    Private Sub Form1_FormClosed(sender As Object,e As FormClosedEventArgs) Handles Me.FormClosed
        Console.WriteLine("FormClosed")
    End Sub

    Private Sub Form1_Closed(sender As Object,e As EventArgs) Handles Me.Closed
        Console.WriteLine("Closed")
    End Sub

    Private Sub Form1_Closing(sender As Object,e As CancelEventArgs) Handles Me.Closing
        Console.WriteLine("Closing")
    End Sub

@H_403_0@
@H_403_0@
@H_403_0@ 窗体关闭后，可以在vs的输出窗口看到： @H_403_0@ Closing
FormClosing
Closed
FormClosed @H_403_0@
@H_403_0@ 在Closing事件发生的时候，可以通过设置e.Cancel=True来阻止关闭窗体： @H_403_0@

    Private Sub Form1_FormClosing(sender As Object,e As FormClosingEventArgs) Handles Me.FormClosing
        If MessageBox.Show("确定关闭窗口？","关闭",MessageBoxButtons.YesNo) = DialogResult.No Then
            e.Cancel = True
        End If
    End Sub

点击窗体右上角的X，弹出对话框，如果选择否，那么返回窗体，如果选择是，则退出窗体。
@H_403_0@ 原文链接：https://www.f2er.com/vb/256698.html