1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Dim langues As DataSet = Languages.GetAllInDataBaseDS(Me.Master.Connection)
Dim label As New Libelle(Me.Master.Connection)
Dim ci As CultureInfo
Dim lang As New Language(Me.Master.Connection)
Dim originalCulture As CultureInfo
originalCulture = Threading.Thread.CurrentThread.CurrentCulture
For Each dr As DataRow In langues.Tables(0).Rows
lang.GetLanguage(CInt(dr("IDX_LANGUE")))
ci = New CultureInfo(lang.Culture)
'If ci.IsNeutralCulture Then
' ci = CultureInfo.GetCultureInfo(ci.TextInfo.CultureName.Substring(ci.TextInfo.CultureName.Length - 2))
'End If
Threading.Thread.CurrentThread.CurrentCulture = ci
label.IdLangue = ci.TextInfo.LCID
label.Nom = CurrentLanguage.Code
ci = CultureInfo.GetCultureInfo(CurrentLanguage.Code)
label.Traduction = ci.DisplayName
If Libelle.Exists(Me.Master.Connection, dr("STR_CODE").ToString, CInt(dr("IDX_LANGUE"))) Then
label.Update()
Else
label.Insert()
End If
Next
Threading.Thread.CurrentThread.CurrentCulture = originalCulture |
Partager