نمايش مكان كاربر در هر لحظه

[msh_gold]

با سلام ببخشيد. من تو برنامم يه فرم اصلي دارم با چند تا فرم ديگه كه با منوهايي فعال ميشن . من مي خوام وقتي كاربر مثلا فرم ثبت سيستم رو فعال كرد در statuse bar كه در فرم اصلي وجود داره .تكس فرم فعال نشون داده بشه و به كاربر بگه كه الان در چه قسمتي مشغول كار است.خيلي با كدا كار كردم اما نتونستم اگه ميشه كمك كنيد:گریه::گریه:

[mostafaaa]

میتونید توی رویداد لود هر فرم اون استاتوستون رو مقدار دهی کنید.

[msh_gold]

سلام mostafa جان ممنون ولي من مي خوام يه جورايي هر فرمي كه فعال باشه تكسش نشون داده بشه. چون وقتي كه فرم فعال بسته ميشه دوباره بايد به حالت اولش برگرده.مثلا يه رويدادي نيست كه تو سراسر برنامه اجرا بشه وبشه بهش گفت كه وقتي فرمي فعال است تكسش نمايش داده بشه.

[mostafaaa]

چون وقتي كه فرم فعال بسته ميشه دوباره بايد به حالت اولش برگرده.
میتونی توی رویداد Form_Closed اون رو به حالت قبل بر گردونی.

[rooshan2008]

سلام
این کد یک فرم هست که کاری رو که می خوای رو انجام میده


Public Class Form1
Dim Timer1 As New Timer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'مقدار دهی اولیه و متصل کردن رویداد

AddHandler Timer1.Tick, AddressOf Find
Timer1.Interval = 500
Timer1.Enabled = True

End Sub


Public Sub Find()

On Error Resume Next

'tlb نام لیبل داخل استاتوس بار هست
tlb.Text = ActiveForm.Text
End Sub

End Class