VBNet - все что Вы хотели знать о VB, но не знали где найти!

Visual Basic, .NET, ASP, VBA, VBScript

	Перевод текста ANSI -> OEM
	Пример, нужный любому русскому программисту, сталкивающемуся с переводом текстов из DOS в Windows и обратно. 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

VBNet online (всего: 52050)

Лучшие материалы

ActiveX контролы (112)

Примеры кода (546)

Статьи по VB (136)