21 Январь 2009

Перевод текста ANSI – OEM

TextBox |  Таги:

Перевод текста ANSI – OEM

Option Explicit

Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" _
        (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Function ANSI2OEM(ByVal sAnsi As String) As String
Dim sOem As String
sOem = String(Len(sAnsi), Chr(0))
CharToOem sAnsi, sOem
ANSI2OEM = sOem
End Function

Private Sub Form_Load()
Text1.Text = ANSI2OEM(Text2.Text)
End Sub

Запись опубликована on 21.01.2009 at 9:00 и размещена в рубрике: TextBox. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.