تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اخي سعود فضلا وليس امرا بخصوص فكرتك للترجمة الفورمات
#1
السلام عليكم

اخي سعود شكرا لك بمساعدتك لي ولكن واجهتني مشكلة اثناء تجربتي لفكرتك

وضعت الاكواد ووضعت ملف dll الموجود ولكن لم يقم بالترجمة فما هي الخطوة التي فاتتني وهي التي سبب بعدم قراءة ملف conf and world ??

اتمنى الشرح هنا

الكود الاول
كود :
Imports System.IO
Public Class Form1

    Private Sub gettranslating()
        Try
            words.Clear()
            statics.Clear()
            If IO.File.Exists("langs\" & cmb_lang.Text & "\words.txt") Then
                Dim doc2 As New HtmlAgilityPack.HtmlDocument
                doc2.Load(langfile)

                For Each nod As HtmlAgilityPack.HtmlNode In doc2.DocumentNode.SelectNodes("//div[@id]")
                    statics.Add(nod.Attributes("id").Value)
                    words.Add(nod.InnerText)
                Next

            Else
                MsgBox("ملف التعريب غير موجود,, فضلا ولد ملف جديد")
            End If
        Catch ex As Exception

        End Try
    End Sub


الثاني
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        doc = New HtmlAgilityPack.HtmlDocument
        doc.Load("config.txt")

        Dim dir As New DirectoryInfo("langs")
        For Each h As DirectoryInfo In dir.GetDirectories
            cmb_lang.Items.Add(h.Name)
        Next
        cmb_lang.SelectedIndex = cmb_lang.Items.IndexOf(doc.DocumentNode.SelectSingleNode("//def_lang").InnerText.Trim)

        For Each h In Me.Controls
            If TypeOf h Is ComboBox = False Then

                h.Text = h.Name
            End If
        Next

        gettranslating()


        For Each h In Me.Controls
            If TypeOf h Is ComboBox = False Then


                Try
                    h.text = words(statics.IndexOf(h.name))

                Catch ex As Exception

                End Try
            End If
        Next

    End Sub

الثالث :
كود :
Private Sub cmb_lang_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_lang.SelectedIndexChanged
        If cmb_lang.SelectedIndex = -1 Then Exit Sub
        doc.DocumentNode.SelectSingleNode("//def_lang").InnerHtml = cmb_lang.Text
        doc.Save("config.txt")

        langfile = "langs\" & cmb_lang.Text & "\words.txt"
        gettranslating()


        For Each h In Me.Controls
            If TypeOf h Is ComboBox = False Then

                Try
                    h.text = words(statics.IndexOf(h.name))

                Catch ex As Exception

                End Try

            End If

        Next
    End Sub

هذة الاكواد وملف
HtmlAgilityPack.dll

فهل فاتتني طريقة ؟؟

يقوم بقراء فقط الملفات ولكن ليس المحتويات التي بداخلها

صورة للتوضيح المرفقات


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
صورة التوضيح ابعدتني عن فهم المشكلةSmile
الكومبوبوكس الغرض منه ايضاح عمل الفكرة فقط يمكنك الاستغناء عنها  وتنفيذ الاجراءات مباشرة من دونها.
مادام الفكرة اتضحت كما قلت في رد بموضوعك السابق يتبقى مجهودك انت.
لم افهم الى الان التحديث الذي عملته على الفكرة.
ولم افهم كيف استخدمت الاكواد كـ dll
اترك الموضوع لعل احد يستطيع فهم المشكلة.
ونصيحة لك كما نصحت من قبلك لا تنادي احدا باسمه كعنوان او كنص للموضوع حتى لاتفتقر لاي رد او جواب.
الرد }}}
تم الشكر بواسطة: طالب 22 , طالب 22 , الوادي
#3
عرفت المشكلة ولكن هل يوجد هل لهذة المشكلة الثانية ؟

ان اذا كان butoon داخل groupbox او label لايقم بالترجمة واذا اخرجه من groupbox يترجمه فهل من حل ؟؟

انظر الى الصور هناك خطأ في الكود اثناء عملية اللود للفورمة رقم 2


الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة: سعود
#4
طالما أنك مبتدأ وكان الطلب على لغتين فقط، لماذا لا تعمل فورم باللغة العربية وفورم باللغة الانجليزية.

اذا بتعتمد تغيير النص فقد تقع في مشكلة أن بعض الترجمة تكون طويلة وما عامل حساب طول الليبل وخصوصا إذا في تغيير نوع الخط.
الرد }}}
تم الشكر بواسطة: سعود , طالب 22
#5
(17-07-16, 05:34 AM)0theghost0 كتب : عرفت المشكلة ولكن هل يوجد هل لهذة المشكلة الثانية ؟

ان اذا كان butoon داخل groupbox او label لايقم بالترجمة واذا اخرجه من groupbox يترجمه فهل من حل ؟؟

انظر الى الصور هناك خطأ في الكود اثناء عملية اللود للفورمة رقم 2
يا 0theghost0

انت تنسخ وتلصق الاكواد وهذا خطا  يجب فهم الفكرة اولا.
انت ممكن تستخدم دالة  لتتخطى حاوية الادوات سواء مربع مجموعة او بانل.
و ارجو انك تركز بكلام "الوادي" التالي:
(17-07-16, 08:49 AM)الوادي كتب : طالما أنك مبتدأ وكان الطلب على لغتين فقط، لماذا لا تعمل فورم باللغة العربية وفورم باللغة الانجليزية.

