اضافة كود لازرار تول بار فورم ميدي!

السلام عليكم

أخي shadi77 :

الحل يتلخص في إستخدام جملة Select Case

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button)
	On Error Resume Next
	Select Case Button.Key
		Case "New"
			' New Code
		Case "Open"
			' Open Code
		Case "Save"
			 'Save Code
		Case "Print"
			' Print code
		Case "Cut"
			' Cut Code
		Case "Copy"
			' Copy Code
		Case "Paste"
			' Paste Code
		   End Select
End Sub

حيث تكتب بعد Case إسم الزر في كل مره ثم سطر جديد تكتب فيه الحدث الذى سيحدث عند الضغط على هذا الزر .

و السلام ختام .....

شكرا لك تم التطبيق ونجاح الكود

نفعنا الله بعلمك وجزاك عن كل حرف الف حسنة