تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اغلاق زر Button
#1
لدى زر Button يعمل  واريد اغلاقه  فى تاريخ محدد
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم لم تذكر مايقوم به البوتون 
بالعموم اعتبرت ان البوتون يقوم باظهار رسالة ترحيب كلما تم تشغيل البرنامج حسب التاريخ المدخل
في حدث فورم لود تم استدعاء البوتون
فان كان اكبر من تاريخ اليوم يظهر الرسالة
اما ان كان تاريخ اليوم هو اكير سيتم الخروج من الحدث الذي يستعي البوتون
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       MsgBox("Hello")
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim dd As String = "3/3/2021"

       If Now > CDate(dd) Then
           Exit Sub
       Else
           Button1_Click(Nothing, Nothing)

       End If

   End Sub
هذا مافهمت من سؤالك
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: ابو روضة , ahmed.zaki
#3
[VB.NET] تفعيل زر button كل سنة
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ahmed.zaki
#4
لا حضراتكم لم تفهمونى الزر Button ده وليكن بيعمل خروج من البرنامج انا عيزو عند قدوم تاريخ 3/3/2021 يقف عن العمل لوحده بدون الضغط عليه
بمعنى الزر يعمل عادى جدا وعند قدوم التاريخ المعين يتوقف عن العمل ولا يعود مره اخرى الى العمل
الرد }}}
تم الشكر بواسطة: ابو روضة
#5
السلام عليكم ورحمة الله وبركاته
الموضوع هو كما اوضحت في ردي السابق لكنك لم توظف الكود فيما تريد
وبعد ان اوضحت طلبك اصبح الامر اكثر بساطة
الكود التالي سيكون في بوتون الذي بنفذ امر الخروج (يمكنك توظيفه في اي بوتون ينفذ امرا ما)
عند الضغط على البوتون ستتم المقارنة بين التاريخ المعرف فيه وتاريخ اليوم فإن كان تاريخ اليوم الحالي اصغر او يساوي  التاريخ المخزن فهذا يعني ان البوتون يعمل واما ان كان اكبر فهذا يعني ان الوقت انتهىوبذلك فإن البوتون لن ينفذ شيء من الاكواد التي بداخله اي سيتوقف عن العمل
جرب وغير التالريخ المخزن 
كود :
Private Sub Btn_Exit_Click(sender As Object, e As EventArgs) Handles Btn_Exit.Click
       Dim dd As String = "3/3/2021"
       If Now <= CDate(dd) Then
           Application.Exit()
       Else
           Exit Sub
       End If
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: ابو روضة , ahmed.zaki
#6
(01-03-21, 10:16 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
الموضوع هو كما اوضحت في ردي السابق لكنك لم توظف الكود فيما تريد
وبعد ان اوضحت طلبك اصبح الامر اكثر بساطة
الكود التالي سيكون في بوتون الذي بنفذ امر الخروج (يمكنك توظيفه في اي بوتون ينفذ امرا ما)
عند الضغط على البوتون ستتم المقارنة بين التاريخ المعرف فيه وتاريخ اليوم فإن كان تاريخ اليوم الحالي اصغر او يساوي  التاريخ المخزن فهذا يعني ان البوتون يعمل واما ان كان اكبر فهذا يعني ان الوقت انتهىوبذلك فإن البوتون لن ينفذ شيء من الاكواد التي بداخله اي سيتوقف عن العمل

جرب وغير التالريخ المخزن 


كود :
Private Sub Btn_Exit_Click(sender As Object, e As EventArgs) Handles Btn_Exit.Click
       Dim dd As String = "3/3/2021"
       If Now <= CDate(dd) Then
           Application.Exit()
       Else
           Exit Sub
       End If


   End Sub

تسلم ايدك يا غالى  هوا فعلا عمل نفس الغرض  او مشابه للى انا عايزو  بس شكرا ليك ولمجهودك وهشتغل بيه
الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة , ابراهيم ايبو



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


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