+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] ممكن مساعدة عاجلة (/showthread.php?tid=37341)
ممكن مساعدة عاجلة - Necro PC - 31-12-20
السلام عليكم. انشأت برنامج بقاعدة بيانات Access 2013.أريد كود لجعل البرنامج ينفذ أمرا إذا لم يضغط المستخدم على زر حفظ و ضغط مباشرة على زر الخروج. و إذا ضغط على زر الحفظ فالبرنامج يحفظ ويخرج عادي دن تنفيذ أي أمر آخر. و آمل أني أوصلت الفكرة وشكرا مسبقا
RE: ممكن مساعدة عاجلة - moahmed.abdelmohsen - 31-12-20
بعد استخدام كود الحفظ مثل ذالك
كود :
Public Sub Save_expiredDate_InDirect(colName As String, colNametxt As String)
' check if this ColumnName is already exist in database
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
dt.Clear()
da = New OleDbDataAdapter("Select * FROM expiredDate where " & colName & " = '" & colNametxt & "'", con)
da.Fill(dt)
' if Column present give msgbox to alert & Dont save
If dt.Rows.Count > 0 Then
Exit Sub
'MsgBox("هذا الاسم موجود من قبل ", MsgBoxStyle.Critical, "بيانات مكررة")
Else
dt.Rows.Add()
Dim last As Integer = dt.Rows.Count - 1
'DT.Rows(last).Item("id") = id.Text
dt.Rows(last).Item("expiredDate") = Label1.Text
Dim Save As New OleDbCommandBuilder(da)
da.Update(dt)
dt.AcceptChanges()
'give msgbox to sure save
MsgBox("تم الحفظ بنجاح ", MsgBoxStyle.Information, "تاكيد الحفظ")
End If
End Subيجب عليك استدعاء Sub الخاصة بالحفظ خلف زر الامر
وبعد ذلك الامر ضف
Me.Close()
RE: ممكن مساعدة عاجلة - Necro PC - 01-01-21
أخي كود الحفظ عندي. فقط أريد كود لجعل البرنامج ينفذ أمرا معينا إذا لم يتم الضغط على زر ما. لكن إذا تم الضغط عليه ينفذ أمرا مغايرا و أرجو أن تكون فهمتني و شكرا على ردك
RE: ممكن مساعدة عاجلة - Mahmoud41 - 01-01-21
(01-01-21, 12:20 AM)Necro PC كتب : أخي كود الحفظ عندي. فقط أريد كود لجعل البرنامج ينفذ أمرا معينا إذا لم يتم الضغط على زر ما. لكن إذا تم الضغط عليه ينفذ أمرا مغايرا و أرجو أن تكون فهمتني و شكرا على ردك
لقد واجهتني هذه المشكله من قبل و حللتها ب ...
انشأ متغير مثال
dim n as byte = 0
وعند الضعط علي الزر يجعل قيمه N = 1
وعند الضغط علي زر الحفظ
if n = 0 then
الكود
Else if n = 1 then
الكود الاخر
End if
و اتمني ان اكون استطعت المساعده 