我想编一个游戏物品价格查询器.现在比如有很多个物品的价格都是一样的.那我设置text1和text2 2个文本框,下面加个确定按钮.当在text1里输入物品的名字后,点按钮,在text2内显示价格.
我现在是用:
_____________________
Private Sub Command1_Click()
If Text1 = "jzl" Then
Text2 = 84500
End If
If Text1 = "fsl" Then
Text2 = 84500
End If
If Text1 = "zmsy" Then
Text2 = 84500
End If
If Text1 = "swyd" Then
Text2 = 84500
End If
If Text1 = "sjm" Then
Text2 = 84500
End If
_____________________________
想这样,如果N个物品都是同一个价格的话,就需要编N个if语句,很麻烦,请问有没什么语句可以简化这些代码??
还有.如果我想要在原来的窗口中新间一个窗口.然后在原来的窗口中加一个按钮,要这么样才能实现:当按下这个按钮后,打开新窗口???

If Text1 = "sjm" or Text1 = "swyd" or Text1 = "fsl" …… Then
Text2 = 84500
End If

哈哈,建议用数据库,最差你也用用随机文件吧

万分感谢2楼的精彩回答.在问个问题.要这么给程序加一个漂亮的图标??VB默认生成的EXE文件图标好难看..

icon

select case Text1
case "jzl","fsl","zmsy","swyd","sjm"
Text2 = 84500
case else
end select

谢谢心中有剑的精彩回答~

在问几个问题
1,要这么才能给程序加上漂亮的皮肤??这些皮肤是图片吗??什么格式的图片??
2,我用VB生成完EXE文件后,原来的vbp工程文件全都删了.现在想对程序进行修改要这么弄?听说有个软件可以把EXE文件反编成VBP文件,有这种软件么??
3,游戏中科举时考官给你题目后可以在一个软件里输入关键字来查找这题的答案.这个软件字带一个DAT的数据库文件,请问这个软件是不是用VB编的??要这么编??
4,text1.text=8700和text1=8700这2个有什么区别??

谢谢西山居士的简短回答

首先说明一下，我自己也是初学的，我知道的就回答一下，说错了请不要见怪，请高人指正
第一个问题：答：一些控件都可以添加它的图片。如command等，他的属性是PALETTE，需注意的是。要先在控件的属性中的风格属性作出设定。默认是0，设置为1
第二个问题：答：对不起，这个没听过，所以不知道
第三个问题：答：如果是连接数据库的可用VB+SQL开发
第四个问题：答：text1的文本字符串是8700，另外一个是一个变量等于8700

谢谢！