Нужно из Дос текста сконвертировать в Win обработать и сохранить в файл опять в Дос. Почитав "Библиотеку кодов" забил в Option Explicit объявление этих двух функций. Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long С первой проблем нет, все работает. Но посколтку аргументы у них одинаковые, вторая функция не работает. Пробовал изменить имена аргументов, VB выполняет недопустимую ошибку. Как их правильно объявить?
Ответить
|