منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف اعرض لغات مثل العربية في ritchtextbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف اعرض لغات مثل العربية في ritchtextbox (/showthread.php?tid=904)

كيف اعرض لغات مثل العربية في ritchtextbox - nkkin - 09-11-13

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

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


RE: كيف اعرض لغات مثل العربية في ritchtextbox - sooriaty03 - 10-11-13

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

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

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

RE: كيف اعرض لغات مثل العربية في ritchtextbox - Sajad - 10-11-13

اخي العزيز

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

تحياتي

RE: كيف اعرض لغات مثل العربية في ritchtextbox - nkkin - 10-11-13

هذا هو الكود المستعمل
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]


RE: كيف اعرض لغات مثل العربية في ritchtextbox - سعود - 10-11-13

مارايك بالطريقة التالية ابسط بكثير لكنها ليست ماهرة
اولا نكتب السطر التالي
كود :
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)