http://www.entechtaiwan.com/dev/hw32/index.shtm
впринципе им примеры которые идут в копмлекте можно заставить компилится, и даже что то свое нарисовать.
но при попытке запуска в среде разработки выпадает в
RunTimeError48 File Not Found : TVicHW32.DLL
мой семпл примерно такой
в форме кнопка
- Код: Выделить всё
Private Sub Command1_Click()
Dim hw As Long
Dim HW32 As Long
hw = OpenTVicHW '<---выпадает ессно тут
End Sub
в модуле так как оно описано в сэмплах
- Код: Выделить всё
Option Explicit
Public Declare Function OpenTVicHW Lib "TVicHW32.DLL" Alias "_OpenTVicHW@0" () As Long
Вопрос:
У кого нибудь заработало или нет?