'Windows'ta hazırladığınız Türkçe karakterler içeren
'metin'e dos' a geçip baktığınızda Türkçe
'karakterlerin yerinde başka anlamsız
'karakterler görürsünüz. Dos'tan yazdırmak
'isterseniz'de yine hatalı yazım oluşur.
'Çözümü :Projedeki (yoksa ekleyin) .bas dosyaya
'şunları ekleyin
Declare Sub AnsiToOemBuff Lib_
"Keyboard" (ByVal lpAnsiStr As String,_
ByVal lpOemStr As String, ByVal nLength As Integer) ' tek satır
'-----
Function OEMe (ByVal metin$) As String
Dim gMetin As String, L%
gMetin = metin$ + " "
L% = Len(metin$)
AnsiToOemBuff metin$, gMetin$, L%
OEMe = gMetin$
End Function
'------
Artık istediğiniz form'dan
x$=OEMe(text1.text) veya x$=OEMe("ÜüĞĞ")
gibi komutlar verebilirsiniz