Блог

Я не программист VB, не говоря уже о программисте VB3 на Windows NT. Здесь все сложно и сложно.

Все, что мне нужно сделать, это получить системные миллисекунды. Итак, отсюда я знаю, что это может быть возможно.

Поэтому я добавил строку:

TimeValue=Gettickcount()

но эта функция неизвестна. Поэтому я добавил (в другой части кода)

  Declare Function GetTickCount Lib "kernel32" () As Long
 

и это, по-видимому, работает для его компиляции. За исключением того факта, что во время выполнения он говорит:
Kernel32 не найден

Итак, я меняю и пишу Kernel32 .dll, но теперь он не находит dll, я ищу dll в системе, я нахожу ее (367 КБ в C:WinNtSystem32 ) и скопируйте, где находится файл .mak, но теперь он показывает

Ошибка при загрузке dll

Теперь я действительно не знаю, что еще делать!

Пожалуйста, обратите внимание, что это VB3, а не VB5, как я написал в теге. Просто не было тега VB3.

Из https://www.freevbcode.com/ShowCode.asp?ID=6441 Я получаю решение для VB5-VB6.

Ну, почти решение для него показывает 1/100 секунд, а не 1/1000, но это почти так.

 Public Function MyTime() As String
    MyTime = Format(Now, "dd-MMM-yyyy HH:nn:ss") amp; "." amp; Right(Format(Timer, "#0.00"), 2)
End Function
 

Это должно работать и на VB3. Попробуйте!