البروسيجر والفنكشن

السلام عليكم ورحمة الله وبركاته :

أولاً : أخي الكريم , لا تستخدم أسماء للـ Subs أو الـ Functions تشبه الأسماء التي تستخدمها لغة البرمجة أو المحجوزة من قبل لغة

البرمجة , إلا إذا كانت تقبل عملية ما يسمى الـ OverLoading والتي تعني باختصار : إجراءات متعددة بنفس الأسماء ولكن بـ Parameters مختلفة .

ثانياً : بالنسبة للمشكلة الأولى لديك , إذا كنت تريد إجراء يغير الخط لمربع نص و أن تضع هذا الإجراء في Module فيكفي أن يكون

من نوع Sub , لأننا نريد فقط تغيير خصائص معينة دون أن يعيد لنا أية قيم , وإلا لكنا سنستخدم Function .

إذاً ممكن أن نعمل هذا الـ Sub ونضعه كما تريد في Module هكذا ...

	Public Sub ChangeFont(ByVal txt As TextBox)

		Dim fnt As New FontDialog
		With fnt
			If .ShowDialog = DialogResult.OK Then
				txt.Font = .Font
			End If
		End With

	End Sub

وإذا أردت أن تستدعيه , ناده باسمه مع تمرير اسم مربع النص المطلوب , هكذا :

 ChangeFont(Me.TextBox1)

ثالثاً : بالنسبة للمشلة الثانية , كما فهمت من سؤالك و من وجهة نظري :

يمكنك أن تجعل الرقم المعرف للشخص هو نفسه الرقم المعرف للسجل الخاص به إذا كان حقل السجل في قاعدة البيانات من نوع Primary

Key بحيث لا يتكرر أبداً . هذا ما فهمته من السؤال , وأترك المجال لإخواني لكي يعطوا رأيهم ...

وفقكم الله .

مشكور اخي ولك كل شكري واحترامي

ابشرك الاولى اضبطت معي ولكن مو نفس كذا انما تعديل بسيط لكودي ومشى البرنامج

اما الثانيه فأرجو التفصيل فيها لان لحد الان ماعرفت لها

ارجو من عنده الاجابه يساعدني فيها

ابو همام لك جل احترامي وتقديري