frmshown.vb

来自「Microsoft Mobile Development Handbook的代码」· VB 代码 · 共 32 行

Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports System.Diagnostics
Imports System.ComponentModel

Namespace CodeForChapter2
  Public Partial Class frmShown
	  Inherits Form
	Public Sub New()
	  InitializeComponent()
	End Sub

	Private Sub frmShown_Closing(ByVal sender As Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
	  ' when this form is closed
	  ' via Ok or via Close method call
	  Debug.WriteLine("Closing")
	End Sub

	Private Sub frmShown_Deactivate(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Deactivate
	  ' when this form goes to the background
	  ' (closed, smart minimised or otherwise)
	  Debug.WriteLine("Deactivate")
	End Sub

	Private Sub menuItem1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles menuItem1.Click
	  ' Same as clicking on OK button
	  ' If form only has an X, this still closes the form as if it had an OK
	  Me.Close()
	End Sub
  End Class
End Namespace