Проблема с UserControl

[raserg]

Доброго времени суток.
Имеется UserControl

при проверке у ComboBox какой у него SelectedIndex
(упрощенный вариант функции)

Код: Выделить всё

   Function N_col(ByVal k As Integer)

        Dim sssl As String = ""
        For Each combo In Me.Controls       
            If combo.GetType.FullName = "System.Windows.Forms.ComboBox" Then
                sssl &= " k=  " & k & ":  combo.tag = " & combo.tag & ":   combo.Name = " & combo.Name &  _
": combo.SelectedIndex " & combo.SelectedIndex & vbCrLf
            End If

        Next
    End Function

У меня на ХР работает отлично
k= 52: combo.tag = 11: combo.Name = ComboBox1: combo.SelectedIndex 1
k= 52: combo.tag = 12: combo.Name = ComboBox2: combo.SelectedIndex 2
k= 52: combo.tag = 22: combo.Name = ComboBox3: combo.SelectedIndex 3
k= 52: combo.tag = 21: combo.Name = ComboBox4: combo.SelectedIndex 2
k= 52: combo.tag = 32: combo.Name = ComboBox5: combo.SelectedIndex 4
k= 52: combo.tag = 31: combo.Name = ComboBox6: combo.SelectedIndex 3
k= 52: combo.tag = 42: combo.Name = ComboBox7: combo.SelectedIndex 5
k= 52: combo.tag = 41: combo.Name = ComboBox8: combo.SelectedIndex 4
k= 52: combo.tag = 52: combo.Name = ComboBox9: combo.SelectedIndex 6

У клиента
на W7 выдача индекса только по первой паре

k= 52: combo.tag = 11: combo.Name = ComboBox1: combo.SelectedIndex 1
k= 52: combo.tag = 12: combo.Name = ComboBox2: combo.SelectedIndex 2
k= 52: combo.tag = 22: combo.Name = ComboBox3: combo.SelectedIndex -1
k= 52: combo.tag = 21: combo.Name = ComboBox4: combo.SelectedIndex -1
k= 52: combo.tag = 32: combo.Name = ComboBox5: combo.SelectedIndex -1
k= 52: combo.tag = 31: combo.Name = ComboBox6: combo.SelectedIndex -1
k= 52: combo.tag = 42: combo.Name = ComboBox7: combo.SelectedIndex -1
k= 52: combo.tag = 41: combo.Name = ComboBox8: combo.SelectedIndex -1
k= 52: combo.tag = 52: combo.Name = ComboBox9: combo.SelectedIndex -1

В чем может быть причина такого поведения?

[FireFenix]

Код: Выделить всё

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Me.ComboBox1.Items.Add("1")
        Me.ComboBox1.Items.Add("2")
        Me.ComboBox1.Items.Add("3")
        Me.ComboBox1.Items.Add("4")
        Me.ComboBox1.Items.Add("5")

        Console.WriteLine("SelectedIndexChanged = " & Me.ComboBox1.SelectedItem & " (" & Me.ComboBox1.SelectedIndex & ")")
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Console.WriteLine("SelectedIndexChanged = " & Me.ComboBox1.SelectedItem & " (" & Me.ComboBox1.SelectedIndex & ")")
    End Sub


Вывод:

Код: Выделить всё

SelectedIndexChanged =  (-1)
SelectedIndexChanged = 1 (0)
SelectedIndexChanged = 2 (1)
SelectedIndexChanged = 3 (2)
SelectedIndexChanged = 4 (3)
SelectedIndexChanged = 5 (4)

Всё пашет => ошибка в коде или работы логики

В MSDN ещё написано:

Индекс текущего выделенного элемента (индексация ведется с нуля). Если элемент не выбран, возвращается отрицательное значение (-1).

Если FormattingEnabled имеет значение true, для объекта SelectedIndex будет установлено значение -1, когда объект SelectedValue пуст.

Или может клиент вводит текст, а не выбирает элемент?

[raserg]

На ХР то работает верно,проверял клиент,ему на W7 надо запустить
комбобоксы заполнены данными.
Клиент выбирает соответствующие значения во всех комбобоксах
на W7-не хочет работать правильно,такое складывается впечатление,что как бы он их не выбирает.
Но я же через скайп вижу все его манипуляции.
Не пойму почему первая пара работает правильно.
Он ее первой устанавливает.
Может быть освежать их combo.Refresh()

[FireFenix]

Клиент выбирает соответствующие значения во всех комбобоксах
на W7-не хочет работать правильно,такое складывается впечатление,что как бы он их не выбирает.

Я тебе дал код. Под моей W7 и под всеми версиями FW работает как я отписал.
Выложи свой проект или минимальную рабочую его часть - можно будет выяснить что/куда

[raserg]

спасиба.
сегодня проверю у клиента,если не пойдет,выложу код