Реализация полиморфизма

[Nikonik]

VB называют полностью ООП. Скажите - как на нем реализовать полиморфизм.

Т.е. я на форме создаю динамически (ну в смысле в программе, а не конструкторе) новые экземпляры класса - например метки и хочу сделать так, чтобы по щелчку на первой - вывалилвался msgbox, по второй - менялся цвет, по третьей - создавалась новая форма и т.д.

[keks-n]

a) Ты создаёшь контролы, а это не совсем тоже самое, что и классы... Хотя они и являются объектами.
б) А в чём конкретно проблема? Что именно не получается?

[onell]

Новая форма:

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

Private fmLog As Form1
Set fmLog = New Form1

Цвет:

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

form1.BackColor=vbRed

MsgBox:

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

If MsgBox("Вопрос", vbYesNo, "Заголовок") = vbYes Then...

[Nikonik]

keks-n не получается определить функции для создаваемых объектов одноименные (например _Click)

onell спасибо, я знаком с базовыми принципами VB и ООП. Проблема не в том чтобы поменять цвет формы или вывести диалог да-нет, а чтобы сделать это по щелчку на новосозданных объектах.

[keks-n]

Nikonik
И не должно. Функции для ловли евентов VB генерит только для объектов, о которых знает. О свежесозданных он не знает ничего. Есть 2 пути:
1) Массив конторолов-создать в нём один, а потом добавлять через LOAD, тогда VB сгенерит отлов событий, где первый параметр-индекс
2) Сделать, например так:

В General:
Private WithEvents a as PictureBox


В Form_Load или где-то ещё:
Set a=Me.Controls.Add("VB.PictureBox","NewPicture")
a.Visible=True

После чего события для этого контрола обрабатываются как для a, например a_Click

[onell]

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

Dim i As Integer
Dim j As Integer
Private Sub btnAudit_Click(Index As Integer)
   Audit = Trim(btnAudit(Index).Caption)
   fmComp.Show
   Me.Enabled = False
End Sub

Private Sub Form_Load()
'===============================================
'
'===============================================     i = btnAudit.UBound
    With dtAudit
       .DatabaseName = App.Path & "\db3.mdb"
       .RecordSource = "Список"
       .Refresh
       With .Recordset
          .MoveFirst
          Do While Not .EOF
             If Corp = .Fields(0) Then
                 For j = 0 To i
                    If btnAudit(j).Caption = .Fields(1) Then
                       Exit Do
                    End If
                 Next j
                 Load btnAudit(i + 1)
                 i = i + 1
                 btnAudit(i).Top = btnAudit(i - 1).Top + btnAudit(i - 1).Height + 120
                 btnAudit(i).Left = btnAudit(i - 1).Left
                 btnAudit(i).Caption = Trim(.Fields(1))
                 btnAudit(i).Visible = True
             End If
             .MoveNext
          Loop
       End With
    End With
    btnAudit(0).Visible = False
End Sub


создание нескольких кнопок на форме и реакция на нажатие на одну из них

[keks-n]

onell
Этот метод на самом деле не совсем правильный... Допустим ты пигшешь ActiveX и на родительскую форму надо добавить некие контролы. Ты что будешь выдавать MsgBox ("Положить пожалуйста на форму невидимую кнопку с индексом 0")?

[onell]

2 keks-n согласен

[ANDLL]

a) Ты создаёшь контролы, а это не совсем тоже самое, что и классы... Хотя они и являются объектами.

Совсем любой контрол является классом.
Нелишне напомнить, что существует класс VBControlExtender.
Для организации "полиморфизма" рекомндуется объвить общий интерфейс и обязать все классы, которые должны в этом "полиморфизме" участвовать реализовать этот интерфейс.
(хотя я может недопнял понятие полиморфизм?)
Автору: можеш принвести пример на другом ООП-языке что бы показать чего тебе хочется от VB?

[keks-n]

ANDLL
Я писал так потому, что контрлы в VB нельзя создать через New.

[Igor_123]

keks-n
но можно через Load

[keks-n]

Этот метод на самом деле не совсем правильный... Допустим ты пигшешь ActiveX и на родительскую форму надо добавить некие контролы. Ты что будешь выдавать MsgBox ("Положить пожалуйста на форму невидимую кнопку с индексом 0")?

Но наверное надо было мне написать не

а это не совсем тоже самое, что и классы

, а: "а это не совсем тоже самое, что и обычные классы"

[Igor_123]

keks-n
сори для этого тоже нужен масив контролов

[ANDLL]

ANDLL
Я писал так потому, что контрлы в VB нельзя создать через New.

Исключительно синтаксическое ограничение. Если класс creatable, его можно создать через CreateObject