من خلال قراءة الوصف يضهر ان هناك قيمة نصية يتم تحويلها الى متغير من نوع boolean المشكلة ان العبارة تتكرر true true true ... و هدا لا يمكن تحويله الى متغير من قيمة true or false يجب عليك تتبع هدا الكود الدي يتم من خلاله التحويل .
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
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