锐客网

  1. 首页 > 睿知 > it技术 > >

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

IT技术窗体

vb .net 中右上角的那个小X ， 他默认是点击后关闭本窗体，如何使它关闭本程序?。?/h2>Form_Deactivate事件在窗体被卸载时触发vb.net取消窗体叉 ， 在其中中加一行End结束程序就行vb.net取消窗体叉了
请教高手 ， VB.net如何取消窗体的标题栏!?在 from1.vb 这个窗口中点属性
在属性里有个 text 把后面的空格 加上你所想要的标题，如果不想要标题 ， 直接为空
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 Is0
MsgBox "你输入了小于0的整数", 64
Case Is100
MsgBox "你输入了大于等于0且小于100的整数", 64
Case Is300
MsgBox "你输入了大于等于100且小于300的整数", 64
Case Else
MsgBox "你输入了大于等于300的整数", 64
End Select
End Sub
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, _
【vb.net取消窗体叉 关闭窗体vba代码】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 = (H4001001) 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 = (H4001001)
.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 = tipvbNullChar
.UFlags = 4
End With
Shell_NotifyIcon 1, TheData
End Sub
VB.NET是如何关闭窗体VB.NET关闭当前窗体me.close()
其它窗体用:窗体名.close()vb.net取消窗体叉，例如vb.net取消窗体叉：form2.close()
请问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取消窗体叉的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：为什么花生壳连接服务器失败？ 花生壳怎么连接服务器失败

    下一篇：如何加入服务器？ 怎么样加入服务器