[محمد مسافر]

هل ممكن جعل الفورم الاساسي ثابته ماتختفي نهائياً تكون ظاهره باستمرار  على سطح المكتب مهما فتحت من صفحات او برامج الغرض منه هو انه اريد اكتب حاجه في الفورم واكون متذكر لها باستمرار وماتحتفي نهائياً ظاهره على طول مهما فتحت صفحات اوبرامج كيف يمكن عمل ذلك ماهو الكود المناسب .

شكراً للجميع

[اسامه الهرماوي]

السلام عليكم...
تفضل:

[محمد مسافر]

شكراً اخي

عندي حاجه ثانيه اذا بالامكان كيف اجعل النص الموجود في شريط العنوان متحرك  .

شكراً مقدماً لكل الاعضاء المتميزين في هذا المنتدى الاكثر من رائع

[اسامه الهرماوي]

تفضل:

كود :

Public Class Form1
   Dim originalText As String
   Dim spaceCounter As Integer = 1
   Dim reverseMoving As Boolean

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       originalText = Me.Text
       Timer1.Interval = 50
       Timer1.Enabled = True
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Me.Text = StrDup(spaceCounter, " ") & originalText
       If Not reverseMoving Then
           spaceCounter += 1
           If spaceCounter = 35 Then
               reverseMoving = True
           End If
       Else
           spaceCounter -= 1
           If spaceCounter = 0 Then
               reverseMoving = False
           End If
       End If
   End Sub
End Class