تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معرفة عنوان النافذة النشطة الآن
#1
كاتب الموضوع : AhmedEssawy

في التصريحات :


كود :
Option Explicit
Private Const LF_FACESIZE = 32
Private Const SPI_GETNONCLIENTMETRICS = 41
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName(1 To LF_FACESIZE) As Byte
End Type
Private Type NONCLIENTMETRICS
cbSize As Long
iBorderWidth As Long
iScrollWidth As Long
iScrollHeight As Long
iCaptionWidth As Long
iCaptionHeight As Long
lfCaptionFont As LOGFONT
iSMCaptionWidth As Long
iSMCaptionHeight As Long
lfSMCaptionFont As LOGFONT
iMenuWidth As Long
iMenuHeight As Long
lfMenuFont As LOGFONT
lfStatusFont As LOGFONT
lfMessageFont As LOGFONT
End Type
Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, ByRef lpvParam As Any, _
ByVal fuWinIni As Long) As Long
في الكود :



كود :
Public Function ActiveTitleBarFontName()
Dim s As String
Dim i As Byte
Dim ncm As NONCLIENTMETRICS
Dim sdfont As StdFont
ncm.cbSize = Len(ncm)

If SystemParametersInfo(41, ncm.cbSize, ncm, 0) Then
s = StrConv(ncm.lfCaptionFont.lfFaceName, vbUnicode)
i = InStr(s, vbNullChar)
If i > 0 Then s = Left(s, i - 1)

End If
ActiveTitleBarFontName = s

End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  دالة معرفة نوع القرص + مثال مرفق !!!!!!!!!! RaggiTech 0 648 17-10-12, 03:27 PM
آخر رد: RaggiTech
  معرفة الاجهزة التي تعمل على الشبكة ping + mac address RaggiTech 0 928 17-10-12, 03:24 PM
آخر رد: RaggiTech
  معرفة الاجهزة التي تعمل على الشبكة ping RaggiTech 0 565 17-10-12, 03:23 PM
آخر رد: RaggiTech
  معرفة المساحة الفارغة في القرص -- Api RaggiTech 0 428 17-10-12, 02:54 PM
آخر رد: RaggiTech
  قراءة عنوان النافذة المفتوحة RaggiTech 0 397 17-10-12, 02:51 PM
آخر رد: RaggiTech
  معرفة لغة العرض الخاصة بنظام التشغيل ويندوز RaggiTech 0 354 17-10-12, 02:24 PM
آخر رد: RaggiTech
  لمعرفة عنوان المجلد MyDocuments RaggiTech 0 310 17-10-12, 02:23 PM
آخر رد: RaggiTech
  لجعل النافذة تضيء (Flash Window) RaggiTech 0 373 17-10-12, 02:20 PM
آخر رد: RaggiTech
  لاستغلالة النافذة About الخاصة بالويندوز في تطبيقاتنا RaggiTech 0 338 17-10-12, 02:19 PM
آخر رد: RaggiTech
  معرفة وعمل Format لرقم هاتف RaggiTech 0 402 17-10-12, 01:09 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم