تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله لا ادري ما سببها
#1
اخواني كل الاكواد في البرنامج صحيحه

ولكن عن تشغيل البرنامج يظهر الخظأ التالي

كما في الصوره

[ATTACH=CONFIG]2754[/ATTACH]

اتمنى المساعده


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
من خلال قراءة الوصف يضهر ان هناك قيمة نصية يتم تحويلها الى متغير من نوع boolean المشكلة ان العبارة تتكرر true true true ... و هدا لا يمكن تحويله الى متغير من قيمة true or false يجب عليك تتبع هدا الكود الدي يتم من خلاله التحويل .
الرد }}}
تم الشكر بواسطة:
#3
اخي الكريم الفاضل



هذا هو الكود

يا ريت تساعدي


كود :
Public Class FormRegion

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End

    End Sub

    Private Sub MallToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FormCentra.Show()
        Me.Close()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        FormWestern.Show()
        Me.Close()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        FormEastern.Show()
        Me.Close()
    End Sub

    Private Sub MainPageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MainPageToolStripMenuItem.Click
        Main.Show()
        Me.Close()

    End Sub

    Private Sub ExitToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Formlist.Show()
        Me.Close()
    End Sub

    Private Sub ExitToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem2.Click
        End

    End Sub

    Private Sub MaintenanceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MaintenanceToolStripMenuItem.Click
        FormRegionmaint.Show()
        Me.Close()

    End Sub

    Private Sub ArabianCenterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArabianCenterToolStripMenuItem.Click
        Formarabian.Show()
        Me.Close()

    End Sub

    Private Sub MaintenanceDepartmintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MaintenanceDepartmintToolStripMenuItem.Click
        Formmaint.Show()
        Me.Close()

    End Sub

    Private Sub AboutProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutProgramToolStripMenuItem.Click
        AboutPrograms.Show()
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub FormRegion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Enabled = SMR & OL & KH & NA & SA
        Button5.Enabled = NO & AZ & MA & SJ & MOA & HA
        Button4.Enabled = MOD1 & AH

    End Sub
End Class
الرد }}}
تم الشكر بواسطة:
#4
اخي الكريم

بارك الله فيك

تمكنت من حل المشكله

كانت كما قلت تكرر كلمه

وكانت المشكله في هذا الكود
قبل التعديل
كود :
Private Sub FormRegion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Enabled = SMR & OL & KH & NA & SA
        Button5.Enabled = NO & AZ & MA & SJ & MOA & HA
        Button4.Enabled = MOD1 & AH

    End Sub

واصبح بعد التعديل

كود :
Private Sub FormRegion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Enabled = SMR Or OL Or KH Or NA Or SA
        Button5.Enabled = NO Or AZ Or MA Or SJ Or MOA Or HA
        Button4.Enabled = MOD1 Or AH

    End Sub

لكم كل الشكر
الرد }}}
تم الشكر بواسطة:
#5
بالتوفيق اخي الفاضل .
الرد }}}
تم الشكر بواسطة:



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


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