منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف اعرض لغات مثل العربية في ritchtextbox

السلام عليكم
اعمل على برنامج للترجمة لكن عندما احاول الترجمة الى اللغات التالية (العربية .الصينية.اليابانية.اليونانية.....) احصل على مربعات في صندوق النص

من فضلكم كيف استطيع حل هذه المشكلة وشكرا

السلام عليكم ورحمة الله وبركاته

ما هي طريقة الترجمة؟

لأنها إذا كانت من موقع مباشرة فيجب عليك تحويلها إلى الترميز الافتراضي لكي تظهر الحروف بشكل صحيح

اخي العزيز

استخدم ترميز UTF8 للتحويل الى العربية او الصينية او اللغات اللاتينية حسب اعتقادي

تحياتي

هذا هو الكود المستعمل

Sub translateit()

كود :

[b]

    Dim languagePair As String

                   Select Case langCombo.SelectedItem

            Case "French"

                languagePair = "en|fr"

                    End Select

        Dim input As String = transTxt.Text

        Dim url As String = [String].Format("http://www.google.com/translate_t?hl=en&ie=UTF8&text={0}&langpair={1}", input, languagePair)

        Dim webClient As New WebClient()

        webClient.Encoding = System.Text.Encoding.UTF8

        Dim result As String = webClient.DownloadString(url)

        result = result.Substring(result.IndexOf("<span title=""") + "<span title=""".Length)

        result = result.Substring(result.IndexOf(">") + 1)

        result = result.Substring(0, result.IndexOf("</span>"))

                    resultTxt.Text = WebUtility.HtmlDecode(result.Trim())

                   End Sub[/b]

مارايك بالطريقة التالية ابسط بكثير لكنها ليست ماهرة
اولا نكتب السطر التالي

كود :

http://translate.google.com/#flang/slang/word

ثم تضيف الادوات التالية

كود :

Dim all As String = url.Text.Replace("flang", ComboBox1.Text.Trim)

        all = all.Replace("slang", ComboBox2.Text.Trim)

        all = all.Replace("word", txtinput.Text)

        txtoutput.Navigate(all)

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

nkkin

sooriaty03

Sajad

nkkin

سعود