تقييم الموضوع :
  • 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 , ابو روضة , عبد الهادي بهاب
#3
عاشت ايدك وبارك الله بجهودك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار عن طىثقة عمل شريط ادوات salim0ham 2 389 14-02-22, 12:18 AM
آخر رد: salim0ham
  [سؤال] كيفيه التحكم في شريط التمرير الخاص بالجريد فيو حسن الجلب 1 327 14-01-22, 11:43 PM
آخر رد: asmarsou
  تحريك البكتربوكس kebboud 0 236 03-12-21, 10:11 PM
آخر رد: kebboud
  [سؤال] كود تحريك الفورم من اي نقطه حسن الجلب 1 492 26-08-21, 05:44 PM
آخر رد: asemshahen5
  الرجوع للفورم الرئيسيةعند عدم تحريك الماوس لمدة معينة جيولوجي مبتدئ 7 967 25-07-21, 07:33 PM
آخر رد: ابراهيم ايبو
  المساعدة في انشاء شريط تحميل progress bar MustafaShaker 1 987 08-03-21, 04:14 PM
آخر رد: alsouf
  كيف نحدد طريقة غلق النافذة ؟ mmaalmesry 2 720 10-02-21, 04:10 PM
آخر رد: mmaalmesry
  [VB.NET] شريط التمرير العمودي أم عمر 2 785 20-12-20, 03:03 AM
آخر رد: أم عمر
  اخفاء شريط ادوات مشغل vlc عند تكبير الشاشة ميدو الفنان 6 1,215 10-11-20, 10:12 PM
آخر رد: ميدو الفنان
  [VB.NET] لو سمحت محتاج مساعدة في تنفيذ شريط مهام للمشروع MustafaShaker 2 1,184 15-08-20, 05:59 AM
آخر رد: MustafaShaker

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


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