اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

يوضع الكود فى حدث الـ  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 ... سيتم التجربة باذن الله

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

 

 

bcObS.jpg

رابط هذا التعليق
شارك

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

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

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

 

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

 

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

 

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

رابط هذا التعليق
شارك

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

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

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

 

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

رابط هذا التعليق
شارك

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

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

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

 

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

 

 

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information