Тип Несоответствие в Listbox

Question

Я создал форму пользователя и там я разместил список и 2 текстовых поля.

Теперь мой запрос, когда я выбираю пункт, то элементы некоторые символы, чтобы быть дисплей в обоих текстовых полях, когда я пытаюсь сделать это я получаю сообщ ошибки для типа несоответствия, пожалуйста, поправьте меня

Option Explicit 
Dim a() As String 
Dim b() As String 
Dim i As Long 

Private Sub ListBox1_Click() 
a = Split("meter, inch, foot, yard", ",") 
b = Split("m, In, Ft, Yd", ",") 
For i = 1 To ListBox1.ListCount 

If ListBox1.Value(i, 0) = a(i) Then 
    TextBox1.Value(i, 0) = b(i) And TextBox2.Value(i, 0) = b(i) 
End If 
Next 
End Sub 
Sub UserForm_Initialize() 
a = Split("meter, inch, foot, yard", ",") 
ListBox1.List = a 
End Sub 

Поблагодарив вы

Answer 1

Я не уверен, чего вы хотите достичь, но вы можете попробовать что-то вроде следующего. просто добавьте события для MouseClick или SelectedIndexChanged из списка ListBox в ListBox1_Click. Я бы предпочел второй. И onFormLoad вашей формы в ListBox1_Click. если вы вставляете фрагмент кода в пустой проект, вы можете проверить, работает ли он так, как вы этого хотите.

Sry но это немного трудно предсказать, что вы хотите достичь (:

Во всяком случае есть еще более чистые решения этой проблемы с помощью DataBindings Если вы заинтересованы, дайте мне знать, но DataBindings являются более сложными, я бы.. скажу ..

Вот код

Public Class Form1 

Dim a() As String = Split("meter, inch, foot, yard", ",") 
Dim b() As String = Split("m, In, Ft, Yd", ",") 

Private Sub ListBox1_Click(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseClick 

    If ListBox1.SelectedIndex < 0 Then 
     TextBox1.Text = String.Empty 
     TextBox2.Text = String.Empty 
    Else 
     TextBox1.Text = a(ListBox1.SelectedIndex) 
     TextBox2.Text = b(ListBox1.SelectedIndex) 
    End If 
End Sub 

Private Sub onFormLoad(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
    ListBox1.Items.AddRange(a) 
End Sub 
End Class