شرح كيف نعمل عنوان متحرك لمشروعنا في الفيجوال

Admin المساهمات : 81 تاريخ التسجيل : 06/03/2011

نقوم بفتح مشروع جديد ~ ونقوم باضافة Modules ونقوم باضافة Class

اول شـي نقوم بكتابة هذا الكود في التصرحيات العامه [ الجنرآل ]

اقتباس:

Option Explicit
Dim blBlink As Class1

وهذا الكود في الفورم في الحدث form_activate

اقتباس:

blBlink.scScrollMe "أسم المشروع هنا", "200"

وهذا الكود في الفورم في الحدث Form_KeyPress(KeyAscii As Integer

اقتباس:

End
KeyAscii = 0

وهذا الكود في الحدث Form_Load

اقتباس:

Set blBlink = New Class1

تمام بعد كتابة هذه الاكواد وصارت مثل مافي الصوره

الان انتهينا من كتابة الاكواد في الفورم وفي جميع احداثه ألان ننتقل الى مرحلة اضافة الـ Modules واضافة Class نقـوم بالنقر من شريط الادوات على project

اول نقوم بادراج الـ Modules كما في الصورهـ

ثانيا نقوم بارداج آلـ Class كما في الصـورهـ

بعد اضـآفتها نقـوم بالنقر علىModules نقرتان ونضع فيه هذه الكود

اقتباس:

Public Declare Function GetTickCount _
Lib "kernel32" () As Long

الان نفس الطريقه ننقر على Class نقرتان ونضع فيه هذه الكود

اقتباس:

Public Function scScrollMe(scMessage$, scWantedTime%)
On Error Resume Next
Dim scFirst&, scCompare&, scTemp$, scCount%, u$
u = scMessage
Form1.Caption = scMessage
Do
scCount = scCount + 1
DoEvents
scFirst = GetTickCount
Do Until (GetTickCount - scFirst) >= scWantedTime
DoEvents
Loop
scMessage = Right(scMessage, Len(scMessage) - 1)
scTemp = scMessage
If scTemp = "" Then
scMessage = Space(2) & u
scTemp = Space(2) & scMessage
scCount = 0
End If
scTemp = scTemp & Space(3) & Left(u, scCount)
Form1.Caption = scTemp
DoEvents
Loop
End Function

والان نقوم بتشغيل البرنامج