تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود تحريك نص في شريط عنوان النافذة
#1
السادة الافاضل
هذا كود لاحد الزملاء ونقلا من منتدي في بي اس كيو للامانة
يقوم بتحريك نص
ارغب في تحريك النص في شريط عنوان النافذة حتي نهايته وليس في جزء منه
وعند الوصول الي النهاية يعود مرة اخري من البداية
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
الرد }}}}
تم الشكر بواسطة:
#2
استتخدم هذا الكود
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
الرد }}}}
تم الشكر بواسطة: tarek


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحريك العناصر الى كل الاتجاهات bidaya 3 89 23-11-16, 12:48 PM
آخر رد: bahgat okasha
  [سؤال] جعل المستخدم يحدد عنوان اي بي السيرفر الذي عليه قاعدة البيانات thevirus 0 55 04-11-16, 10:38 AM
آخر رد: thevirus
  [سؤال] تحريك الصورة naden 3 109 02-10-16, 01:13 AM
آخر رد: ممدوح
  [VB.NET] توسيط عنوان الفورم المبرمج الطموح 4 361 16-05-16, 10:16 PM
آخر رد: myalsailamy
  كود اظهار عنوان الفورم فى المنتصف salah mansour 4 256 13-03-16, 12:11 AM
آخر رد: salah mansour
Exclamation [VB.NET] سؤال حول عمل شريط متحرك jamalalzyadi 1 285 19-01-16, 10:38 PM
آخر رد: jamalalzyadi
  [سؤال] تغيير عنوان رساله التنبية نسيم الترك1 2 227 10-01-16, 09:47 PM
آخر رد: نسيم الترك1
  [سؤال] التعديل على مشروع تحريك الازرار اثناء تشغيل البرنامج mohamed haroon 5 671 09-08-15, 01:39 AM
آخر رد: مبرمج بلا حدود
  [عنوان معدل] التنقل بين الادوات باستخدام الكيبورد محمد 2 594 10-07-15, 04:47 AM
آخر رد: mohammed moh
  [عنوان معدل] سؤال عن الـ TextBox oussama vb.net 4 603 10-07-15, 04:29 AM
آخر رد: mohammed moh

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم