+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اغلاق زر Button (/showthread.php?tid=37913)
اغلاق زر Button - ahmed.zaki - 01-03-21
لدى زر Button يعمل واريد اغلاقه فى تاريخ محدد
RE: اغلاق زر Button - ابراهيم ايبو - 01-03-21
السلام عليكم ورحمة الله وبركاته
اخي الكريم لم تذكر مايقوم به البوتون
بالعموم اعتبرت ان البوتون يقوم باظهار رسالة ترحيب كلما تم تشغيل البرنامج حسب التاريخ المدخل
في حدث فورم لود تم استدعاء البوتون
فان كان اكبر من تاريخ اليوم يظهر الرسالة
اما ان كان تاريخ اليوم هو اكير سيتم الخروج من الحدث الذي يستعي البوتون
كود :
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 SubRE: اغلاق زر Button - ابو روضة - 01-03-21
[VB.NET] تفعيل زر button كل سنة
RE: اغلاق زر Button - ahmed.zaki - 01-03-21
لا حضراتكم لم تفهمونى الزر Button ده وليكن بيعمل خروج من البرنامج انا عيزو عند قدوم تاريخ 3/3/2021 يقف عن العمل لوحده بدون الضغط عليه
بمعنى الزر يعمل عادى جدا وعند قدوم التاريخ المعين يتوقف عن العمل ولا يعود مره اخرى الى العمل
RE: اغلاق زر Button - ابراهيم ايبو - 01-03-21
السلام عليكم ورحمة الله وبركاته
الموضوع هو كما اوضحت في ردي السابق لكنك لم توظف الكود فيما تريد
وبعد ان اوضحت طلبك اصبح الامر اكثر بساطة
الكود التالي سيكون في بوتون الذي بنفذ امر الخروج (يمكنك توظيفه في اي بوتون ينفذ امرا ما)
عند الضغط على البوتون ستتم المقارنة بين التاريخ المعرف فيه وتاريخ اليوم فإن كان تاريخ اليوم الحالي اصغر او يساوي التاريخ المخزن فهذا يعني ان البوتون يعمل واما ان كان اكبر فهذا يعني ان الوقت انتهىوبذلك فإن البوتون لن ينفذ شيء من الاكواد التي بداخله اي سيتوقف عن العمل
جرب وغير التالريخ المخزن
كود :
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 SubRE: اغلاق زر Button - ahmed.zaki - 02-03-21
(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
تسلم ايدك يا غالى هوا فعلا عمل نفس الغرض او مشابه للى انا عايزو بس شكرا ليك ولمجهودك وهشتغل بيه