11-09-17, 07:23 AM
الاساتذه الافاضل السلام عليكم ورحمة الله وبركاته
اريد اسم ورقم تليفون يمر من اول يمين الفورم الى اخر الفورم ثم يبدا من جديد كما فى فى شريط الاخبار
ارجوا لكم كل الخير والتقدم وزادكم الله من فضله
11-09-17, 07:23 AM
11-09-17, 03:38 PM
11-09-17, 05:21 PM
11-09-17, 08:28 PM
12-09-17, 08:18 PM
12-09-17, 08:39 PM
مشاركة لاخواني اقدم اجتهادي
كود :
Dim b(5) As String
Private Sub Form_Load()
Label1.Caption = ""
b(0) = "ÓÚæÏ"
b(1) = "ãÇÖí"
b(2) = "Úáí"
b(3) = "äÇÌÍ"
b(4) = "ÚÇÑÝ"
b(5) = "íÇÓÑ"
For r = 0 To UBound(b)
Label1.Caption = Label1.Caption & b(r) & " * "
Next
End Sub
Private Sub Timer1_Timer()
If Val(Label1.Left) >= Form1.Width Then Label1.Left = 0 - Label1.Width
Label1.Left = Label1.Left + 10
Me.Caption = Label1.Left
End Sub14-09-17, 04:22 AM