منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] تحريك الكلام من عنوان الفورم و المربع+تحريك الكلمات في العنون و التكست - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] تحريك الكلام من عنوان الفورم و المربع+تحريك الكلمات في العنون و التكست (/showthread.php?tid=33635)

تحريك الكلام من عنوان الفورم و المربع+تحريك الكلمات في العنون و التكست - محمد ايمن - 03-03-20

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 


RE: تحريك الكلام من عنوان الفورم و المربع+تحريك الكلمات في العنون و التكست - alshandodi - 04-03-20

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

كود :
   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


RE: تحريك الكلام من عنوان الفورم و المربع+تحريك الكلمات في العنون و التكست - محمد ايمن - 04-03-20

(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

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