المشاركات : 8
المواضيع 3
الإنتساب : Mar 2021
السمعة :
0
الشكر: 0
تم شكره 2 مرات في 1 مشاركات
09-03-21, 11:34 AM
(آخر تعديل لهذه المشاركة : 09-03-21, 10:57 PM {2} بواسطة Amir_Alzubidy.
تعديل السبب: تعديل العنوان
)
السلام عليكم
صباح الخير
كيف يمكن جعل الtextbox في vb.net 2015 عبارة عن مصفوفة ..
للعلم ضفت اداة TextBoxArray1 وضفت الكود الخاص بكل text وبعدها ماعرفت ماذا افعل ...
المشاركات : 219
المواضيع 53
الإنتساب : Jul 2020
السمعة :
104
الشكر: 260
تم شكره 635 مرات في 218 مشاركات
لم افهم ما المطلوب بالضبط
عني نص التكستبوكس تجوله الى مصفوفة و بالتالي اما سيحوله الى مصفوفة كلمات او مصفوفة حروف
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
المشاركات : 8
المواضيع 3
الإنتساب : Mar 2021
السمعة :
0
الشكر: 0
تم شكره 2 مرات في 1 مشاركات
(09-03-21, 02:52 PM)عبد الهادي بهاب كتب : لم افهم ما المطلوب بالضبط
عني نص التكستبوكس تجوله الى مصفوفة و بالتالي اما سيحوله الى مصفوفة كلمات او مصفوفة حروف
شكرا على الرد ..المطلوب هو جعل Txetbox مصفوفة مثلا قبل في vb6 ننسخ الTextbox وبعدها نعمل لصق على الفورم نفسه يتحول الtextbox على طول لمصفوفة كتالي (textbox1(1) textbox1(0 وهكذا ..لكن vb.net ما عرفت كيف يصبح مصفوفة ..؟
المشاركات : 101
المواضيع 0
الإنتساب : Nov 2019
السمعة :
20
الشكر: 217
تم شكره 274 مرات في 87 مشاركات
وعليكم السلام
صراحة ما فهمت السؤال بالضبط ولكن فهمت حظرتك تريد تتعامل مع مصفوفة 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
اذا ما كان هذا الشيء الي تقصده حضرتك نرجو توضيح السؤال اكثر
المشاركات : 8
المواضيع 3
الإنتساب : Mar 2021
السمعة :
0
الشكر: 0
تم شكره 2 مرات في 1 مشاركات
(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
المشاركات : 101
المواضيع 0
الإنتساب : Nov 2019
السمعة :
20
الشكر: 217
تم شكره 274 مرات في 87 مشاركات
بصراحة ناسي الفيجول بيسك 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 درس )
بالتوفيق
المشاركات : 8
المواضيع 3
الإنتساب : Mar 2021
السمعة :
0
الشكر: 0
تم شكره 2 مرات في 1 مشاركات
(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 درس )
بالتوفيق
مشكور جدا على الرد ..بارك الله فيك
|