كود تحريك نص في شريط عنوان النافذة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=1308) |
كود تحريك نص في شريط عنوان النافذة - atefkhalf2004 - 21-12-13 السادة الافاضل هذا كود لاحد الزملاء ونقلا من منتدي في بي اس كيو للامانة يقوم بتحريك نص ارغب في تحريك النص في شريط عنوان النافذة حتي نهايته وليس في جزء منه وعند الوصول الي النهاية يعود مرة اخري من البداية Option Strict Off Option Explicit On Imports VB = Microsoft.VisualBasic Friend Class Form1 Inherits System.Windows.Forms.Form Dim strtext As String Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load strtext = "w w w . v b s q . n e t " End Sub Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick strtext = Mid(strtext, 2) & VB.Left(strtext, 1) Me.Text = strtext End Sub End Class RE: كود تحريك نص في شريط عنوان النافذة - beep - 22-12-13 استتخدم هذا الكود Public Class Form1 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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load header = Me.Text End Sub End Class RE: كود تحريك نص في شريط عنوان النافذة - asdsoft - 05-01-17 عاشت ايدك وبارك الله بجهودك |