تقييم الموضوع :
  • 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] اريد كود للكشف عن تغير عنوان الشبكة e-coder 0 6 منذ 2 ساعة مضت
آخر رد: e-coder
  [VB.NET] كيف اجلب عنوان ip كما بالصورة e-coder 5 150 27-08-17, 05:58 AM
آخر رد: أبو نوره
  [VB.NET] كيف يمكننى إخفاء شريط العنوان للform محمد سعيد عبد الظاهر 3 114 13-07-17, 07:16 PM
آخر رد: محمد سعيد عبد الظاهر
  تفعيل اومر البرنامج حتي لو كان في شريط الويندوز lval6402@gmail.com 0 104 10-06-17, 05:45 AM
آخر رد: lval6402@gmail.com
  كيف يمكن تحريك مربعات النص على التقرير السيد الجوهري 3 331 27-01-17, 11:29 PM
آخر رد: السيد الجوهري
  مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) marten363 3 328 27-12-16, 08:20 PM
آخر رد: مساعدة
  شريط تقدم مرتبط بزمن نسخ الملفات atefkhalf2004 1 260 05-12-16, 10:47 PM
آخر رد: adel27
  تحريك العناصر الى كل الاتجاهات bidaya 3 330 23-11-16, 12:48 PM
آخر رد: bahgat okasha
  [سؤال] جعل المستخدم يحدد عنوان اي بي السيرفر الذي عليه قاعدة البيانات thevirus 0 208 04-11-16, 10:38 AM
آخر رد: thevirus
  [سؤال] تحريك الصورة naden 3 317 02-10-16, 01:13 AM
آخر رد: ممدوح

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


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