س: كيف يتم ربط محتويات تكست بوكس بالداتا بيس ؟

السلام عليكم ورحمه الله وبركاته

اخي يمكنك عمل دوران للأحرف الموجوده في مربع النص ومن ثم تقوم بادراج كل حرف مع صورته في قاعدة البيانات, يمكنك استخدام الدوران التالي

For Each c As Char In TextBox1.Text
//Insert code goes here
Next

VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اخي يمكنك عمل دوران للأحرف الموجوده في مربع النص ومن ثم تقوم بادراج كل حرف مع صورته في قاعدة البيانات, يمكنك استخدام الدوران التالي

For Each c As Char In TextBox1.Text
//Insert code goes here
Next

طيب معليش ممكن ازا في كود ؟

لانه بصراحة احنا ما لنا اي خلفية بالفيجوال بيسك

السلام عليكم ورحمة الله وبركاته.

اعتقد من وجة نظري انه برنامجكم راح يكون اسهل لو استخدمتوا الـ RichTextBox مقارنة باستخدام الـ TextBox بحكم انه اكثر مرونة , فمثلا لو كان عندي في مجلد الـ Bin صورة اسمها a.jpg و تريد عرضها في الـ RichTextBox :

Dim imageBytes As Byte() = File.ReadAllBytes("a.jpg")
        Dim stream As Stream = New MemoryStream(imageBytes)
        If imageBytes IsNot Nothing Then
            Dim myBitmap As New Bitmap(stream)
            Clipboard.SetDataObject(myBitmap)
            Dim myFormat As DataFormats.Format = DataFormats.GetFormat(DataFormats.Bitmap)
            If RichTextBox1.CanPaste(myFormat) Then
                RichTextBox1.Paste(myFormat)
            End If
        End If

اما بالنسبة للتكست بوكس اعتقد راح تحتاج تتعامل مع دالة DrawImage

عموماً بالنسبة للتعامل مع الداتا بيس انصحك بالقراءة في مجال الـ ADO.NET , وببساطة تسند قيمة قيمة الزر المدخل في الاستعلام كالتالي :

    Dim cmdStr As String = "select image from LetterTable where letter="
commandObj.CommandText = cmdStr + "'" + e.KeyChar + "'"

بحيث يكون تنفيذ الاستعلام في الحدث KeyPress , بعد تنفيذ هذا الاستعلام ستحصل على الصورة , الان قم بوضعها في الاداة.

هذه مجرد اقتراحات لمساعدتك في كتابة البرنامج , ياريت تحاول و حبذا لو كان عندك اخطاء تضع الكود حتى يستطيع الاعضاء مساعدتك.

تمنياتي لك بالتوفيق.

Rose Muhammed كتب:

السلام عليكم ورحمة الله وبركاته.

اعتقد من وجة نظري انه برنامجكم راح يكون اسهل لو استخدمتوا الـ RichTextBox مقارنة باستخدام الـ TextBox بحكم انه اكثر مرونة , فمثلا لو كان عندي في مجلد الـ Bin صورة اسمها a.jpg و تريد عرضها في الـ RichTextBox :

Dim imageBytes As Byte() = File.ReadAllBytes("a.jpg")
        Dim stream As Stream = New MemoryStream(imageBytes)
        If imageBytes IsNot Nothing Then
            Dim myBitmap As New Bitmap(stream)
            Clipboard.SetDataObject(myBitmap)
            Dim myFormat As DataFormats.Format = DataFormats.GetFormat(DataFormats.Bitmap)
            If RichTextBox1.CanPaste(myFormat) Then
                RichTextBox1.Paste(myFormat)
            End If
        End If

اما بالنسبة للتكست بوكس اعتقد راح تحتاج تتعامل مع دالة DrawImage

عموماً بالنسبة للتعامل مع الداتا بيس انصحك بالقراءة في مجال الـ ADO.NET , وببساطة تسند قيمة قيمة الزر المدخل في الاستعلام كالتالي :

    Dim cmdStr As String = "select image from LetterTable where letter="
commandObj.CommandText = cmdStr + "'" + e.KeyChar + "'"

بحيث يكون تنفيذ الاستعلام في الحدث KeyPress , بعد تنفيذ هذا الاستعلام ستحصل على الصورة , الان قم بوضعها في الاداة.

هذه مجرد اقتراحات لمساعدتك في كتابة البرنامج , ياريت تحاول و حبذا لو كان عندك اخطاء تضع الكود حتى يستطيع الاعضاء مساعدتك.

تمنياتي لك بالتوفيق.

طيب جدا حلو

بس كما قلت انه ما عندي اي خبرة في الفيجوال بيسك

برايك اش الدروس الاساسية اللي لازم نطلع عليها عشان كتابة الكود ؟

و ازا في روابط تدلنا

مشكورين

:)

السلام عليكم ورحمه الله وبركاته

اقتباس

طيب معليش ممكن ازا في كود ؟

لانه بصراحة احنا ما لنا اي خلفية بالفيجوال بيسك

اخي انصح بقراءة اساسيات اللغة اولا ..

السلام عليكم ورحمة الله وبركاته.

اقتباس

طيب جدا حلو

بس كما قلت انه ما عندي اي خبرة في الفيجوال بيسك

برايك اش الدروس الاساسية اللي لازم نطلع عليها عشان كتابة الكود ؟

و ازا في روابط تدلنا

مشكورين

كتاب خطوة بخطوة مع فيجوال ستديو 2008

اعداد الاستاذ: أحمد جمال خليفة

اليك رابط لتحميل الكتاب :

الرابط الاول

الرابط الثاني

تمنياتي لك بالتوفيق.