VB编程题 关于单选按钮数组

你要的程序代码来了,已经验证OK!!!

Private Sub op1_Click(Index As Integer)

Select Case Index

Case 0

Text1Text = "我坐飞机去"

Case 1

Text1Text = "我坐火车去"

End Select

End Sub

以后共同学习!!!

Private Sub Option1_Click()

MsgBox "对话框式提示信息"

End Sub

Private Sub Option1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Option1ToolTipText = "悬浮提示信息"

End Sub

Shell () 函数额可以调用第三方程序。 shutdown是windows管理关机的程序，直接调用

Shell "cmdexe /c shutdown -s -t 10 -c"

另外，你说要别的办法，用windows API： ExitWindowsEx

ExitWindowsEx需要获取权限

主要代码:

Private Sub Form_Load()

Dim hProcessHandle As Long

Dim hTokenHandle As Long

Dim tmpLuid As LUID

Dim tkpNew As TOKEN_PRIVILEGES

Dim tkpPrevious As TOKEN_PRIVILEGES

Dim lBufferNeeded As Long

'获取当前进程的一个伪句柄

hProcessHandle = GetCurrentProcess()

OpenProcessToken hProcessHandle, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hTokenHandle

LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid

tkpNewPrivilegeCount = 1

tkpNewTheLuid = tmpLuid

tkpNewAttributes = SE_PRIVILEGE_ENABLED

lBufferNeeded = 0

'允许当前应用程序有关闭 *** 作系统的权限

AdjustTokenPrivileges hTokenHandle, False, tkpNew, Len(tkpPrevious), tkpPrevious, lBufferNeeded

End Sub

Private Sub Command1_Click()

'重新启动计算机

ExitWindowsEx EWX_REBOOT, 0

End Sub

Private Sub Command2_Click()

'关闭计算机

ExitWindowsEx EWX_FORCE Or EWX_SHUTDOWN, 0

End Sub

Private Sub Command4_Click()

ExitWindowsEx EWX_LOGOFF, 0

End Sub

VB中就2个按钮，它们分别是命令按钮（CommandButton）和单选按钮（OptionButton）

1

命令按钮（CommandButton）：用于向VB应用程序发出指令，当单击此按钮时，可执行指定的 *** 作。前缀是cmd，若命令按钮（CommandButton）的Enable属性设置为True时按钮有效，设置为False时按钮无效。

2

单选按钮（OptionButton）：又称录音机按钮，用于表示单项的开关状态。

以上就是关于VB编程题 关于单选按钮数组全部的内容，包括:VB编程题 关于单选按钮数组、关于 VB 单选按钮、VB里面单击按钮运行程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！