كود لكتابة اى اسم متحرك مكان اسم البرنامج

[قنديل الصياد]

يوضع الكود فى حدث الـ  WorkBook

 

الكود المستخدم

Option Explicit

Private Declare Function GetWindowText Lib "user32.dll" _
Alias "GetWindowTextA" _
(ByVal hwnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long

Private Declare Function SetWindowText Lib "user32" _
Alias "SetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String) As Long

Private Const CAPTION As String = "* منتديات أوفيسنا .. قنديل الصياد *"

Private bStopScrolling As Boolean


Private Sub Workbook_Open()

Application.OnTime _
Now, Me.CodeName & ".ScrollXLCaption"

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)


bStopScrolling = True

End Sub

Private Sub ScrollXLCaption()

Dim i As Long
Dim t As Single

bStopScrolling = False
Do
Do
SetWindowText Application.hwnd, Space(i) + CAPTION
t = Timer
Do
DoEvents
Loop Until Timer - t >= 0.05
i = i + 1
If bStopScrolling Then Exit Sub
DoEvents
Loop Until Not WindowHasCaption(Application.hwnd)
i = 0
Loop

End Sub


Private Function WindowHasCaption(hwnd As Long) As Boolean

Dim sBuffer As String
Dim lRet As Long

sBuffer = Space(256)
lRet = GetWindowText(Application.hwnd, sBuffer, Len(sBuffer))
WindowHasCaption = CBool(Len(Trim(Left(sBuffer, lRet))) > 0)

End Function

مرفق ملف به التطبيق

 

 

شريط متحرك مكان اسم البرنامج.rar

[محمد السيد الشاطر]

جزاك الله خيرا على الفكرة لكن الامر مش واضح عندى

[حمادة عمر]

الاخ الكريم / قنديل الصياد

جزاك الله خيرا

تقبل خالص تحياتي

علي كل مجهوداتك من اجل افادة الاخرين

[حمادة عمر]

جزاك الله خيرا على الفكرة لكن الامر مش واضح عندى

 

الاخ العزيز / محمد السيد الشاطر

بعد اذن الاخ الحبيب / قنديل الصياد المقصود هو شريط الـ  titelbar ان اسم البرنامج يتحرك فيه

باستخدام هذا الكود كما في الصورة التالية

ولكن علي ما اظن ان الكود بهذه الطريقة لن يعمل علي اوفيس 2007 ... سيتم التجربة باذن الله

جزاك الله خيرا

 

 

[الـعيدروس]

اخي قنديل الصياد

كود رائع رائع بارك الله فيك

وفي جهودك الطيبه

 

تحياتي لك

[ريان أحمد]

السلام عليكم

 

كود منتهى الروعة  هل يمكن وصعه في شريط الفورم متحرك

[حمادة باشا]

الأستاذ الفاضل/ قنديل الصياد

السلام عليكم ورحمة الله وبركاته

بالصراحة انا معجب جدا بإضافاتك الجميلة

بارك الله فيك

 

[عبد الحميد شقير]

لم يعمل عندي اوفس 2007..        جزاك االله كل الخير

[قنديل الصياد]

[الفرس]

اخى الحبيب / قنديل الصياد

السلام عليكم ورحمة الله وبركاته

وكل عام وانت بخير

 

عمل رائع جدا .. بارك الله فيك

 

ولانى لاافهم شيئا فى الاكواد اود ان اسأل . ماذا لو اردت تنسيق هذا الاسم ؟

 

فلو تفضلت ان تضيف لى طريقة تنسيق الاسم ( الخط العريض - لون الخط - نوع الخط - ... وهكذا )

[محمد السيد الشاطر]

جزاك الله خيرا عالمنا الغالى الاستاذ حمادة عمر على التوضيح

[الفرس]

الاخوة الافاضل . والاخ / قنديل الصياد   ..  كل عام وانتم بخير

رجاء تلبية هذا الطلب

وهو طريقة تنسيق الاسم فى شريط عنوان البرنامج الذى من عمل الاستاذ / قنديل

 

وتقبلوا تحياتى وتهنئتى بعيد الاضحى المبارك

[۩◊۩ أبو حنين ۩◊۩]

اخى الحبيب / قنديل الصياد

السلام عليكم ورحمة الله وبركاته

وكل عام وانت بخير

 

عمل رائع جدا .. بارك الله فيك

 

 

لم يعمل عندي اوفس 2007..        جزاك االله كل الخير

[الفرس]

الاخ / قنديل الصياد

السلام عليكم

ماذا لو اردت اضافة لوجو او صورة صغيرة فى شريط العنوان ؟

رجاء الافادة