كيف اضع كوماند على هذه الداله Statusbar1

عذرا أخي السؤال مش مفهوم

Private Sub Form_Load()

Command_In_Sttbar.rar

شكرا يا علااااااااااااااااااااااااااااااااااء مش عارف اشكرك ازاي

تحياتي.......................

x.ll_ll.x

للاسف الكود خطا <_< لما بكبر الفورم الكوماند مبيفضلش في البار؟؟؟

يعني لما اشد الكوماند لتحت البار بيتحرك لكن الكوماند ثابت مكانو

تحياتي.........................

فؤاد سعد

بدلا من وضع Command أستخدم Panel عادية و تحكم فى خاصية الـ Bevel بالكود لتبدو كزر لك.

مثال سريع :

Option Explicit

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
stbarTest.Panels(1).Bevel = sbrRaised
End Sub

Private Sub stbarTest_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
stbarTest.Panels(1).Bevel = sbrRaised
End Sub

Private Sub stbarTest_PanelClick(ByVal Panel As MSComctlLib.Panel)
If Panel.Index = 1 Then
	Panel.Bevel = sbrInset
	MsgBox "Hello World"
	Panel.Bevel = sbrRaised
End If
End Sub

لا اعرف ماذا تريد ان تعمل بالضبط لكن انظر المثال المرفق حيث استعنت بـ picturebox

StatusBarTest.rar

أخي انا مش مافهم ايش قصدك ممكن توضح اكثر

أعتقد انا حليتهالك لما تكلمنا على الماسنجر

هو يقصد اخواني , انه عند تكبير الفورم (Resize) يتغير موقع الأداة لأن Statusbar يتمدد

لذا أخي , ضع الكود في تايمر , أو في Form_Resize

اه علاء حللي المشكله في الماسنر وشكرا لكم جميعا

تحياتي......................

فؤاد سعد