国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

windows mobile 下如何編程實(shí)現(xiàn)重啟、關(guān)機(jī)(vb.net)

[table][tr][td][size=4]由于visual studio.net 中沒有提供重啟、關(guān)機(jī)函數(shù)，因此在vb.net中開發(fā)PPC軟件實(shí)現(xiàn)重啟、關(guān)機(jī)，需使用非托管代碼。具體實(shí)現(xiàn)不詳述，給出示例代碼。[/size]
[b][size=4][/size][/b]
[b][size=4]聲明：[/size][/b]
[size=4][/size]
[size=4]<Runtime.InteropServices.DllImport("Aygshell.dll")> Private Shared Function ExitWindowsEx(ByVal uFlags As Integer, ByVal dwReserved As Integer) As Boolean[/size]
[size=4]    End Function[/size]
[size=4][/size]
[size=4]    Private Const EWX_REBOOT = 2 '重啟
    Private Const EWX_POWEROFF = 8 '關(guān)機(jī)[/size]
[size=4][/size]
[b][size=4]調(diào)用：[/size][/b]
[size=4][/size]
[size=4]Private Sub btnClose_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Dim ichoose As Integer
        ichoose = MsgBox("所有設(shè)置生效需要重啟系統(tǒng)！現(xiàn)在重啟系統(tǒng)嗎？", MsgBoxStyle.YesNo, "WM優(yōu)化大師")
        If ichoose = vbYes Then
            '重啟
            Call ExitWindowsEx(EWX_REBOOT, 0)
            Me.Close()
        Else
            Me.Close()
        End If[/size]
[size=4]        Me.Close()[/size]
[size=4]    End Sub[/size]
[size=4][/size]
[size=4]是不是很簡單?。/size]

[align=right][align=center][size=5][color=blue]沒有最好，只有更好！[/color][/size][/align]
[align=center][size=4]歡迎訪問我的BLOG[color=#0000ff]:[/color][/size][size=5][color=#0000ff] [/color][/size][url=http://rainbowsky.pdafans.com/][size=5][color=#0000ff]彩虹天空[/color][/size][/url][/align]
[align=right][size=5][/size][/align][align=right]
                         彩虹工作室[/align][align=right]      

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點(diǎn)擊舉報。