Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница:

 

  Вопрос: Как объявить OemToChar и CharToOem? Добавлено: 16.03.04 09:31  

Автор вопроса:  Junior

Нужно из Дос текста сконвертировать в 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 выполняет недопустимую ошибку. Как их правильно объявить?

Ответить

  Ответы Всего ответов: 0  

Нет ответов

Страница:

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам