Question

VB 组合框与文本框

如何将组合框的内容打印在文本框中：
例如有两个组合框： 一个为起始站（里面有几个站点名称），另一个组合框为终点站（里面也有几个站点名称）。现在我在起始站选择一个站点，在终点站选择一个站点。请问如何将我选择的（从起始站到终点站所经过的所有战点的）在文本框中显示。
如何将组合框的内容打印在文本框中：
例如有两个组合框： 一个为起始站（里面有几个站点名称），另一个组合框为终点站（里面也有几个站点名称）。现在我在起始站选择一个站点，在终点站选择一个站点。请问如何将我选择的（从起始站到终点站所经过的所有战点的）在文本框中显示。
例如 combo1里存放的战点名为（A,B,C,D,E,F,G），combo2存放的站点名为（B,C,D,E,F,G）

Answer 1

'实现的补充条件：

'假如：站点名为（A,B,C,D,E,F,G）

'起点为A；终点为G

'从起点到终点

'就必须经过B,C,D,E,F,

'画上你的控件使用默认名称

Private Sub Form_Load() '添加示例站点,可以改成文本读入

  Combo1.Clear

  Combo2.Clear

  For a = Asc("a") To Asc("g")

    Combo1.AddItem Chr(a)

  Next

  For a = Asc("b") To Asc("g")

    Combo2.AddItem Chr(a)

  Next

End Sub

Private Sub Command1_Click() '显示从起始站到终点站所经过的所有战点的

  Text1 = "起始站:" & Combo1.Text & vbNewLine

  Text1 = Text1 & "终点站:" & Combo2.Text & vbNewLine

  Text1 = Text1 & "经过的站点:" & vbNewLine

  If Combo1.ListIndex < Combo2.ListIndex Then

    For i = Combo1.ListIndex + 1 To Combo2.ListIndex

      Text1 = Text1 & "----" & Combo1.List(Combo1.ListIndex + i) & vbNewLine

    Next

  Else

    For i = Combo2.ListIndex + 1 To Combo1.ListIndex - 2

      Text1 = Text1 & "----" & Combo1.List(Combo1.ListIndex - i) & vbNewLine

    Next

  End If

End Sub

Answer 2

你一共就两个站点，还要显示什么。
是不是就在文本框里显示你选的起始站和终点站。

Answer 3

如果你没有一个表单约束从某站到某站要经边哪些站.这问题有N多线路. 条件太少

Answer 4

我解决好了，加百度好友，我传给你