正文
vb.net禁止面板代码 vba禁止弹出对话框
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.NET中关闭窗体代码，有的写me.close，有的只写end。请问，这两种代码，有何区别
me.close是关闭自身窗体，如果同时打开多个窗体，用me.close不能退出程序。
end是一个强大的退出指令，可以关闭所有窗体，并释放所有已占用的资源（当然有一些限制。所以自己主动释放是最好的）。
相关问答
Q1: 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键打开显示器
Q2: vb.net关闭指定windowsname的页面
使用VB.NET关闭指定WindowsName的页面可以通过使用System.Diagnostics.Process类的Kill方法来完成。
Kill方法接受一个参数，即要关闭的进程的窗口名称，该窗口名称可以通过Process.GetProcessesByName函数获得，这样就可以遍历找到任何一个指定的窗口名称并将其关闭。例如：
Dim process As Process = Process.GetProcessesByName(“MyApplication.exe”)
process.Kill()
Q3: VB.NET怎么可以限制窗体不能被鼠标随便拖动位置
很简单，通过WindowsAPI，删除窗体菜单项就行了
首先在窗体类中声明API：
Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr
Declare Function RemoveMenu Lib "user32" (ByVal lngHmenu As IntPtr, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
其次声明API参数常量：
Const MF_BYPOSITION As Integer = H400
然后在窗体类中写入过程：
Private Sub UserForm_Initialize_stopmove() '禁止窗体移动
Dim lngHwnd As IntPtr
Dim lngHmenu As IntPtr
lngHwnd = Me.Handle
If lngHwnd 0 Then
lngHmenu = GetSystemMenu(lngHwnd, False)
RemoveMenu(lngHmenu, 0, MF_BYPOSITION) '这里的0代表菜单中从上往下数第一个菜单项
End If
End Sub
Private Sub UserForm_Initialize_onmove() '恢复窗体移动
Dim lngHwnd As IntPtr
Dim lngHmenu As IntPtr
lngHwnd = Me.Handle
If lngHwnd 0 Then
lngHmenu = GetSystemMenu(lngHwnd, True)
RemoveMenu(lngHmenu, 0, MF_BYPOSITION) '这里的0与禁止代码中的数值同步，原因时虽然表面上删除了菜单项，实则为隐藏了菜单项，各个菜单的索引值并没有变，所以0依然代表初始菜单的第一个菜单项，即被删除的那个菜单项
End If
End Sub
然后如果你的窗口菜单是动态变化的，建议声明常数：
Const MF_BYPOSITION As Integer = H0
然后使用相关的Windows功能的常数进行删除菜单。常数需要自行查看winuser.h头文件
如果找不到该头文件，可以看这里：网页链接
其余信息详见MSDN：网页链接
最后说一下，不建议前面网友说的重写WndProc的方法，因为这样拦截标题栏点击消息会导致窗体本身的菜单也无法显示出来，有损窗体功能，并且像双击左上角图标关闭窗体这样的功能也会跟着拦截消息的操作一起被吞掉。
Q4: vb 启用和禁用本地连接代码...
这个简单啦看代码吧不会加Q问 VB启用/禁用本地连接
2009年01月19日 作者：SdBot.ck
'其实没什么说的，无非就是先找到“网络连接”这个虚拟文件夹，然后找到要控制的本地连接对应的'folderitem，然后枚举verb，找到需要的verb后，调用verb的DoIt方法，在winxp sp2 ，vb6 sp6下测试通过，代码如下：
Option Explicit
'首先引用Microsoft Shell Controls And Automation
Private Function ExcNetLinkMenu(ByVal AdapterName As String, ByVal MenuName As String) As Boolean
On Error Resume Next
Dim mShell As New Shell32.Shell
Dim NetConnection As Shell32.Folder
Dim FolderItem As Shell32.FolderItem
Dim NetConnectionItem As ShellFolderItem
Dim verb As Shell32.FolderItemVerb
Set NetConnection = mShell.NameSpace(49) '这个49是找出来的，有了它就可以避免遍历控制面板
If ObjPtr(NetConnection) = 0 Then
ExcNetLinkMenu = False
GoTo exitfunction
End If
Dim flag As Boolean
flag = False
For Each FolderItem In NetConnection.Items
If FolderItem.Name = AdapterName Then
Set NetConnectionItem = FolderItem
flag = True
Exit For
End If
Next
If flag = False Then
ExcNetLinkMenu = False
GoTo exitfunction
End If
For Each verb In NetConnectionItem.Verbs
If verb.Name = MenuName Then
flag = True
verb.DoIt
ExcNetLinkMenu = True
GoTo exitfunction
End If
Next
If flag = False Then
ExcNetLinkMenu = False
GoTo exitfunction
End If
exitfunction:
Set mShell = Nothing
Set NetConnection = Nothing
Set FolderItem = Nothing
Set NetConnectionItem = Nothing
Set verb = Nothing
End Function
Private Sub Command1_Click()
Dim flag As Boolean
'把 本地连接 2 换成你要控制的本地连接的名字
flag = ExcNetLinkMenu("本地连接 2", "停用(B)") '这个在2000下对应的是禁用,具体是什么，点右键,自己看吧
End Sub
Private Sub Command2_Click()
'把 本地连接 2 换成你要控制的本地连接的名字
Dim flag As Boolean
flag = ExcNetLinkMenu("本地连接 2", "启用(A)")
End Sub
Q5: 在vb中怎么使按钮不可用，就是那种变灰色的
把按钮的Enable属性改为False。
用代码：按钮名.Enable=False。
用API：EnableWindow。
1、VB是一种可视化的面向对象的程序设计语言，Enabled是VB中控件的一种属性。
2、Enabled属性有两种值True和False,分别代表真和假。当一个控件的Enabled属性值为真时代表该控件可以用，当控件的Enabled属性为False时代表该控件不可用（图形会变度为灰色且不可以选中）。
扩展资料
vb.net 特性：
1、vb.net 完全集成到 Visual Studio 集成开发环境中，在这种集成开发环境与 VB 在若干方面有差异。主要体现在窗体的布局以及菜单等方面都有所不同。
2、vb.net 项目与 VB 不同。它使用基于文件夹的模型，所有项目均放置在项目文件夹层次结构中。
3、vb.net 中使用ado.net来访问数据库，ado.net是.netFramework的一部分。在 vb.net 中实现数据访问的方法主要有两种。
vb.net禁止面板代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba禁止弹出对话框、vb.net禁止面板代码的信息别忘了在本站进行查找喔。
