Si mund ti thras gjuhet me textbox

[Vb.Net]

Pershendetje, Jam duke bere nje program ne vb.net 2008 , dhe jam duke i vendosur emrat ne shqip, psh:

Lblshifra,LblEmri,LblFjalKalimi,CmbShifra a ekziston mundesia qe une te bej nje text fajll te ruajtur ne C:\Gjuha shqipe ose C:\Gjuha angleze

e ti vendosi
LblShifra ta kete Caption code,nuk e di sa jeni tu kuptu

nga textfajlli te me ndryshohen capion e labelave

[hot_prinz]

I ben dy textfile me emrat psh. sq.lng dhe en.lng, ne keto i definon fjalet keshtu,

per gjuhen angleze,
lblPass=Password

per gjuhen shqipe,
lblPass=Fjalekalimi

ne vb psh krijon nje procedure/metode me emrin InitLanguage dhe i inicializon variablat qe permbajne emertimin e Labele-ve ne baze te gjuhes qe eshte zgjedhur, psh. ne ndonje meny apo parameter kur startohet programi.

Kuptove? Thuaj kuptova.

[xfiles]

une e kuptova , pavaresisht nga gjuha e programimit kjo eshte metoda me e lehte dhe e perhapur e internacionalizimit te nje programi.

ajo qe une nuk kuptova eshte se si perkthehet "te therras gjuhet me textbox", ç'hyn textboxi ketu

[hot_prinz]

xfiles vetem nese mendon ky lali,
qe textbox-i ta njohe automatikisht gjuhen qe shkruan ne te.

[Vb.Net]

Une e kam formu text fajllim me emrin LblPass=Password ose ne shqip
LblPass=Fjalkalimi , por nu e di si behet proceduar pe me i thir qato emra sun pi bi ne fije. a ka mundesi me mar nji shembull te thjesht veq ka nji resht per shqip dhe anglisht per nji label tani une vazhdoj nese nuk priton.

[hot_prinz]

Ja nje shembull ne vb.Net, per komentime skam shume kohe momentalisht,
por per te shiquar se si funksionon, proceso hap pas hapi ne debug mode.

Imports System.IO

Public Class Form1

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

        GetLang(Application.StartupPath + "\Language\en.lng")
        EnglishToolStripMenuItem.Checked = True

    End Sub

    Dim sContent() As String

    Private Sub GetLang(path As String)

        FileToArray(path, sContent)
        Me.Text = GetText("frmForma", sContent)
        LanguageToolStripMenuItem.Text = GetText("mnuLang", sContent)
        lblName.Text = GetText("lblName", sContent)
        lblPass.Text = GetText("lblPass", sContent)
        btnLogin.Text = GetText("btnLogin", sContent)

    End Sub

    Private Sub EnglishToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles EnglishToolStripMenuItem.Click
        GetLang(Application.StartupPath + "\Language\en.lng")
        EnglishToolStripMenuItem.Checked = True
        ShqipToolStripMenuItem.Checked = False
    End Sub

    Private Sub FileToArray(path As String, ByRef array() As String)

        Dim myFile As StreamReader = New StreamReader(path, System.Text.Encoding.Default)
        Dim strTemp As String = myFile.ReadToEnd()
        array = strTemp.Split(vbNewLine)
        myFile.Close()

    End Sub

    Private Function GetText(pattern As String, sContent() As String) As String

        Dim strTemp As String = ""

        For Each s As String In sContent
            If s.IndexOf(pattern) >= 0 Then
                strTemp = s.Substring(s.IndexOf("=") + 1)
            End If
        Next

        Return strTemp

    End Function

    Private Sub ShqipToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ShqipToolStripMenuItem.Click
        GetLang(Application.StartupPath + "\Language\sq.lng")
        EnglishToolStripMenuItem.Checked = False
        ShqipToolStripMenuItem.Checked = True
    End Sub
End Class 

Projekti:
LanguageChange

[furkan]

Nuk e di ty si po te funksionon, por mua nuk me ben, kur e ekzekutoj
Labelat nuk shifen,

[hot_prinz]

Nuk e di ty si po te funksionon, por mua nuk me ben, kur e ekzekutoj
Labelat nuk shifen,

Furkan se di pse nuk te funksiono ty.

Une e provova tani edhe ne vb.Net 2008 dhe funksionon, e vetmja qe kisha harruar me larte, ishte se ne funksionin GetText tek For Each kam harruar qe kur te detektohet pattern mos te kerkoje me shume ne array por te ndaloje me Exit For. E kjo ska te beje me ate qe s'funksionon por qe programi te funksionoje me shpejte nese ka shume te dhena ne textfile te gjuhes perkatese

    Private Function GetText(pattern As String, sContent() As String) As String

        Dim strTemp As String = ""

        For Each s As String In sContent
            If s.IndexOf(pattern) >= 0 Then
                strTemp = s.Substring(s.IndexOf("=") + 1)
                Exit For          
            End If
        Next

        Return strTemp

    End Function 

[furkan]

Qe edhe projektin e ke ne winrar e shef se labelat nuk shifen fare
as butoni nuk ka caption

[furkan]

ja dhe fajlli problematik vb.net 2008