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

ليس هناك ما هو جديد في هذا الكود ، كل ما عليك هو معرفة الثوابت الخاصة بألوان الأزار الافتراضية ، ألوان الفورم ، الخطوط ... الخ .



كود :
'Author: Dan McLeran
'Date Created: 08/25/1999

Public Function SetToDefaultSysColors(frm As Form, sErrorMsg As _
String) As Boolean
On Error GoTo ErrSetToDefaultSysColors
Dim cntrl As Control

'init to failure
SetToDefaultSysColors = False

'set form properties
frm.Font = vbWindowText

'set control properties
For Each cntrl In frm.Controls
If (TypeOf cntrl Is ComboBox) Or (TypeOf cntrl Is _
TextBox) Then
cntrl.BackColor = vbWindowBackground
cntrl.Font = vbWindowText
'NOTE: MUST HAVE REFERENCE TO FLEX GRID CONTROL
'FOR THIS TO WORK
ElseIf TypeOf cntrl Is MSHFlexGrid Then
cntrl.CellBackColor = vbWindowBackground
cntrl.CellFontName = vbWindowText
ElseIf TypeOf cntrl Is Label Then
cntrl.Font = vbWindowText
End If
Next cntrl

'indicate success
SetToDefaultSysColors = True

SetToDefaultSysColorsExit:
Exit Function
ErrSetToDefaultSysColors:
SetToDefaultSysColors = False
sErrorMsg = "Error number: " & Err.Number & vbCrLf & "Description: " & _
Err.Description & vbCrLf & "Function - " & modName & _
".SetToDefaultSysColors"
Resume SetToDefaultSysColorsExit
End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف ارسل ايميل دوري من خلال Outlook shalapyx 1 703 03-03-15, 12:38 AM
آخر رد: shalapyx
  مؤثرات جميلة على الفورم علاء الاكرمي 1 1,591 24-11-14, 09:20 PM
آخر رد: ghada abd elnabe
  الحل الأمثل لتغيير حجم الفورم حسب دقة عرض الشاشة ENG.MPROG 9 4,650 01-08-13, 06:20 AM
آخر رد: derbaliammar
  فتج الفورم بطريقة جميله جدا ولد رائع 2 1,465 23-02-13, 09:38 PM
آخر رد: Sajad
  طريقة لجعل الفورم او البرنامج في مقدمة البرامج Ahmad Jawad 0 818 28-10-12, 11:39 AM
آخر رد: Ahmad Jawad
  كود لحصر الماوس داخل الفورم RaggiTech 0 645 17-10-12, 04:40 PM
آخر رد: RaggiTech
  كود لجعل الفورم يتحرك بشكل تدريجي RaggiTech 0 803 17-10-12, 03:44 PM
آخر رد: RaggiTech
  افتح ملفّ الوورد والأكسل والباوربوينت من خلال برنامجك RaggiTech 0 939 17-10-12, 03:41 PM
آخر رد: RaggiTech
  تكبير PictureBox + تلوين الفورم بالوان قوس قزح RaggiTech 0 876 17-10-12, 03:14 PM
آخر رد: RaggiTech
  تحريك الفورم بدون Api RaggiTech 0 444 17-10-12, 02:45 PM
آخر رد: RaggiTech

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


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