Как связать OptionButtom c select case ?

[Dmi3i4]

Всем доброго времени суток !
Народ помогите начинающему, где я ошибся ?
Задача, необходимо набор переключателей (OptionButtom) связать с
select case.
Мои действия
1. Создаю массив из трех элементов Option1(0), Option1(1), Option1(2)
2. непосредственно сам код
Select Case Option1.Item.Index
Case Option1.Item.Index = 0
sql = "select TabPrj.Номер_проекта, TabPrj.Название_проекта, " & _
"TabPrj.Название_объекта, TabIng.Номер_чертежа, TabIng.Фамилия_инженера, " & _
"TabIng.Количество_форматов, TabIng.Проверил_работу " & _
"from TabPrj,TabIng where TabPrj.Номер_проекта=" & Text1.Text & _
" and TabPrj.Номер_проекта=TabIng.Номер_проекта"
Case Option1.Item.Index = 1
sql = "select TabPrj.Номер_проекта, TabPrj.Название_проекта, " & _
"TabPrj.Название_объекта, TabIng.Номер_чертежа, TabIng.Фамилия_инженера, " & _
"TabIng.Количество_форматов, TabIng.Проверил_работу " & _
"from TabPrj,TabIng Where TabIng.Фамилия_инженера = " & " '" & Text2.Text & _
"'" & " and TabPrj.Номер_проекта=TabIng.Номер_проекта"
End Select
3. В результате выдает "Compile error. Argument not optional"
Подскажите как можно это исправить.. или же какие есть альтернативы
решения подобной задачи?
Заранее благодарен.

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

[vvs_adm]

Для начала

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

Select Case Option1.Item.Index
    Case 0:
        <code> (sql=...)
    Case 1:
        <code> (sql=...)
    Case 2:
        <code> (sql=...)
End Select

[Dmi3i4]

vvs_adm
поправил структуру, но ошибка осталась прежняя "Compile error. Argument not optional"

[vvs_adm]

потому что я тебе неправильно написал, не проверив

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

Select Case Index
    Case 0:
        <code> (sql=...)
    Case 1:
        <code> (sql=...)
    Case 2:
        <code> (sql=...)
End Select

Либо для извращенцев

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

Select Case Option1.Item(Index).Index
    Case 0:
        <code> (sql=...)
    Case 1:
        <code> (sql=...)
    Case 2:
        <code> (sql=...)
End Select

[Dmi3i4]

При использовании структуры "для извращенцев" не ругается, но работает некорректно, а именно реально работает только первый case. При выборе других пунктов отрабатывает условие case 0:. С чем это может быть связано ?

[Dmi3i4]

В предыдушем сообщении я допустил ошибку не case 0: , а case 1: отрабатывает корректно

[vvs_adm]

Ну так ты в какой процедуре вообще-то этот код используешь?

[Хакер]

Я так понял, что надо узнать какой выбран ОтпионБокс. Я конечно мог неправильно понять... Но если я понял правильно, но есть метод для мегаизвращенцев.

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


Select Case True
  Case Option1.Value

  Case Option2.Value

End Select


ну в данном случае Option1 Option2 поменяй на Option1(0), Option1(1)

[Nicky]

ИМХО ругается на то, что после Option1 не находит индекса в парентесах

[vvs_adm]

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

Private Sub Option1_Click(Index As Integer)
    Debug.Print Index
End Sub

[Хакер]

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

Private Sub Option1_Click(Index As Integer)
    Debug.Print Index
End Sub

This method is invalid.

Допустим мне нужно по нажатию ОК что то делать. Т.е. нужно ещё и объявлять переменную ловить клил и запоминать куда он в последний раз был сделан.

[Dmi3i4]

Nicky
А как сделать так чтоб не ругался, а работал с ними ?

VVS_ADM
При переборе пунктовв режиме отладки в immediate индексы отображаются верно, но при нажатии command1 независимо от выбора выдает "case 0"

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

Option Explicit

Private Sub Command1_Click()
Dim zx, qw As String
Dim Index As Integer

Select Case Option1.Item(Index).Index
    Case 0:
        qw = "case 0"
    Case 1:
        qw = "case 1"
    Case 2:
        qw = "case 2"
End Select

zx = MsgBox(qw, vbOKOnly, "!!!!!")
End Sub

Private Sub option1_Click(Index As Integer)
Debug.Print Index

End Sub

[Nicky]

Пример. Накидать на форму опшинбатонов, назвать их obTest, добавить кнопку Command1, перемешать, нажать F5

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

Option Explicit

Private Sub Command1_Click()
  MsgBox obTest(GetIndex(obTest)).Caption & " is selected"
End Sub

Function GetIndex(ob As Object) As Long
  Dim o As OptionButton
 
  For Each o In ob
    If o.Value Then GetIndex = o.Index
  Next
End Function


Select Case Option1.Item(Index).Index

Сильно...

[Dmi3i4]

NIcky
Спасибо. Всё получилось - работает.

Всем спасибо за помощь.

Но если кто то знает альтернативу предложеным методам (непосредственная работа с индексами (index) optionbutton и пр.) плиз напишите здесь..

[Nicky]

Ну нету у массива контролов этого, нету!
Самое правильное - нарисовать самому

[Хакер]

Чем мой способ не понравился не знаю... Видимо просто так стало принято...

[Nicky]

