form1.vb

清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码

Imports System.Windows.Forms

Public Class Form1

    Private Sub chkStart_CheckStateChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
    Private Sub chkTaskbar_CheckStateChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
    Private Sub chkSip_CheckStateChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
    Private Sub chkMaximized_CheckStateChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub mnuHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHelp.Click
        ShowHelp()
    End Sub

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        MessageBox.Show("This demonstrates the main window losing focus", "Popup", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)
    End Sub

    Private Sub ShowHelp()
        Help.ShowHelp(Me, "Kiosk.htm")
    End Sub

    Private Sub Form1_HelpRequested(ByVal sender As System.Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles MyBase.HelpRequested
        ShowHelp()
    End Sub

    Private Sub UpdateFullScreen()
        Chapter6.Kiosk.FullScreen(Me, chkStart.Checked, chkTaskbar.Checked, chkSip.Checked)
    End Sub
 
End Class