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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار بخصوص تحريك الماوس والضغط dubai.eig 1 138 02-03-19, 11:19 AM
آخر رد: dubai.eig
  [سؤال] شباب ازاي اعمل شريط في فجوال 2010 A12 1 153 07-02-19, 11:23 PM
آخر رد: princelovelorn
  [سؤال] تحريك نص داخل Label Simo1991 3 304 25-10-18, 10:32 AM
آخر رد: fouadhdfouad
  [VB.NET] شريط الادوات الذي يضم أداة الطباعة لا يظهر في الكريستال ريبورت فيوار تناسيم 1 256 19-08-18, 04:21 AM
آخر رد: عابر سبيل 2
  جلب عنوان قناة يوتيوب ابو روضة 7 353 10-08-18, 11:10 AM
آخر رد: ابو روضة
  كيف اصنع شريط تقدم مثل الذي موجود في مشغلات الفيديو معاذ ابراهيم العامري 8 543 22-07-18, 10:23 AM
آخر رد: معاذ العامري
  [VB.NET] كيف اجعل شريط التمرير ف الداتا جريد يتحرك اتوماتيك الي اخر سجل تم اضافته محمد صلاح ابراهيم 2 317 21-07-18, 03:08 PM
آخر رد: elgokr
  شريط اخباري عن المواد في الصفحة الرائيسية القشه 7 462 14-07-18, 01:07 PM
آخر رد: YousefOkasha
  طلب كود قراءه عنوان متصفح كروم lovable22 2 320 01-03-18, 12:03 AM
آخر رد: lovable22
Photo [VB.NET] توسيط عنوان الفورم فارس احمد السيد 8 507 12-02-18, 10:32 PM
آخر رد: فارس احمد السيد

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


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