13-12-20, 08:57 PM
السلام عليكم.عندي بيانات في فورم في كمبو بوكس مثلا اسم موظف المطلوب كود لترحيل الاسم الى فورم اخر يعني من كمبو بوكس الى كمبوبوكس اخر وثانيا من كمبوبوكس الى تكست بوكس مع الشكر.لغة البرمجة بالفيجوال بيسك vb.net2019
13-12-20, 08:57 PM
13-12-20, 09:26 PM
السلام عليكم ورحمة الله وبركاته
اخي الكريم
الفورم الاول يحتوي على كومبوبوكس وبوتون ويوخد في الكومبوبوكس عددا من العناصر
عند اختيار عنصر من الكومبو ثم النقر على البوتون يتم فتح الفورم الثاني والذي يجتوي على كومبوبوكس ومربع نص
عندها سيكون الكومبو في الفورم الثاني ومربع النص يحتويان على العنصر المختار في كومبو الفورم الاول
اخي الكريم
الفورم الاول يحتوي على كومبوبوكس وبوتون ويوخد في الكومبوبوكس عددا من العناصر
عند اختيار عنصر من الكومبو ثم النقر على البوتون يتم فتح الفورم الثاني والذي يجتوي على كومبوبوكس ومربع نص
عندها سيكون الكومبو في الفورم الثاني ومربع النص يحتويان على العنصر المختار في كومبو الفورم الاول
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim frm As New Form2()
frm.ComboBox1.Items.Add(Me.ComboBox1.SelectedItem)
frm.ComboBox1.SelectedItem = Me.ComboBox1.SelectedItem
frm.TextBox1.Text = Me.ComboBox1.SelectedItem
frm.Show()
End Sub13-12-20, 10:58 PM
(13-12-20, 09:26 PM) pid=\169728' كتب :السلام عليكم ورحمة الله وبركاته
اخي الكريم شكرا لاجابتك على السؤال ولكن مع الاسف لم ينفع الكود فلم اتمكن من ترحيل البيانات من فورم لاخر هل من طريقة اخرى؟
17-12-20, 08:44 PM
(13-12-20, 10:58 PM)muaamar كتب : [ -> ](13-12-20, 09:26 PM)pid=\169728 كتب :السلام عليكم ورحمة الله وبركاته
اخي الكريم شكرا لاجابتك على السؤال ولكني وجدت الحل فاحببت ان انشره ليستفاد منه الكل.في الفورم الاصلي عملة 2 بوتن واحد خاص لعرض الفورم والثاني لنقل البيانات الفورمالثاني الذي نريد نقل البيانات اليه بطريقة FORM2.SHOW() ثم في نفس الفورم الثاني ايقونة اسمها جديد تقوم بتفريغ الحقول التي نريد نقل البيانات اليها.في الفورم الاول ايقونة نقل الملفات بعد النقل نذهب الى الفورم 2 ونحفظ.في الفورم الاول يكون كود نقل البيانات بهذا الترتيب
frmStopSalary.txtEmployName.Text = Me.CboEmployName.Text
frmStopSalary.txtEmployNo.Text = Me.txtEmployNo.Text
frmStopSalary.CboComm.Text = Me.CboComm.Text
شكرا لكل من ساعدنا