可以参考下面的代码:
目前创新互联已为超过千家的企业提供了网站建设、域名、网站空间、网站托管维护、企业网站设计、白碱滩网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
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写的,FORM2用来实现数据采样并显示实时曲线,关闭后再'取消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键打开显示器