vb取消的代码（vb里关闭某个程序代码）

今天给各位分享vb取消的代码的知识，其中也会对vb里关闭某个程序代码进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、确定取消的VB代码怎么写？
• 2、VB取消强行关机的代码
• 3、vb取消系统总音量静音代码
• 4、vb中当点击取消时用户名和密码都为空的代码怎么写？

确定取消的VB代码怎么写？

MsgBox用法

你理解错了

可以将语句放入一个事件中，比如放入按钮的单击事件，如下是提醒不反回任何值

，只用做提示：

Private

Sub

Command1_Click()

MsgBox

"你好",

3

+

48

+

0,

"你惨了"

End

Sub

注意了吗这个不能加括号

运行（F5）

单击按钮

就可以弹出对话框。

如果要得到

弹出消息中

你单击的是哪个按钮

（确定，取消等）

可以把MsgBox

赋值给一个整型变量

根据你选择了确定或是取消来继续相应的处理：

Private

Sub

Command1_Click()

dim

a

as

long

a

=

MsgBox("你好",

1,

"你惨了")

if

a

=1

then

text1="明白了吗"

else

text2="你没有选择确定！选择了取消"

end

if

End

Sub

也可以弹出，

注意了吗这个加括号

来返回值

MsgBox介绍及用法等见

返回值

用于MsgBox函数返回值的常量

常数值

说明

vbOK

1

确定

vbCancel

2

取消

vbAbort

3

终止

vbRetry

VB取消强行关机的代码

在command2_click事件中写上

shell

"shutdown

-a"

就好了，另外，那个强制关机不必那么麻烦，可以在command1中这样写

shell

"shutdown

-s

-t

30"

'30秒关机。

vb取消系统总音量静音代码

就是取消全部静音对吧。添加一个按钮控件。

代码如下：

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_APPCOMMAND As Long = H319

Private Const APPCOMMAND_VOLUME_UP As Long = 10

Private Const APPCOMMAND_VOLUME_DOWN As Long = 9

Private Const APPCOMMAND_VOLUME_MUTE As Long = 8

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Const BM_GETCHECK = HF0

Private Const BM_SETCHECK = HF1

Private Sub Command1_Click()

Dim hwnd0 As Long

    Shell "sndvol32.exe", vbHide

    hwnd0 = FindWindow(vbNullString, "主音量")

    Dim hwnd1 As Long

    hwnd1 = FindWindowEx(hwnd0, 0, "Button", "全部静音(M)")

    Dim State As Long

    State = SendMessage(hwnd1, BM_GETCHECK, ByVal CLng(0), ByVal CLng(0))

    Shell "taskkill /f /im sndvol32.exe", vbHide

    If State = 1 Then '"静音"

        SendMessage Me.hwnd, WM_APPCOMMAND, H200EB0, APPCOMMAND_VOLUME_MUTE * H10000 '切换静音

    End If

End Sub

vb中当点击取消时用户名和密码都为空的代码怎么写？

Private Sub Command1_Click() ‘这个按键为“取消”

Text1 = "" '这两个文本框分别是输入用户名和密码的

Text2 = ""

End Sub

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