Listbox的值传给Textbox集合中任意一个textbox

caijunfei

我使用类模块将窗口中的若干TextBox集合在一起，任意一个产生Change事件都会执行同一代码并调用了Listbox1，但是解决不了ListBox1的值传给任意的TextBox,求大神解决

caijunfei

没人解决啊!{:soso_e109:}

phsu

上傳附件看看吧！

caijunfei

不好意思，公司电脑加密，附件无法上传
问题给大家描述一下吧
窗体userform1有三个textbox,一个listbox
代码如下


类模块（tboxs）代码如下：
Public num As Integer
Public WithEvents tbox As MSForms.TextBox
Sub tbox_Change()
'num = Val(Replace(tbox.Name, "TextBox", ""))
With UserForm1.ListBox1
.Left = tbox.Left
.Top = tbox.Top + tbox.Height
.Height = tbox.Height * 5
.RowSource = "=Sheet1!A1:A5"

End With
End Sub


窗体代码如下：
Dim WBK_col As New Collection
sub UserForm_Initialize()
Dim WBK As tboxs
For i=1 to 3 step 1
set WBK=New tboxs
Set WBK.tbox=Controls("TextBox" & i)
WBK_col.Add WBK
Next
Set WBK=Nothing
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim WBK As tboxs
For i=1 to 3 step 1
set WBK=New tboxs
Set WBK.tbox=Controls("TextBox" & i)
WBK_col.Add WBK
Next
WBK.tbox.Text=ListBox1.Value
End Sub

以上代码只能对TextBox3传值，不能对任意TextBox传值；
完全手打，求大神们解答！

caijunfei

phsu 发表于 2015-11-24 09:10
上傳附件看看吧！

不好意思，公司电脑加密，附件无法上传
问题给大家描述一下吧
窗体userform1有三个textbox,一个listbox
代码如下


类模块（tboxs）代码如下：
Public num As Integer
Public WithEvents tbox As MSForms.TextBox
Sub tbox_Change()
'num = Val(Replace(tbox.Name, "TextBox", ""))
With UserForm1.ListBox1
.Left = tbox.Left
.Top = tbox.Top + tbox.Height
.Height = tbox.Height * 5
.RowSource = "=Sheet1!A1:A5"

End With
End Sub


窗体代码如下：
Dim WBK_col As New Collection
sub UserForm_Initialize()
Dim WBK As tboxs
For i=1 to 3 step 1
set WBK=New tboxs
Set WBK.tbox=Controls("TextBox" & i)
WBK_col.Add WBK
Next
Set WBK=Nothing
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim WBK As tboxs
For i=1 to 3 step 1
set WBK=New tboxs
Set WBK.tbox=Controls("TextBox" & i)
WBK_col.Add WBK
Next
WBK.tbox.Text=ListBox1.Value
End Sub

以上代码只能对TextBox3传值，不能对任意TextBox传值；
完全手打，求大神们解答！

phsu

將賦值的代碼寫在循環裡面看看。
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim WBK As tboxs
For i=1 to 3 step 1
     set WBK=New tboxs
     Set WBK.tbox=Controls("TextBox" & i)
     WBK_col.Add WBK
     WBK.tbox.Text=ListBox1.Value
Next
End Sub

caijunfei

phsu 发表于 2015-11-24 10:38
將賦值的代碼寫在循環裡面看看。
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ...

这样的话，会对TextBox1,2,3全部赋值，且为同样的值

phsu

若你希望左鍵雙擊ListBox可將數值傳遞到特定TextBox，而非全部，則需要加入其他條件，例如用ListIndex判斷要加入的TextBox，否則無法操作。假設點擊第一個項目，則將數值賦予TextBox1，點擊第二個項目，則將數值賦予TextBox2，則
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim WBK As tboxs
    set WBK=New tboxs
    Set WBK.tbox=Controls("TextBox" &  ListBox1.ListIndex+1)
    WBK_col.Add WBK
    WBK.tbox.Text=ListBox1.Value
End Sub

caijunfei

phsu 发表于 2015-11-24 11:59
若你希望左鍵雙擊ListBox可將數值傳遞到特定TextBox，而非全部，則需要加入其他條件，例如用ListIndex判斷 ...

无法解决吗

phsu

caijunfei 发表于 2015-11-24 13:13
无法解决吗

8樓給的不就是解決的方式之一？