ListView, фокус на форму

[lord0n]

Господа, возникла у меня тут проблемка:
На форме находятся несколько кнопок.
При нажатии на кнопку вызывается следующий код:

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


But = "Prix"
lstDeport.Items.Clear()
lstDeport.Items.Add("Прием накладных", 0)
lstDeport.Items.Add("Изменение накладных", 1)
lstDeport.Items.Add("Прием в склад", 2)
lstDeport.Items.Add("Изменение № прихода или № машины", 3)


Где But - глобальная переменная, а lstDeport - собственоо ListView
После выбора пункта в ListView срабатывает код:

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


Select Case But
   Case "Prix"
      Select Case e.ItemIndex
         Case 0
            frmPrix.Show()
         Case 1
         Case 2
         Case 3
      End Select
End Select


Собственно в чем суть проблеммы (точнее двух):
1. frmPrix открывается, НО фокус автоматом передается обратно на ListView первой формы (что не есть хорошо)
2. Если сразу после открытия frmPrix, её закрыть и нажать на второй пункт в ListView первой формы (который пока ни чего не вызывает), то снова откроется frmPrix
Есть идеи?

[SpawnProduction]

1. frmPrix открывается, НО фокус автоматом передается обратно на ListView первой формы (что не есть хорошо)

Используй ShowDialog вместо простого Show.

2. Если сразу после открытия frmPrix, её закрыть и нажать на второй пункт в ListView первой формы (который пока ни чего не вызывает), то снова откроется frmPrix

Пока не понимаю, почему, но раз уж так, то ставь в самом конце case

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

Exit Select

.

[lord0n]

гыыыыыыыыыыы
1. шоудиалог мне не подходит (т. к. треба открывать другие формы)
2. я не только select exit ставил, но и exit sub - не работает

[lord0n]

уже лучше: со второй проблемой разобрался
способ правда идиотский, но работает - вызывает только то что нужно

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


      Select Case But
         Case "Prix"
            If lstDeport.Items(0).Selected = True Then frmPrix.Show()
            If lstDeport.Items(1).Selected = True Then frmAbout.Show()


осталось разобраться с фокусом
поможите ктонить, не бросайте коллегу в биде

[Nord777]

осталось разобраться с фокусом

событие SelectedIndexChanged срабатывает на MouseDown, в обработчике этого события(SelectedIndexChanged) у тебя загружается нужная тебе форма, фокус передается ей, и все хорошо... пока ты не отпустил кнопку мыши. Как только это произошло - фокус передается обратно той форме в которой сработал MouseUp .
Выход в следующем:

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

Private Sub lstDeport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstDeport.Click
        Select Case But
            Case "Prix"
                Select Case lstDeport.SelectedIndices(0)
                    Case 0
                        Form2.Show()
                    Case 1
                    Case 2
                    Case 3
                End Select
        End Select
    End Sub

[lord0n]

блин, где ты раньше был
я уже 3 дня мучаюсь

все заработало, ОГРОМНОЕ СПАСИБО