منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تحريك الكلام من عنوان الفورم و المربع+تحريك الكلمات في العنون و التكست

PHP كود :

تحريك الكلام من عنوان الفورم و المربع
Private strText As String
Private Sub Form_Load()
Timer1.Interval = 75
strText = "Guten Tag! Wie ght's Ihnen? Ich hoffe Ihnen alles Gutes!"
strText = Space(50) & strText
End Sub
Private Sub Timer1_Timer()
strText = Mid(strText, 2) & Left(strText, 1)
Text1.Text = strText
Me.Caption = strText
End Sub 

PHP كود :

تحريك الكلمات في العنون و التكست
Public Class Form1
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
 Timer1.Interval = 75
 TextBox1.Text = "Guten Tag! Wie ght’s Ihnen? Ich hoffe Ihnen alles Gutes!"
 TextBox1.Text = Space(50) & TextBox1.Text
 End Sub
 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Timer1.Tick
 TextBox1.Text = Mid(TextBox1.Text, 2)
 TextBox1.Text = TextBox1.Text
 Me.Text = TextBox1.Text
 End Sub
End Class 

او يمكنك استخدام هذا الكود وجدته في البحث

كود :

   Dim g As Graphics = Me.CreateGraphics()

    Dim header As String

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Me.Text = " " & Me.Text

        ' Threading.Thread.Sleep(100)

        If g.MeasureString(Me.Text, Me.Font).Width >= Me.Width Then

            Me.Text = header

        End If

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        header = Me.Text

    End Sub

(04-03-20, 12:24 AM)alshandodi كتب : [ -> ]او يمكنك استخدام هذا الكود وجدته في البحث

كود :

Dim g As Graphics = Me.CreateGraphics() Dim header As String Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Text = " " & Me.Text ' Threading.Thread.Sleep(100) If g.MeasureString(Me.Text, Me.Font).Width >= Me.Width Then Me.Text = header End If End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load header = Me.Text End Sub

شكران علي مشركتك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد ايمن

alshandodi

محمد ايمن