Чем мой способ не понравился не знаю... Видимо просто так стало принято...

А если батонов 100 штук? И...это...бесчеловечный он какой-то, способ твой... В том плане, что машине пофиг, а вот человеку в нем непросто разобраться

[Хакер]

ну так ему в комманд1_клик всё равно придётся мутить Select Case для всех 100 индексов.

А мой способ очень даже рульных и хитрый и во многих случаях единственный возможный...

[Nicky]

ну так ему в комманд1_клик всё равно придётся мутить Select Case для всех 100 индексов.

Ты это видел?

[Хакер]

угу... и типа автору вопроса нужно только показать MsgBox да?

Может быть ему надо всё таки так (используя твой метод):

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

Option Explicit

Private Sub Command1_Click()
  Select Case GetIndex(obTest)
     Case 0
       'Что то делаем
     Case 1
       'Что то делаем
     Case 2
       'Что то делаем
     Case 3
       'Что то делаем
  End Select
End Sub

Function GetIndex(ob As Object) As Long
  Dim o As OptionButton
 
  For Each o In ob
    If o.Value Then GetIndex = o.Index
  Next
End Function


?

А теперь сравним по размеру с моим методом:


Option Explicit

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

Private Sub Command1_Click()
  Select Case True
     obTest(0).Value
       'Что то делаем
     obTest(1).Value
       'Что то делаем
     obTest(2).Value
       'Что то делаем
     obTest(3).Value
       'Что то делаем
  End Select
End Sub

Ну и ... что?

[Хакер]

Тем более что:
1) Твой метод использует перебор, что не приветсвуется.
2) Он работает только с массивом.
С Option1, Option2 он работать не будет.

[Nicky]

1. Что есть select case, как не перебор if then elseif then...
2. автор писал: "Создаю массив из трех элементов Option1(0), Option1(1), Option1(2)"

А вот по Command_Click'у с тобой согласен, поторопился
Но ведь "что-то делаем" - понятие растяжимое. Опять же, у автора было что-то типа
"sql = "select TabPrj.Номер_проекта, TabPrj.Название_проекта, " & _
"TabPrj.Название_объекта, TabIng.Номер_чертежа, TabIng.Фамилия_инженера, " & _
"TabIng.Количество_форматов, TabIng.Проверил_работу " & _
"from TabPrj,TabIng where TabPrj.Номер_проекта=" & Text1.Text & _
" and TabPrj.Номер_проекта=TabIng.Номер_проекта"
А теперь предположим, что нужные строки уже содержатся в массиве по индексу опшинбатона?

[tyomitch]

1. Что есть select case, как не перебор if then elseif then...

В случае, когда у Case-ов константы, это jmp по таблице; выполняется мгновенно.

[Nicky]

В случае, когда у Case-ов константы, это jmp по таблице; выполняется мгновенно.

Уфф!... У Хакер'а не константы

[GB826]

А еще можно при клике по опшену запоминать индекс в глобальную переменную.
При нажатии кнопки юзать ее...

И не надо будет по циклу пробегаться каждый раз...

[Хакер]

Ну что за народ, а ?

Сравним мой способ и предложеный:

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

Dim slIndex as Byte

Private SUb Command1_Click
Select Case slIndex
Case 1
+++++
Case 2
+++++
Case 3
+++++
Case 4
+++++
Case 5
+++++
End Select
End Sub

Private Sub Option1_Click()
slIndex = 1
End Sub

Private Sub Option2_Click()
slIndex = 2
End Sub

Private Sub Option3_Click()
slIndex = 3
End Sub

Private Sub Option4_Click()
slIndex = 4
End Sub


Мой:

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

Private Sub Command1_Click()
{
Select Case True
Case Option1

Case Option2

Case Option3

Case Option4

Case Option5

End Select

}

Неужели кто то ещё пытается оспорить то что этот способ самым быстым и удобным.

[GB826]

Прикольный синтаксис СиподобныйВБ ;о)

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


Private stIndex As Long

Private Sub Command1_Click()
  Select Case stIndex
    Case 1
   
    Case 2

    Case 3
   
  End Select
End Sub

Private Sub Option1_Click(Index As Integer)
  stIndex = Index
End Sub


[Хакер]

Насчёт сиподобноговб: переборщил с PHP

На счёт кода сравним:

Возьмём недорогой обычный порошок:

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

Private stIndex As Long

Private Sub Command1_Click()
  Select Case stIndex
    Case 1
   
    Case 2

    Case 3
   
  End Select
End Sub

Private Sub Option1_Click(Index As Integer)
  stIndex = Index
End Sub


А теперь возьмём Хакеросю (тм), которая делает тоже самое:

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

Private Sub Command1_Click()
  Select Case True
    Case Option1(1).Value
   
    Case Option1(2).Value

    Case Option1(3).Value
   
  End Select
End Sub

А если нет разницы зачем платить больше?

[GB826]

Смотри ширше. Я могу stIndex использовать как маску, для каких либо операций, и воздействовать на него другими контролами...
А Тебе придется сидеть на опшенбуттонах и прочих булевских контролах :оР

[MeMBus]

А Тебе придется сидеть на опшенбуттонах и прочих булевских контролах :оР

Если в разрезе "OptionButtom c select case" метод Хакера подходит более чем... А при ширине действий можно применить различные комбинации, он же не пишет – «Люди истина во мне» (тобишь в том коде).