"Группа переключателей" в VB6

[0xy]

Как в VB6 создать аналог акцесовской "группы переключателей"?

Если разместить переключатели на фрейме, то онм вроде "чувствуют единство" (включаются только по-одному), но при этом не видно переменноой, отражающей состояние группы.

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

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame1
      Caption         =   "Frame1"
      Height          =   1275
      Left            =   1740
      TabIndex        =   0
      Top             =   630
      Width           =   2625
      Begin VB.OptionButton Option1
         Caption         =   "Option1"
         Height          =   525
         Left            =   300
         TabIndex        =   2
         Top             =   480
         Width           =   1095
      End
      Begin VB.OptionButton Option2
         Caption         =   "Option2"
         Height          =   525
         Left            =   1560
         TabIndex        =   1
         Top             =   480
         Width           =   945
      End
   End
End


[Twister]

но при этом не видно переменноой, отражающей состояние группы.

Можно использовать массив контролов и жизнь станет легче

[0xy]

А так, как у меня, разве не должно работать? Ведь для чего-то они включаются ТОЛЬКО по-одному???

PS
Что-то я не заметил особого облегчения от массива

PPS
А можно ли как-то запихнуть готовую форму Access 97 (c ейным модулем) в проект VB?

[Twister]

Что-то я не заметил особого облегчения от массива

Может ты не туда смотрел?

Есть два варианта решения:

1. Все контролы имеют общий обработчик события изменения состояния. При изменении состояния очередного переключателя его индекс где-то сохраняется. Это и будет твоим состоянием группы.
2. Пишется функция, которая в цикле пробегается по массиву переключателей и ищет "чекнутый".

[0xy]

Про первый вариант я не подумал. Так действительно проще.
Но сие есть лишь частичная эмуляция функционала акцессовского контрола OptionGroup, прямого аналога которому в VB, как я понял, нет. В связи с этим возник вопрос: можно ли разместить этот (и другие) контролы от Access на форме VB, и если да, то как?

[Хакер]

И ты будешь с самостоятельными (stand-alone) приложениями таскать кусок (компонент) от Access? Как ты думаешь, что на этот счёт думает лицензия Office?

[0xy]

У меня задача--с минимальнными трудозатратами переносить из Access 97 в VB готовые формы и компилить из них exe.
Таскать с собой кусок Access (или другой компонент, содержащий аналогичные контролы), в принципе, приемлемо.
По-сему прошу помочь отыскать местожительства OptionGroup в Access.

[Хакер]

Да причём тут приемлемость с точки зрения тебя? Важна приемлемость с точки зрения лицензии.

[alibek]

К тому же, OptionGroup не будет жить на форме VB.
У него свой контейнер, форма Access.

[0xy]

Но неужели не существует аналогов, совместимых с VB?
Я слыхал, что OptionGroup есть еще в FoxPro...

[iGrok]

Господи, ну напиши ты свой UC-аналог с аналогичным поведением, методами и свойствами! Делов-то!

[0xy]

Я не знаю, как такое писать

[FireFenix]

О Господи! *face palm*

Создаёшь массив контролов RadioButton
Вешаешь на ка каждый RadioButton ивент OnClick, где в цикле пробегаешь по массиву и выставляешь Value = False, а владельцу события True

[Хакер]

де в цикле пробегаешь по массиву и выставляешь

Глупость. Зачем пробегаться, если выбранный элемент известен?

[0xy]

Я имел в виду, что не знаю, как написать свой КОНТРОЛ-- "аналог с аналогичным поведением, методами и свойствами!" А было бы неплохо

[iGrok]

Я имел в виду, что не знаю, как написать свой КОНТРОЛ-- "аналог с аналогичным поведением, методами и свойствами!" А было бы неплохо

Дык это, никогда не поздно научиться, тем более ничего же сложного! =)

Создаёшь UserControl, кидаешь в него Frame и массив OptionButton'ов. Плюс делаешь ему свойства и методы, аналогичные тем, что есть у OptionGroup, и пишешь код. Будут конкретные трудности - пиши, подскажем. =)

[0xy]

Будут конкретные трудности - пиши, подскажем.

Уже есть "Создаёшь UserControl"--это где? (я плохо ориентируюсь в оболочке VB).

[Хакер]

Alt+P-U
Project→Add User control.

[0xy]

Создаёшь UserControl, кидаешь в него Frame и массив OptionButton'ов.

А массив зачем? Ведь OptionGroup не содержит Button-ов, а лишь является контейнером для онных.

Н-да, видать, без подсказок мне эту часть не осилить
iGrok
Если не лень, нарисую, плиз, пример юзерконтрола (на основе фрейма), на котором можно потом (в конструкторе форм?) размещать другие контролы.

[iGrok]

iGrok
Если не лень, нарисую, плиз, пример юзерконтрола (на основе фрейма), на котором можно потом (в конструкторе форм?) размещать другие контролы.

ControlContainer = True =)

[0xy]

Хорошо. Идем дальше
Теперь как добавить нашему контролу единственное свойство "Value"?

[iGrok]

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

Public Property Get Value() As Long
End Property


З.Ы.
1) Add-Ins -> Add-In Manager -> VB 6 ActiveX Ctrl Interface Wizard -> Loaded -> OK
2) Add-Ins -> ActiveX Control Interface Wizard
Вдоволь экспериментируем с появившимся визардом, создаём контрол, смотрим на автоматически созданный код. Это устранит часть вопросов. ,-)

[0xy]

A как сделать, чтобы добавленное свойство (к примеру, DefaultValue) появилось в свойствах конструктора (Value у меня там не появилось).
2. Можно ли задать дефолтное свойство контрола (как .Number у Err)?

[Хакер]

1) Что такое свойства конструктора?
2) Да, в соответствии со спецификацией ActiveX, свойство, имющее DispId=DISPID_VALUE считается свойством по умолчанию. Чтобы этого добиться, нужно в «Tools→Procedure Attributes» выбрать значение поля «Procedure ID» равное «(Default)».

[iGrok]

A как сделать, чтобы добавленное свойство (к примеру, DefaultValue) появилось в свойствах конструктора (Value у меня там не появилось).

Это надо работать с PropertyBag, воспользуйся визардом разок, он как раз генерирует нужный для этого код, а дальше сам поймёшь.