vb.net取消窗体叉 关闭窗体vba代码

vb .net 中右上角的那个小X，他默认是点击后关闭本窗体，如何使它关闭本程序啊？

Form_Deactivate事件在窗体被卸载时触发vb.net取消窗体叉，在其中中加一行End结束程序就行vb.net取消窗体叉了

相关问答

Q1: 请教高手，VB.net如何取消窗体的标题栏!?

在 from1.vb 这个窗口中点属性

在属性里有个 text 把后面的空格 加上你所想要的标题，如果不想要标题，直接为空

Q2: VB中使用inputbox函数后 在对话框点取消按钮报错该如何解决？

啊vb.net取消窗体叉，你的意思是，当点击取消按钮、或者是那个叉号按钮时，就重新打开这个对话框呗。

那就不要把InputBox的返回值直接赋值给整数变量x

因为InputBox的返回值是字符串型，即文本型，

所以你要先把InputBox的值赋值给文本型变量，

然后用StrPtr函数转化一下，

如果用StrPtr函数转化后的值为0，说明点vb.net取消窗体叉了取消或叉号，

如果用StrPtr函数转化后的值大于0，说明点vb.net取消窗体叉了确定按钮，

Sub test()

  Dim s$, x%

  Do

      s = InputBox("请输入X的值")

  Loop Until StrPtr(s) '如果点的是确定则终止循环

  '当循环终止后，进行如下处理vb.net取消窗体叉：

x = Val(s) '将文本s转化为数值赋值给x

  Select Case x '用select语句Select判断x的值

  Case Is 0

      MsgBox "你输入了小于0的整数", 64

  Case Is 100

      MsgBox "你输入了大于等于0且小于100的整数", 64

  Case Is 300

      MsgBox "你输入了大于等于100且小于300的整数", 64

  Case Else

      MsgBox "你输入了大于等于300的整数", 64

  End Select

End Sub

Q3: vb编的一个小程序，如何让他在点击右上角关闭按钮（就是那个叉号）时，在托盘 里继续运行？

VB6vb.net取消窗体叉：

你可以在工程里多建一个窗体vb.net取消窗体叉，操作vb.net取消窗体叉的菜单写在这里vb.net取消窗体叉，不显示9 OK了

当你要vb.net取消窗体叉的窗体关闭后 再+载托盘

VB.NET里直接9有Closing和Closed事件

以下9是托盘：

Dim OldWindowProc As Long

Dim TheForm As Form

Dim TheMenu As Menu

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _

(ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, _

ByVal wParam As Long, ByVal lParam As Long) As Long

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _

(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function GetWindowLong Lib "user32" Alias _

"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Declare Function SetLayeredWindowAttributes Lib "user32" _

(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, _

ByVal dwFlags As Long) As Long

Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" _

(ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Type NOTIFYICONDATA

cbSize As Long

hwnd As Long

Uid As Long

UFlags As Long

UCallbackMessage As Long

HIcon As Long

SzTip As String * 64

End Type

Private TheData As NOTIFYICONDATA

Public Function NewWindowProc(ByVal hwnd As Long, ByVal Msg As Long, _

ByVal wParam As Long, ByVal lParam As Long) As Long

If Msg = (H400 + 1001) Then

If lParam = H205 Then

FormM.SetFocus

TheForm.PopupMenu TheMenu

Exit Function

End If

End If

NewWindowProc = CallWindowProc(OldWindowProc, hwnd, Msg, wParam, lParam)

End Function

Public Sub AddToTray(frm As Form, mnu As Menu)

Set TheForm = frm

Set TheMenu = mnu

OldWindowProc = SetWindowLong(frm.hwnd, (-4), AddressOf NewWindowProc)

With TheData

.Uid = 0

.hwnd = frm.hwnd

.cbSize = Len(TheData)

.HIcon = frm.Icon.Handle

.UFlags = 2

.UCallbackMessage = (H400 + 1001)

.UFlags = .UFlags Or 1

.cbSize = Len(TheData)

End With

Shell_NotifyIcon 0, TheData

End Sub

Public Sub RemoveFromTray()

With TheData

.UFlags = 0

End With

Shell_NotifyIcon 2, TheData

SetWindowLong TheForm.hwnd, (-4), OldWindowProc

End Sub

Public Sub SetTrayTip(tip As String)

With TheData

.SzTip = tip vbNullChar

.UFlags = 4

End With

Shell_NotifyIcon 1, TheData

End Sub

Q4: VB.NET是如何关闭窗体

VB.NET关闭当前窗体me.close()

其它窗体用:窗体名.close()vb.net取消窗体叉，例如vb.net取消窗体叉：form2.close()

Q5: 请问VB如何使窗体上的关闭（叉叉）按钮无效，最大，最小化按钮无效化我会的。

窗体的 MinButton、MaxButton 属性设为False ， 或者设置 BorderStyle属性

关闭按钮无效的代码：

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const MF_REMOVE = H1000

Private Const SC_CLOSE = HF060

Sub Disabled(ChWnd As Long) '设置窗体关闭按钮不可用的子过程

Dim hMenu, hendMenu As Long

Dim c As Long

hMenu = GetSystemMenu(ChWnd, 0)

RemoveMenu hMenu, SC_CLOSE, MF_REMOVE

End Sub

Private Sub Form_Load()

Disabled Me.hwnd '调用子过程

End Sub

vb.net取消窗体叉的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于关闭窗体vba代码、vb.net取消窗体叉的信息别忘了在本站进行查找喔。