急救!!listbox问题,在具有焦点的text中插入字符!!得解立刻给分,在线等!!

Question

左边是一个listbox,右面两个文本框
我想在text1具有焦点时点击比如说"东风"则text1中插入""东风"
如果text2获得焦点了,则点击"东风"在text2中插入
请问该怎么做非常急,得解立即结贴给分!!,谢谢!

Answer 1

Option Explicit
Dim flag$Private Sub List1_Click()
  With List1
    If flag = "t1" Then
      Text1 = .List(.ListIndex):   Text2 = ""
    Else
      Text2 = .List(.ListIndex):   Text1 = ""
    End If
  End With
End SubPrivate Sub Text1_GotFocus()
  flag = "t1"
End Sub
Private Sub Text2_GotFocus()
  flag = "t2"
End Sub

Answer 2

我要的是VB的代码
vb.net的可以用吗?
我去试一下
先谢谢了再麻烦你帮我解释一下
我用的是数组
text1(6)
text2(6)
这该怎么用啊
谢谢了,编译成功立刻给分

Answer 3

Option Explicit
Dim flag as string
Private Sub List1_Click()
  With List1
    If flag = "t1" Then
      Text1(6).Text = .List(.ListIndex)
    Else
      Text2(6).Text = .List(.ListIndex)
    End If
  End With
End SubPrivate Sub Text1_GotFocus(Index As Integer)
if Index=6 Then  flag = "t1"
End Sub
Private Sub Text2_GotFocus(Index As Integer)
if Index=6 Then  flag = "t2"
End Sub
按 toury  的代码 改成 控件组的 !!呵呵, 只是被UBB识别为VB.NET的代码显示而已, 其实是VB6的嘛! (因为它没有写默认属于, 以此证明代码其实是 VB6的)
另外, 好像没有说到要清空之前所选的值吧? 所以 我认为 Text2 = "" 可以不要了!

Answer 4

谢谢两位指点
呵呵,其实根据toury的我已经把程序写好了,然后才看到楼上的
分就多分点给toury了,反正也没几分
谢谢!