تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود لجعل برنامجك فوق الجميع ( النوافذ ) .
#1
Smile 
السلام عليكم و رحمة الله و بركاته ..
أقدم لكم الكود الحصري لجعل برنامجك فوق جميع النوافذ ..
كود :
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal X As Long, _
ByVal Y As Long, ByVal CX As Long, ByVal CY As Long, _
ByVal wFlags As Long) As Long
Private Const SWP_NO**** = 2
Private Const SWP_NOSIZE = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

Public Sub SetOnTop(ByVal hwnd As Long, ByVal bSetOnTop As Boolean)
Dim lR As Long
If bSetOnTop Then
lR = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NO**** Or SWP_NOSIZE)
Else
lR = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NO**** Or SWP_NOSIZE)
End If
End Sub

Private Sub Form_Load()
SetOnTop Form1.hwnd, True
End Sub
و السلام عليكم و رحمه الله و بركاته
الرد
#2
ولكن لماذا هذا الكود الطويل بينما يوجد هذا 

كود :
Me.TopMost = True
Smile
Basil Abdallah 

الرد
#3
[b]Basil Abdallah[/b]
أقدر تعليقك .. لكن الكود الخاص بي ميزتة ان المستخدم لا يمكن ان يضغط على أي شئ معدا البرنامج فقط Blush
الرد
تم الشكر بواسطة: Basil Abdallah , حريف برمجة , elgokr
#4
ممكن تستخدم ده 
Me.TopMost = True
الرد
تم الشكر بواسطة: YousefOkasha , elgokr , elgokr
#5
اخي اريد كود يجعل البرنامج الخاص بي يمكن ان يعمل فوق المتصفح كمثال
 عندما اضع  كود  Me.TopMost = True يظهر فوق المتصفح لكن عند الضغط عليه يختفي المتصفح وي يظهر البرنامج علي الديسك توب هل يمكن احد مساعدتني ؟
الرد
تم الشكر بواسطة:



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


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