从品牌网站建设到网络营销策划,从策略到执行的一站式服务
方法1.将FormBorderStyle的值设为None
创新互联建站是一家专注于成都网站建设、网站制作与策划设计,江山网站建设哪家好?创新互联建站做网站,专注于网站建设10年,网设计领域的专业建站公司;建站业务涵盖:江山等地区。江山做网站价格咨询:18982081108
方法2.或将ControlBox的值设为false
方法3.如查你仅仅是要将关闭按钮disable的话,请双击窗体,后将以下代码替换窗体中的所有代码。
Public Class Form1
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
Private Const MF_REMOVE = H1000
Private Const SC_COLSE = HF060
Private Const SC_MAXIMIZE = HF030
Private Const SC_MINIMIZE = HF020
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RemoveMenu(GetSystemMenu(Me.Handle, 0), SC_COLSE, MF_REMOVE) '//关闭
RemoveMenu(GetSystemMenu(Me.Handle, 0), SC_MAXIMIZE, MF_REMOVE) '//最大化
RemoveMenu(GetSystemMenu(Me.Handle, 0), SC_MINIMIZE, MF_REMOVE) ’//最小化
End Sub
End Class
Msgbox去不掉的,自己引用Form类写一个对话框即可,想咋弄就咋弄。
软糖来回答罗:通过System.Diagnostics命名空间下的Process类来关闭程序的进程
Dim 进程集合 = Process.GetProcessesByName("进程名称")
For Each 进程 In 进程集合
进程.Kill()
'进程.Close() '或者使用关闭
Next
也可以先获取所有进程,再来判断这些进程的名称ProcessName
Dim 获取本地所有进程 = Process.GetProcesses()
For Each 进程 In 获取本地所有进程
If 进程.ProcessName = "explorer.exe" Then 进程.Kill()
Next
Form_Deactivate事件在窗体被卸载时触发,在其中中加一行End结束程序就行了
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图