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

الكود منقول من المنتدى القديم .


ضع هذة الشفرة في التصريحات

كود :
Const FLAGS = 3
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Public bOnTop As Boolean
Private Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer
وهذة الشفرة في اجراء(AlwaysOnTop)

كود :
Sub AlwaysOnTop(FormName As Form, bOnTop As Boolean)
Dim res As Integer
If bOnTop = False Then
res% = SetWindowPos(FormName.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Else
res% = SetWindowPos(FormName.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
End If
End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مؤثرات جميلة على الفورم علاء الاكرمي 1 1,583 24-11-14, 09:20 PM
آخر رد: ghada abd elnabe
  الحل الأمثل لتغيير حجم الفورم حسب دقة عرض الشاشة ENG.MPROG 9 4,618 01-08-13, 06:20 AM
آخر رد: derbaliammar
  فتج الفورم بطريقة جميله جدا ولد رائع 2 1,460 23-02-13, 09:38 PM
آخر رد: Sajad
  طريقة لجعل الفورم او البرنامج في مقدمة البرامج Ahmad Jawad 0 817 28-10-12, 11:39 AM
آخر رد: Ahmad Jawad
  كود لحصر الماوس داخل الفورم RaggiTech 0 644 17-10-12, 04:40 PM
آخر رد: RaggiTech
  كود لجعل الفورم يتحرك بشكل تدريجي RaggiTech 0 801 17-10-12, 03:44 PM
آخر رد: RaggiTech
  تكبير PictureBox + تلوين الفورم بالوان قوس قزح RaggiTech 0 875 17-10-12, 03:14 PM
آخر رد: RaggiTech
  لجعل النص يكتب في الأحرف الكبيرة فقط RaggiTech 0 333 17-10-12, 02:53 PM
آخر رد: RaggiTech
  تحريك الفورم بدون Api RaggiTech 0 442 17-10-12, 02:45 PM
آخر رد: RaggiTech
  لجعل النافذة تضيء (Flash Window) RaggiTech 0 373 17-10-12, 02:20 PM
آخر رد: RaggiTech

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


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