+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] فورم اساي ثابت لايختفي (/showthread.php?tid=33395)
فورم اساي ثابت لايختفي - محمد مسافر - 13-02-20
هل ممكن جعل الفورم الاساسي ثابته ماتختفي نهائياً تكون ظاهره باستمرار على سطح المكتب مهما فتحت من صفحات او برامج الغرض منه هو انه اريد اكتب حاجه في الفورم واكون متذكر لها باستمرار وماتحتفي نهائياً ظاهره على طول مهما فتحت صفحات اوبرامج كيف يمكن عمل ذلك ماهو الكود المناسب .
شكراً للجميع
RE: فورم اساي ثابت لايختفي - اسامه الهرماوي - 14-02-20
السلام عليكم...
تفضل:
RE: فورم اساي ثابت لايختفي - محمد مسافر - 14-02-20
شكراً اخي
عندي حاجه ثانيه اذا بالامكان كيف اجعل النص الموجود في شريط العنوان متحرك .
شكراً مقدماً لكل الاعضاء المتميزين في هذا المنتدى الاكثر من رائع
RE: فورم اساي ثابت لايختفي - اسامه الهرماوي - 18-02-20
تفضل:
كود :
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