اذا بتعتمد تغيير النص فقد تقع في مشكلة أن بعض الترجمة تكون طويلة وما عامل حساب طول الليبل وخصوصا إذا في تغيير نوع الخط.

فعلا صحيح هذا الواجب ..
الرد }}}
تم الشكر بواسطة: الوادي
#6
اخي الفاضل الطالب المبتدأ يجتهد ليتعلم كل ما اتعلم شيء سوف ابدع فيه بإذن الله
حاليا مثل ماقلت انا اعمل كوبي بسيت بدون فهم لكن بعد ما اشوف النتيجة ادرسها بجد

كل خبير وله طريقته الخاصة

هناك اشخاص لقبوا بالجنون ولكن انظر الى ابداعهم افضل من المخترع العاقل بألف مرة

لاتهتم لما افعل هذا كوبي بيست ( كل خبير وله طريقته الخاصة) ( وكل عبقري له تقنياته الخاصة )

ارجو التوظيح اخوي ولك جزيل الشكر للفكرة اخ سعود
الرد }}}
تم الشكر بواسطة:
#7
إقتباس :لاتهتم لما افعل هذا كوبي بيست ( كل خبير وله طريقته الخاصة) ( وكل عبقري له تقنياته الخاصة )
لكن اخي الكريم  رسالة الخطا عندك تقول وكان هناك اداة تاريخ ايضا انت  نسخت استثناء لنوع مربع نص وقد لا يكون موجود عندك.
......
على كل حال هل توجد مشكلة غير  :
عدم  امكانية الوصول للادوات داخل groupBox او  Panel؟؟
بالانتظار.
الرد }}}
تم الشكر بواسطة: الوادي
#8
اي نعم هناك عدم الامكانية لترجمة ما بداخل groupbox
الرد }}}
تم الشكر بواسطة:
#9
شوف المرفق ترى مثال جديد
PHP كود :
Public Class Form1
    Private 
Function iscontainer(ByVal c As Control) As Boolean
        If TypeOf c Is GroupBox 
Or TypeOf c Is Panel Then
            Return True
        Else
            Return False
        End 
If
 
   End Function
 
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Bom.Click
        For Each c 
As Control In Me.Controls
            If iscontainer
(cThen
                c
.Text c.Name
                For Each c2 
As Control In c.Controls
                    If iscontainer
(c2) = False Then
                        c2
.Text c2.Name
                    Else
                        For Each c3 
As Control In c2.Controls
                            c3
.Text c3.Name
                        Next
                    End 
If
 
               Next
            End 
If
 
       Next
        For Each c 
As Control In Me.Controls
            If iscontainer
(c) = False Then
                c
.Text c.Name
            End 
If
 
       Next
    End Sub
End 
Class 




الفكرة في عمل دالة واحد للتحقق من نوع الكونترول ثم نستخدم حلقة For ونتحقق ان كان الكونترول بانل او قروب بوكس  نعمل حلقة داخلية وهكذا على حسب عمق تداخل الحاضنات.
دقق في المثال بعيدا عن فكرة الترجمة. رجاءا.


الملفات المرفقة
.zip   JustTesting.zip (الحجم : 37.75 ك ب / التحميلات : 41)
الرد }}}
تم الشكر بواسطة:
#10
اخي 0theghost0

رجاء عدم كتب عنوان موضوع موجه الا شخص واحد فهاذا موضوع يتم زيارته من قبل الاعضاء وانت بعنوانك هاذا وجهت الكلام فقط لي الاخ سعود

الله يعطيكم العافيه

شكرا لكم
الحمد لله رب العالمين على كل شي
الرد }}}
تم الشكر بواسطة: سعود , طالب 22 , طالب 22


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [نقاش] بخصوص خصم مبلغ الضريبة من السعر h2551996 6 275 24-01-24, 06:17 PM
آخر رد: Taha Okla
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  استفسار عام بخصوص فتح اكثر من اتصال على قاعدة بيانات واحدة assuhimi 0 324 15-09-23, 04:54 PM
آخر رد: assuhimi
  سؤال بخصوص المخازن والكميات Owz 1 371 03-08-23, 03:32 PM
آخر رد: Taha Okla
  [سؤال] سؤال بخصوص برنامج يعمل بالباركود eslam kady 2 622 05-06-23, 11:26 PM
آخر رد: eslam kady
  [VB.NET] سؤال بخصوص العلامات العشرية والتقريب علاء الكبابي 2 519 05-06-23, 01:02 PM
آخر رد: علاء الكبابي
Thumbs Down سؤال بخصوص ConfuserEx-GUI telecomnetwork2022 2 398 14-05-23, 12:31 PM
آخر رد: عبدالله الدوسري
  سؤال بخصوص المستخدمين النشطاء الحاليين علي الشبكة عبدالكريم برشدان 1 379 27-03-23, 11:18 PM
آخر رد: sanyor77
  سؤال بخصوص button عبدالكريم برشدان 12 1,213 27-03-23, 10:52 PM
آخر رد: sanyor77
Lightbulb [VB.NET] سؤال وارجو المساعدة بخصوص عرض الصورة في تقرير كرستال younus 1 396 27-03-23, 10:13 PM
آخر رد: sanyor77

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم