Собственная функция

[Akella]

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

[Крост]

Используй Enum

[Amed]

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

Private Enum CODE
    msub1 = "A"
    msub2 = "B"
    msub3 = "C"
End Enum

Private Sub Form_Load()
Dim s As CODE
End Sub


Допиши ручками "s=" и смотри результат...

[tyomitch]

Результат:

Microsoft Visual Basic

Compile error:
Type mismatch

Енумы не могут быть строковыми.

[Крост]

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

Public Enum Test_Enum
First = 0
Sekond = 1
End Enum

Option Explicit

Public Function Test_Function(Test_Enum As Test_Enum)
MsgBox Test_Enum
End Function

Private Sub Form_Load()
Test_Function First
End Sub


[GSerg]

Раз уж на то пошло, то http://bbs.vbstreets.ru/viewtopic.php?t=5215