VB Combo控件问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 19:32:44
Combo1中有4个选项:飞机,坦克,步兵,船
选择飞机时,点保存(这个不用写出来),就能网文本中写入"Fly",坦克是"Destory",步兵是"Infantry",船是"Water"
代码怎么写?
用If好像不行
要不就是我写错了
Print #1, "Armor" + "= "; Combo8.Text; ""
Print #1, "DeathWeapon" + "= "; Combo7.Text; ""
Print #1, "TeachLevel" + "= "; Combo9.Text; ""
If Combo11.Text = "步兵" Then
Print #1, "MovementZones" + "="; Infantry; ""
If Combo11.Text = "飞机" Then
Print #1, "MovementZones" + "="; Fly; ""
If Combo11.Text = "战车" Then
Print #1, "MovementZones" + "="; Destroyer; ""
If Combo11.Text = "船" Then
Print #1, "MovementZones" + "="; Water; ""
End If
End If
End If
End If
还是不支持中文?

你的If部分有问题,我改了一下:
Print #1, "Armor" + "= "; Combo8.Text; ""
Print #1, "DeathWeapon" + "= "; Combo7.Text; ""
Print #1, "TeachLevel" + "= "; Combo9.Text; ""
If Combo11.Text = "步兵" Then
Print #1, "MovementZones = Infantry"
ElseIf Combo11.Text = "飞机" Then
Print #1, "MovementZones = Fly"
ElseIf Combo11.Text = "战车" Then
Print #1, "MovementZones = Destroyer"
ElseIf Combo11.Text = "船" Then
Print #1, "MovementZones = Water "
End If

Print #1, "MovementZones" + "="; Fly; ""
If Combo11.Text = "战车" Then
Print #1, "MovementZones" + "="; Destroyer; ""
If Combo11.Text = "船" Then
Print #1, "Movement