تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] TextBoxArray
#1
السلام عليكم 
صباح الخير 
كيف يمكن جعل الtextbox في vb.net 2015 عبارة عن مصفوفة ..
للعلم ضفت اداة TextBoxArray1 وضفت الكود الخاص بكل text وبعدها ماعرفت ماذا افعل ...
الرد }}}
تم الشكر بواسطة:
#2
لم افهم ما المطلوب بالضبط
عني نص التكستبوكس تجوله الى مصفوفة و بالتالي اما سيحوله الى مصفوفة كلمات او مصفوفة حروف
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد }}}
تم الشكر بواسطة: علي بنيان
#3
(09-03-21, 02:52 PM)عبد الهادي بهاب كتب : لم افهم ما المطلوب بالضبط
عني نص التكستبوكس تجوله الى مصفوفة و بالتالي اما سيحوله الى مصفوفة كلمات او مصفوفة حروف

شكرا على الرد ..المطلوب هو جعل Txetbox  مصفوفة مثلا قبل في vb6 ننسخ الTextbox وبعدها نعمل لصق على الفورم نفسه يتحول الtextbox على طول لمصفوفة كتالي   (textbox1(1) textbox1(0   وهكذا ..لكن vb.net ما عرفت كيف يصبح مصفوفة ..؟
الرد }}}
تم الشكر بواسطة:
#4
وعليكم السلام
صراحة ما فهمت السؤال بالضبط ولكن فهمت حظرتك تريد تتعامل مع مصفوفة Textbox , عن نفسي اذا اريد اتعامل مع مجموعة من الادوات دفعة واحدة استخدم الـ Collection
اضيف الادوات الى Collection وبعدها اتعامل مع خصائص الاداة المضافة
هذا مثال بسيط من خلاله اضفت مجموعة من التسكت بوكس اثناء زمن التشغيل واضفت لها الخاصية text من خلال زر امر

PHP كود :
 Dim AL As New Collection
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles Me.Load
        Dim y 
As Integer 50
        For i 
1 To 10
            Dim txt 
As New TextBox()
 
           txt.Size = New Size(15010)
 
           txt.Location = New Point(90y)
 
           Me.Controls.Add(txt)
 
           y += 25
            AL
.Add(txt)
 
       Next
    End Sub 




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

PHP كود :
 Dim AL As New Collection
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles Me.Load
        Dim y 
As Integer 50
        For i 
1 To 10
            Dim txt 
As New TextBox()
 
           txt.Size = New Size(15010)
 
           txt.Location = New Point(90y)
 
           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
بصراحة ناسي الفيجول بيسك 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(sqlSqlCon)
 
           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.RightAlignFalse)

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

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

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

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

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


بالتوفيق
الرد }}}
تم الشكر بواسطة:
#7
(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(sqlSqlCon)
 
           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.RightAlignFalse)

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

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

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

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

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


بالتوفيق
مشكور جدا على الرد ..بارك الله فيك
الرد }}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم