Делаем библиотеку, например, testlib.
Делаем, например, кнопку.
Запускаем дебаггер. В test() нельзя поставить брейкпоинт кроме как на End Sub. А в test2() можно.
А всё из-за комментария перед функцией. Проверено в 8 и 8.5
WTF?
Код:
Option Public
Option Declare
'test
Sub test()
Dim a As Variant
a = "5"
End Sub
'test2
Sub test2()
Dim a As Variant
a = "6"
End Sub
Делаем, например, кнопку.
Код:
Use "testlib"
Sub Click(Source As Button)
Call test()
Call test2()
End Sub
Запускаем дебаггер. В test() нельзя поставить брейкпоинт кроме как на End Sub. А в test2() можно.
А всё из-за комментария перед функцией. Проверено в 8 и 8.5
WTF?