جادوگر چند زبانه

[mokaram]

با سلام

خیلی از ماها موقع نصب نرم افزار رو سیستممون بارها مشاهده کردیم که برای اینکار یه فرمی برامون باز میشه و مرحله به مرحله با زدن دکمه Next جلو می ریم و اطلاعات خواسته شده را تکمیل می کنیم تا نصب به اتمام برسه در واقع همه اینکار ها را ما تو یه فرم می بینیم
یه همچین کاری را تو اکسل می تونید از طریق فایل پیوست مشاهده کنید

[misammisam]

سلام
چطور شد !!!
متوجه نشدم ، چطوری فرم زبانش عوض میشه !!!؟؟؟؟
لطفا یه آموزش بزارید .

[mokaram]

آقا حقیقتش منم هر چی ور رفتم سوادم به اون حد نرسید که بفههم چی میگه ولی خب گفتیم این فایل را بزاریم تا بقیه که اش چیزی سر در میارن به ما هم بگن

[khakzad]

سلام خدمت دوستان
ی چیزایی ازش دراوردم
البته خیلی کمه و لی کم کم درست میشه

اینکه عوض میشه، بخاطر استفاده از multipage هست.
اگر روی کادر کلیک کنید و طیق شکل عمل کنید می بینید که 4 صفحه موجود هست که تو هرکدوم یک مرحله گنجونده شده

[Amir Ghasemiyan]

سلام
چطور شد !!!
متوجه نشدم ، چطوری فرم زبانش عوض میشه !!!؟؟؟؟
لطفا یه آموزش بزارید .

Private Sub obEnglish_Click()
    UserLanguage = [COLOR=#ff0000]1
سلام ميثم جان
اينطوري شد:

[COLOR=#ff0000]    ChangeLanguage[/COLOR]
End Sub

با زدن مثلا دكمه انگليسي اين سابروتين انجام ميشه. كه ميبينين به متغير UserLanguage مقدار يك و بعد هم سابروتين زير اجرا ميشه:

Sub ChangeLanguage()
    Dim ctl As Control
    Dim Cap As String


    For Each ctl In Me.Controls
        If HasCaption(ctl) Then
            Cap = Translate(ctl.Name, UserLanguage)
            If Cap <> "" Then ctl.Caption = Cap
        End If
    Next ctl


'   Update the caption
    Cap = APPNAME & " - Step " _
      & MultiPage1.Value + 1 & " of " _
      & MultiPage1.Pages.Count
    Me.Caption = Translate(Cap, UserLanguage)
End Sub

تو اين كد هر چي كنترلر هست caption مربوطه تغيير ميكنه. براي تغييرش هم از فانكشن زير استفاده ميشه:

Function Translate(text, language) As String
    Dim txt As String
    On Error Resume Next
    txt = Application.WorksheetFunction.VLookup(text, Sheets("shtLocalization").Range("A1:e32"), language + 1, False)
    If Err <> 0 Then Translate = "" Else Translate = txt
End Function

در اين فانكشن هم همونطور كه متوجه شدين ميره از شيت shtLocalization كه شيت مخصوص ترجمه هست اطلاعات رو با vloockup در مياره

اين بود كليتي از كار اين فايل [/COLOR]