الاستاذ الفاضل دائما تبذل مجهود معنا
الحد الخارجي سوف يكون مربع الشكل او مستطيل ما هي الخاصية التي تجعله بيضاوي الشكل اي اقرب الي الدائرة
لان المطلوب هو دائرة او شكل بيضاوي حول الحقل والحل الذي اقترحته حضرتك ممتاز لكنه مربع او مستطيل الشكل
لو استطعنا تغيير شكل الحد الخارجي
او حل اخر وهو وضع صورة دائرة لها لون تظهر هذه الصورة فوق الحقل اذا تحقق شرط معين
يكون بذلك هو الحل المطلوب
حاولت ان احوله الي غيجوال بيسك هناك اخطاء
للعلم حاليا وبتوجيهاتك اصبحت اسطتيع تحويل من 2010 الي 2008 ودون اخطاء
لكن تحويل الي فيجوال لم يتم بصورة صحيحة برجاء التحويل
بارك الله فيك أخي الكريم " شرحك رائع "
هناك مشكلة كنت أواجهها في الفيجوال ستوديو 2010 وكانت تتعلق بملف اسمه "Resgen.exe" وهذا الخطأ ثابت ولم يزال حتى بعد تنصيب الوندوز عدة مرات !!
فانتقلت للفيجوال ستوديو 2012 وفوضت أمري إلى الله
ولكن المثال الذي بالموضوع لا يعمل " نظراً لوجود أخطاء ما " ولا أستطيع أن أصلحه لأنه ليس لدي خبرة بفيجوال ستوديو 2012 وين أيامك يا 2010 :mad:
فهل ممكن تساعدني في اني استبدل أكواد الاتصال بقاعدة البيانات بأكواد قديمة " سهلة " كنت أستعملها سابقاً " نظراً لأنني نسيت أغلبية البرمجة بسبب الدراسة وفي قيد إسترجاعها إن شاء الله "
كود :
Imports System.Windows.Forms
Imports System.Data.OleDb
Public Class Main
' Database Connection Setting
Public conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Application.StartupPath & "\Data\Data.mdb")
Public DataTable1 As New DataTable
Public DataAdapter1 As New OleDbDataAdapter
Public Dataset1 As New DataSet
Public DataTable2 As New DataTable
Public DataAdapter2 As New OleDbDataAdapter
Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Get Data From "Studentvolunteers"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim load As New OleDbCommand("Select * From Student_volunteers", conn)
DataAdapter1 = New OleDbDataAdapter(load)
Dim Builder As New OleDbCommandBuilder(DataAdapter1)
Dataset1 = New DataSet()
DataAdapter1.Fill(Dataset1, "Student_volunteers")
BindingSource1 = New BindingSource(Dataset1, "Student_volunteers")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Get Data From "Members_of_the_provincial"
Dim load2 As New OleDbCommand("Select * From Members_of_the_provincial", conn)
DataAdapter2 = New OleDbDataAdapter(load2)
Dim Builder2 As New OleDbCommandBuilder(DataAdapter2)
DataAdapter2.Fill(Dataset1, "Members_of_the_provincial")
BindingSource2 = New BindingSource(Dataset1, "Members_of_the_provincial")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
الله يعطيك العافية
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
