![如何快速学习：[1]Swift编程语言](https://exp-picture.cdn.bcebos.com/fb738d9c2cf7dfb2f57a949fd01b1edef5dc13fa.jpg)
如何快速学习：[1]Swift编程语言,Swift，苹果于2014年WWDC（苹果开发者大会）发布的新开发语言，可与Ojective-C*共同运行于MacOS和iOS平台，用于搭建基于苹果平台的应用程......
2023-03-17 296 编程语言
如何用VB做多项选择程序
来源：互联网
2023-03-17 00:15:16 503
在做简单的编程游戏或数据库的编程中，在网页的游戏里经常会遇到选择多种角色或武器装备、出征的兵种等，VB编程也可以做出这样的窗口出来，那么，如何用VB做多项选择程序呢，其实很简单，按照如下几个步骤就可以做出来了。
工具/原料
- VB软件
方法/步骤
在桌面上，鼠标双击程序，打开VB编程软件，在左边工具栏上，单击【Label】按钮，在Form1窗口上绘制出标签控件来，并在其属性Caption改为请选择出征的兵种，如下图所示。
接着，在左边工具栏上，单击【CheckBox】按钮，在Form1窗口上绘制出多选项控件来，并在其属性Caption改为步兵，如下图所示。
然后，这里放了五个兵种，依次在在Form1窗口上绘制出多选项控件来，如图所示，依次将其属性Caption改为弓兵、骑兵、重骑兵、龙骑兵，如下图所示。
接着，在左边工具栏上，单击【PictureBox】按钮，在Form1窗口上绘制出图片框控件来，并在其属性Picture属性中加载一副出征图。单击【Command】按钮，绘制出命令按钮，并改名为开始出征；最后把窗口的控件都布局整齐，如下图所示。
然后，在窗口做好后，就要在代码窗口中输入代码了，如下：
Public txtA As String
Public txtB As String
Public txtC As String
Public txtD As String
Public txtE As String
Private Sub Check1_Click()
If Check1.Value = 1 Then
txtA = "步兵 "
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
txtB = "弓兵 "
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
txtC = "骑兵 "
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
txtD = "重骑兵 "
End If
End Sub
Private Sub Check5_Click()
If Check5.Value = 1 Then
txtE = "龙骑兵 "
End If
End Sub
Private Sub Command1_Click()
MsgBox ("你出征带的兵是：") & txtA & txtB & txtC & txtD & txtE
Unload Form1
End Sub
如下图所示。
最后，代码输入好后，单击【运行】按钮，效果如图所示，左键单击【开始出征】，这时弹出提示框，表示你已选择好了出征的兵种，如下图所示。
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
上一篇：怎么自学Web前端开发 下一篇：十进制的133如何转化为十六进制，转化结果是
相关文章
- 详细阅读
-
web图表开发工具FineReport：[11]连续分组详细阅读
![web图表开发工具FineReport：[11]连续分组](https://exp-picture.cdn.bcebos.com/6002c9d4483104eb360a59bb092b74ee1d324e01.jpg)
web图表开发工具FineReport：[11]连续分组,数据库表数据是按照时间先后录入的，查询的时候希望按照时间先后，某个字段连续相同的话就合并起来显示，这样的报表可以通过相邻连续分组来实现。......
2023-03-17 519 编程语言
- 详细阅读
