[MHDM]

لا اعرف تلك اللغة

ان اردت مثالا ب VB.net

تفضلي عملت لك مثالا للتحكم باللغات طبعا اذا كانت مثبتة على جهازك

صورة المثال


السورس مع المثال

https://www.gulfup.com/?nIVDRz


الكود

Public Class Form1
    Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As UInt32, ByVal flags As UInt32) As UInt32
    Public Const KLF_ACTIVATE = &H1
    Public Const LANG_FR As UInt32 = &H40C
    Public Const LANG_AR As UInt32 = &H1801
    Public Const LANG_EN As UInt32 = &H409

    Public Sub Changelangue(ByVal ******** As UInt32)
        ActivateKeyboardLayout(********, KLF_ACTIVATE)
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Changelangue(LANG_FR)

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Changelangue(LANG_EN)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Changelangue(LANG_AR)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

مع احترام رايك

في امان الله