كود لتغير اللغة لما تتدخل لتكست بوكس

كود لتغير اللغة لما تتدخل لتكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+--- الموضوع : كود لتغير اللغة لما تتدخل لتكست بوكس (/showthread.php?tid=16590)

كود لتغير اللغة لما تتدخل لتكست بوكس - صبري زينوبي - 26-07-16

السلام عليكم و رحمة الله و بركاته
شباب اريد كود:
لما تدخل لتكست بوكس 1 تتغير اللغة تلقائيا للانقليزي
و لما تدخل لتكست بوكس 2 ترجع للغة العربية
بارك الله فيكم

RE: كود لتغير اللغة لما تتدخل لتكست بوكس - الوادي - 26-07-16

http://vb4arb.com/vb/thread-16589.html

RE: كود لتغير اللغة لما تتدخل لتكست بوكس - sanyor77 - 26-03-23

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

يمكنك استخدام الجافا سكريبت لتحقيق ما تريده. يمكنك إنشاء ملف HTML ووضع هذا الكود فيه:

<!DOCTYPE html>
<html lang="ar">
<head>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<title>تغيير لغة التكست بوكس</title>
<script>
function setEnglishLanguage() {
document.getElementById('textbox1').setAttribute('lang', 'en');
document.getElementById('textbox1').setAttribute('dir', 'ltr');
}

function setArabicLanguage() {
document.getElementById('textbox2').setAttribute('lang', 'ar');
document.getElementById('textbox2').setAttribute('dir', 'rtl');
}
</script>
</head>
<body>
<label for="textbox1">التكست بوكس 1:</label>
<input type="text" id="textbox1" onfocus="setEnglishLanguage()" dir="ltr" lang="en">
<br>
<label for="textbox2">التكست بوكس 2:</label>
<input type="text" id="textbox2" onfocus="setArabicLanguage()" dir="rtl" lang="ar">
</body>
</html>

هذا الكود يقوم بإعداد التكست بوكس 1 بحيث يتم تغيير اللغة إلى الإنجليزية عند التركيز عليه ويعيد تعيين التكست بوكس 2 إلى اللغة العربية عند التركيز عليه.

RE: كود لتغير اللغة لما تتدخل لتكست بوكس - Kamil - 06-01-24

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

لتغير اللغة لما تدخل لتكست بوكس

PHP كود :

Public Class Form1
    Private Sub TextBox1_Enter(sender As Object, e As EventArgs) Handles TextBox1.Enter
        ' عند دخول مربع النص 1، قم بتعيين لغة الإدخال للإنجليزية
        InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("en-US"))
    End Sub

    Private Sub TextBox2_Enter(sender As Object, e As EventArgs) Handles TextBox2.Enter
        ' عند دخول مربع النص 2، قم بتعيين لغة الإدخال للعربية
        InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("ar-SA"))
    End Sub
End Class 