منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم 
صباح الخير 
كيف يمكن جعل الtextbox في vb.net 2015 عبارة عن مصفوفة ..
للعلم ضفت اداة TextBoxArray1 وضفت الكود الخاص بكل text وبعدها ماعرفت ماذا افعل ...

لم افهم ما المطلوب بالضبط
عني نص التكستبوكس تجوله الى مصفوفة و بالتالي اما سيحوله الى مصفوفة كلمات او مصفوفة حروف

(09-03-21, 02:52 PM)عبد الهادي بهاب كتب : [ -> ]لم افهم ما المطلوب بالضبط
عني نص التكستبوكس تجوله الى مصفوفة و بالتالي اما سيحوله الى مصفوفة كلمات او مصفوفة حروف

شكرا على الرد ..المطلوب هو جعل Txetbox  مصفوفة مثلا قبل في vb6 ننسخ الTextbox وبعدها نعمل لصق على الفورم نفسه يتحول الtextbox على طول لمصفوفة كتالي   (textbox1(1) textbox1(0   وهكذا ..لكن vb.net ما عرفت كيف يصبح مصفوفة ..؟

وعليكم السلام
صراحة ما فهمت السؤال بالضبط ولكن فهمت حظرتك تريد تتعامل مع مصفوفة Textbox , عن نفسي اذا اريد اتعامل مع مجموعة من الادوات دفعة واحدة استخدم الـ Collection
اضيف الادوات الى Collection وبعدها اتعامل مع خصائص الاداة المضافة
هذا مثال بسيط من خلاله اضفت مجموعة من التسكت بوكس اثناء زمن التشغيل واضفت لها الخاصية text من خلال زر امر





اذا ما كان هذا الشيء الي تقصده حضرتك نرجو توضيح السؤال اكثر

(11-03-21, 01:13 AM)علي بنيان كتب : [ -> ]وعليكم السلام
صراحة ما فهمت السؤال بالضبط ولكن فهمت حظرتك تريد تتعامل مع مصفوفة Textbox , عن نفسي اذا اريد اتعامل مع مجموعة من الادوات دفعة واحدة استخدم الـ Collection
اضيف الادوات الى Collection وبعدها اتعامل مع خصائص الاداة المضافة
هذا مثال بسيط من خلاله اضفت مجموعة من التسكت بوكس اثناء زمن التشغيل واضفت لها الخاصية text من خلال زر امر

PHP كود :

 Dim AL As New Collection
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 1 To AL.Count
            AL(i).Text = " تيكست بوكس رقم " & i
        Next
    End Sub
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim y As Integer = 50
        For i = 1 To 10
            Dim txt As New TextBox()
            txt.Size = New Size(150, 10)
            txt.Location = New Point(90, y)
            Me.Controls.Add(txt)
            y += 25
            AL.Add(txt)
        Next
    End Sub 


اذا ما كان هذا الشيء الي تقصده حضرتك نرجو توضيح السؤال اكثر

شكرا على الرد ...يمكن قريب جدا للمطلوب ..انظر الى هذا الكود كنت استخدمة في الفيجوال 6 لاضافة بيانات لقاعدة البيانات حيث rs متغير تم تعرفيه في المودل لتعامل مع جداول قاعدة البيانات والتكست داخل الfor تصبح text(i) كانت الطريقة سهلة وممتعة هذا المكلوب مع vb.net 
لانه انا جديدة بال vb.net ان شاء الله تكون فهمت السؤال
                                                                                                                                                            Set rs = db.OpenRecordset("file")
                                                                                                                                                                                     rs.Index = "Key"
                                                                                                                                                                         rs.Seek "=", Val(Text1(0)
                                                                                                                                                                                   If rs.NoMatch The  

                                                                                                                                                                                               rs.AddNew
                                                                                                                                                                     For I = 0 To Text1.Count - 1
                                                                                                                                                       rs.Fields(Text1(I).DataField) = Text1(I)
                                                                                                                                                                                                       Next

بصراحة ناسي الفيجول بيسك 6 لان صارلي اقل شيء 10 سنوات من تركتها , ولا اعرف هذه الطريقة في ادخال البيانات لكن توجد طريقة يمكن تكون مشابهة للطريقة اعلاه , كذلك Data Table  و  Data Row ولكن بدون حلقة تكرار وسهلة جدا وتتبع الخطأ كذلك سهل . 

هسه اذا عندي داتا بيس اسمها (LearningDB) وبداخلها عدة جداول انا اريد ان اضيف الى الجدول (Courses) بأستخدام الـ Data Row (DR)



اول شيء انشأ الاتصال بين قاعدة البيانات وبرنامجي عن طريق الدالة 





في زر الاضافة يكون الكود التالي :



هذه هي عملية الادخال اما عملية التعديل والحذف مجرد تغير احرف بسيطة جدا يتغير الكود من اضافة الى تعديل (هذه شيء موجود بصورة مفصلة بالدورة الثانية)

اذا تردين تفهمين شنو هي الـ Data Row  و  Data Table و Data set بصورة دقيقة ومفصلة جدا شوفي دورة احمد عبد الواحد الزيني على اليويتوب وكذلك دورة عثمان محمد خورشيد لكن الدورة الاولى لاحمد الزيني مفصلة اكثر

دورة احمد الزيني هنا ( 330 درس ) 

دورة عثمان محمد خورشيد  هنا ( 35 درس )


بالتوفيق

(12-03-21, 03:43 AM)علي بنيان كتب : [ -> ]بصراحة ناسي الفيجول بيسك 6 لان صارلي اقل شيء 10 سنوات من تركتها , ولا اعرف هذه الطريقة في ادخال البيانات لكن توجد طريقة يمكن تكون مشابهة للطريقة اعلاه , كذلك Data Table  و  Data Row ولكن بدون حلقة تكرار وسهلة جدا وتتبع الخطأ كذلك سهل . 

هسه اذا عندي داتا بيس اسمها (LearningDB) وبداخلها عدة جداول انا اريد ان اضيف الى الجدول (Courses) بأستخدام الـ Data Row (DR)



اول شيء انشأ الاتصال بين قاعدة البيانات وبرنامجي عن طريق الدالة 

PHP كود :

' في التصريحات العامة'
Imports System.Data.SqlClient


'------------------------------'

  Public SqlCon As New SqlClient.SqlConnection

    Public Sub opencon()

        If SqlCon.State = 1 Then SqlCon.Close()
        Try
            SqlCon.ConnectionString = "server=spyman;database=LearningDB;integrated security = true"
            SqlCon.Open()

        Catch ex As Exception
            MsgBox(ex.Message)
            End
        End Try

    End Sub 


في زر الاضافة يكون الكود التالي :

PHP كود :

Try
            Dim sql = "select * from Courses"
            Dim adp As New SqlClient.SqlDataAdapter(sql, SqlCon)
            Dim ds As New DataSet
            adp.Fill(ds)
            Dim DT = ds.Tables(0)
            Dim DR = DT.NewRow
  
          '------------------------------------
            DR!CoursesID = TxtCoursesID.Text
            DR!EmployeeID = TxtEmployeeID.Text
            DR!TrainnerID = TxtTrainnerID.Text
            DR!CoreName = TxtCoreName.Text
            DR!TrainingCourses = TxtTrainingCourses.Text
            DR!DataAssigned = TxtDataAssigned.Text
            DR!DueDate = TxtDueDate.Text
            DR!CompletionDate = TxtCompletionDate.Text
            DR!Remark = TxtRemark.Text
            DR!Comments = TxtComments.Text
            DR!Status = TxtStatus.Text
            DR!Notes = TxtNotes.Text
            '-------------------------------------
            DT.Rows.Add(DR)
            Dim cmd As New SqlClient.SqlCommandBuilder(adp)
            adp.Update(DT)
            MessageBox.Show("تم الحفظ بنجاح", "حفظ",
                MessageBoxButtons.OK,
                MessageBoxIcon.Information,
                MessageBoxDefaultButton.Button1,
                MessageBoxOptions.RightAlign, False)

        Catch ex As Exception
            MessageBox.Show("خطأ في الحفظ" + ex.Message, "خطأ",
                MessageBoxButtons.OK,
                MessageBoxIcon.Error,
                MessageBoxDefaultButton.Button1,
                MessageBoxOptions.RightAlign, False)
        End Try 


هذه هي عملية الادخال اما عملية التعديل والحذف مجرد تغير احرف بسيطة جدا يتغير الكود من اضافة الى تعديل (هذه شيء موجود بصورة مفصلة بالدورة الثانية)

اذا تردين تفهمين شنو هي الـ Data Row  و  Data Table و Data set بصورة دقيقة ومفصلة جدا شوفي دورة احمد عبد الواحد الزيني على اليويتوب وكذلك دورة عثمان محمد خورشيد لكن الدورة الاولى لاحمد الزيني مفصلة اكثر

دورة احمد الزيني هنا ( 330 درس ) 

دورة عثمان محمد خورشيد  هنا ( 35 درس )


بالتوفيق

مشكور جدا على الرد ..بارك الله فيك