vb.net关闭显示器的简单介绍

VBA中的关闭屏幕刷新：Application.ScreenUpdating = False，在VB.NET 中是怎么写的？

可以参考下面的代码：

目前创新互联已为超过千家的企业提供了网站建设、域名、网站空间、网站托管维护、企业网站设计、白碱滩网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

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

VB.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

如何在编的VB.NET程序使用时关闭电脑

有两种方法，第一种是调用shutdown.exe

shell("shutdown.exe路径

-s

-t

0")

'-t是延迟时间，0表示立刻关机

另一种就是使用API了，好像是ExitWindow，你可以去搜索一下其用法。

vb.net让窗口关闭时,取消关闭,隐藏窗口

问题补充：我用VB.NET写的，FORM2用来实现数据采样并显示实时曲线，关闭后再'取消FORM2的关闭 这样就把FORM2隐藏起来了，需要调出来的时候只需以下代码

vb.net中怎么关闭现有窗口，然后打开另一个窗口？

登陆按钮里写：

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里敲了一下

vb.net一键关闭显示器

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键打开显示器