اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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..        جزاك االله كل الخير

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information