可以參考下面的代碼:
目前創(chuàng)新互聯(lián)已為超過千家的企業(yè)提供了網站建設、域名、網站空間、網站托管維護、企業(yè)網站設計、白堿灘網站維護等服務,公司將堅持客戶導向、應用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
Dim?myexcel As excel.Application
On Error Resume Next
Set myexcel = GetObject(, "Excel.Application")
myexcel.Application.ScreenUpdating = False
擴展資料:
VB.NET關鍵詞
Namespace包含類似或相關功能的類的集合
Class用來定義一個類用以存儲對象的屬性、方法和事件
Sub子過程,可以把要使用的數據以參數形式傳入,但不返回值
Function函數,同樣可以傳參數,但要求有返回值
Property屬性過程,設置或返回對象的屬性值
Nothing表示一個變量沒有值,與其他語言或數據庫中的null等價
參考資料來源:百度百科-Visual Basic .NET
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
MsgBox("窗口即將關閉....")
End Sub
Else
e.Cancel = True
End If
有兩種方法,第一種是調用shutdown.exe
shell("shutdown.exe路徑
-s
-t
0")
'-t是延遲時間,0表示立刻關機
另一種就是使用API了,好像是ExitWindow,你可以去搜索一下其用法。
問題補充:我用VB.NET寫的,F(xiàn)ORM2用來實現(xiàn)數據采樣并顯示實時曲線,關閉后再'取消FORM2的關閉 這樣就把FORM2隱藏起來了,需要調出來的時候只需以下代碼
登陸按鈕里寫:
private void button1_Click(object sender, EventArgs e)
{
Form2 fo1 = new Form2();
fo1.Show();
this.Visible=false;
}
第2個窗體的關閉事件里寫
private void Form2_FormClosed(object sender, FormClosedEventArgs e)
{
Application.Exit();
}
這樣就可以了
me.dispose(); 這個是釋放本對象的資源,,有時候直接把這個對象就清理了,,登陸窗體如果是入口窗體的話,,這么寫就等于Application.Exit();
直接關整個應用程序了
插紅旗噢 我還去vs里敲了一下
Public?Class?Form1
System.Runtime.InteropServices.DllImport("user32.dll")?_
Private?Shared?Function?SendMessage(ByVal?hWnd?As?Integer,?ByVal?Msg?As?Integer,?ByVal?wParam?As?Integer,?ByVal?lParam?As?Integer)?As?Integer
End?Function
Const?SC_MONITORPOWER?As?Integer?=?HF170
Const?WM_SYSCOMMAND?As?Integer?=?H112
Private?Enum?MonitorMode?As?Integer
[ON]?=?-1
STANBY?=?1
OFF?=?2
End?Enum
Private?Sub?ChangeMonitorState(ByVal?mode?As?MonitorMode)
SendMessage(-1,?WM_SYSCOMMAND,?SC_MONITORPOWER,?CInt(mode))
End?Sub
Private?Sub?Off()
ChangeMonitorState(MonitorMode.OFF)
End?Sub
Private?Sub?[On]()
ChangeMonitorState(MonitorMode.[ON])
End?Sub
Private?Sub?StandBy()
ChangeMonitorState(MonitorMode.STANBY)
End?Sub
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Off()
End?Sub
Private?Sub?Form1_KeyDown(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.KeyEventArgs)?Handles?Me.KeyDown
If?e.KeyCode?=?Keys.Escape?Then?[On]()
End?Sub
End?Class
按button1按鈕關閉顯示器,按Esc鍵打開顯示器
網站名稱:vb.net關閉顯示器的簡單介紹
鏈接分享:http://muchs.cn/article32/hjdepc.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供App開發(fā)、網站建設、移動網站建設、品牌網站建設、網站營銷、網站策劃
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)