- Код: Выделить всё
Public Function GetName(nameof As String)
Dim tmp As String
tmp = "[[[<<<"
For i = 1 To Len(nameof)
tmp = tmp & "[" & Mid(nameof, i, 1) & "]"
Next i
tmp = tmp & ">>>]]]"
GetName = tmp
End Function
Так вот, в другом приожении (вообще-то, в мирке в конечном итоге должно быть, но по сути не важно) пишу так:
- Код: Выделить всё
Dim h1 As Class1
MsgBox h1.GetName("Fdsf")
или так:
- Код: Выделить всё
Dim h1 As Dll_Name.Class1
MsgBox h1.GetName("Fdsf")
Не работает! Что не так??? Заранее трижды-пасиб
.
