如何用VB做武器商店

    在日常生活和工作中，会经常玩游戏，在网络游戏的时候，游戏人物主角都可以到商店里买武器，在VB中也可以做出这样的武器商店游戏窗口，选择不同的武器，每个武器的价值不同。如何做呢，参考以下几个步骤就可以做一个简单的武器商店窗口了。

工具/原料

• VB软件

方法/步骤

1. 1

       在桌面上，双击程序，打开VB编程软件，在左边工具栏上，单击【Image】按钮，在Form1窗口上绘制出如图所示的大小，在其Picture属性值中，加载一副武器图，如下图所示。

   
2. 2

       接着，选取了一张有两把手枪的图，然后在左边工具栏上，单击【Label】按钮，在Form1窗口上绘制标签，并将其Caption改名为武器商店，如下图所示。

   
3. 3

       然后，在左边程序的工具栏上，单击【ListBox】按钮，在Form1窗口上绘制出列表框，并将其List属性里加入数据，如图所示，这里你也可以根据自己的喜好自己写，如下图所示。

   
4. 4

       接着，在左边程序的工具栏上，单击【Label】按钮，在Form1窗口上绘制出两个标签，一个是武器价格，另一个其Caption属性值清空，表示刚开没有价格，如下图所示。

   
5. 5

       然后，在窗口做好后，就要在代码窗口中输入代码了，如下：

   Private Sub List1_Click()

   Select Case List1.ListIndex

   Case 0

   Label3.Caption = "400元"

   Case 1

   Label3.Caption = "800元"

   Case 2

   Label3.Caption = "1600元"

   Case 3

   Label3.Caption = "3000元"

   End Select

   End Sub

   这是选择开关语句，项目多其分支也跟着多，如下图所示。

   
6. 6

       最后，在代码输入好后，鼠标左键单击【运行】按钮，效果如图所示，可以在武器列表中选择不同的武器，其价格就会不一样。这样，简单的武器商店就做好了，如下图所示。