تبدیل کد اسکی به کاراکتر فارسی

[Mahmoud_jafari]

سلام دوستان
من تازه با این سایت آشنا شدم. یه مشکل توو برنامه نویسی VB دارم. وقتی کد زیر را می نویسم کاراکترهای فارسی نمایش داده نمیشه.میشه لطفا راهنمایی کنید.
ممنون
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i
For i = 1 To 255
ListBox1.Items.Add(i & " " & Chr(i))
Next
End Sub

[isaac23]

از این استفاده کن


Private Sub Command1_Click()

Dim i


For i = 1 To 255
List1.AddItem Chr(i) & "--------->" & i
Next


End Sub

[Mahmoud_jafari]

ممنون دوست عزیز، ولی متوجه نشدم:متفکر:

[isaac23]

همین کد رو کپی کنید بجای اون کد شما فقس اسم لیست باکسه عوض شده ...

فونت لیست باکس رو هم روی فارسی تنظیم کنید .