منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
احتاج كود يظهر اسم المستخدم في الواجهات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : احتاج كود يظهر اسم المستخدم في الواجهات (/showthread.php?tid=19803)



احتاج كود يظهر اسم المستخدم في الواجهات - ramimohammed - 26-03-17

السلام عليكم 
قمت بتصميم نظام مالي للمدارس 
والدخول للنظام باسم المستخدم وكلمة المرور
اريد ان يكون اسم المستخدم الذي دخل فيه يظهر في تكست بوكس التي في نهاية الواجهات خاصة عند استلام اقساط المدرسة ويذكر اسم المستلم
لا اريد كتابة الاسم اريد ان يظهر الاسم الذي تم الدخول فيه للنظام
فكيف يمكن ان اقوم بهذا؟؟



RE: احتاج كود يظهر اسم المستخدم في الواجهات - حريف برمجة - 26-03-17

TextBox1.Text = username
طبعاً عند الدخول تخزن اسم المستخدم في متغير يوزر نيم


RE: احتاج كود يظهر اسم المستخدم في الواجهات - ramimohammed - 26-03-17

الوواجهة التي اريد ان يظهر بها الاسم واجهة مختلفه عن واجهة الدخول .. فهل ينجح استدعاء الاسم من فورم لفورم اخر؟
للعلم المستخدمين لهم جدول مستقل


RE: احتاج كود يظهر اسم المستخدم في الواجهات - حريف برمجة - 27-03-17

نعم ينفع ،، تعرف متغير في موديول
لإضافة موديول للبرنامج كلك يمين على اسم المشروع ثم اضافة (Add) واختار Module1

راح يضيف معك مثل هذا

Module Module1

End Module

فقط اضف هذا السطر داخل الموديول ليصبح بهذا الشكل :

Module Module1
Public username as String
End Module

وعند شاشة الدخول بعد ما تكتب اسم المستخدم وكلمة المرور
تضيف هذا السطر :

username = TextBox1.Text
لنفرض ان التسكت الخاص بأسم المستخدم اسمه TextBox1

في اي شاشة في برنامجك فقط استدعيه بهذي الطريقة

Label1.Text = username
or
TextUsername = username

إنتهى...


RE: احتاج كود يظهر اسم المستخدم في الواجهات - ramimohammed - 29-03-17

(27-03-17, 01:10 AM)حريف برمجة كتب : نعم ينفع ،، تعرف متغير في موديول
لإضافة موديول للبرنامج كلك يمين على اسم المشروع ثم اضافة (Add) واختار Module1

راح يضيف معك مثل هذا

Module Module1

End Module

فقط اضف هذا السطر داخل الموديول ليصبح بهذا الشكل :

Module Module1
Public username as String
End Module

وعند شاشة الدخول بعد ما تكتب اسم المستخدم وكلمة المرور
تضيف هذا السطر :

username = TextBox1.Text
لنفرض ان التسكت الخاص بأسم المستخدم اسمه TextBox1

في اي شاشة في برنامجك فقط استدعيه بهذي الطريقة

Label1.Text = username
or
TextUsername = username

إنتهى...

بارك الله فيك اخي ... شكرا جزيلا الطريقة ناجحة مية بالمية ورائعة ... لكن هناك مشكلة صغيرة
الطريقة تعمل بشكل صحيح في حال لو كان واجهة الادخال اسم المستخدم هو من نوع تكست بوكس.... لكن انا وضعت ادخال اسم المستخدم بالكومبو بوكس 
وعندما اتبعت طرقتك .. استدعى لي الاسم الاول في الكومبو بوكس فقط ولا يجلب لي باقي الاسماء اذا اخترتها... ما هي المشكلة او ما الحل؟
وشكرا لك