جعل البرنامج دوما في المقدمة

السلام عليكم

لمعرفة اسم المستخدم

Private Declare Function GetUserName Lib advapi32.dll Alias GetUserNameA (ByVal lpBuffer As String nSize As Long) As Long

Private Sub Form_Load()
Dim N
Dim UserN As String
UserN Space(144)
N GetUserName(UserN 144)
label1.caption= UserN
End Sub

اقتبستها من كود الاخ ابراهيم الطيب

لجعل الكتابة على الفورم لا تُمسح: من خصائص الفورم اجعل AutoRedraw=true

السلام عليكم ورحمة الله وبركاته

هذه الاداة تغنيك عن كتابة الكثير من الاكواد فهى تخبرك بمساحة الدرايف والمساحة الخالية واسم المستخدم واسم الكمبيوتر و........

Fullsysi.rar

احب اشكر الاخ hishamnasr على تواصله :

وبالنسبة للكود مااشتغل معاي.... :(

ألف شكر للأخ GHOST2010 .

والاداة شغالة 100%.

ويعطيك الف عافية على الرد...

لجعل النافذة في المقدمة :

Private Declare Sub 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)
Private Sub Form_Load()
    Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
    SetWindowPos Form1.hwnd, -1, 0, 0, 0, 0, 3
End Sub

وهذا كود آخر :

'===================================================
'Sub: StayOnTop
'Description: Keeps a form on top
'Where to place code: Module, place "StayOnTop Me" in the form's Resize event
'Notes: Set frm to the form to keep on top
'       To use, put "StayOnTop Me" in the form's Resize event
'
'http://www.littleguru.com
'==================================================

Public 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)

Const HWND_TOPMOST = -1
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2

Public Sub StayOnTop(frm As Form)
  SetWindowPos frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

وهذا كود ثالث أيضا للفائدة :

'-------------------------------------------------------------------
'Author: Dan Pupius
'email : DanP600@aol.com
'web   : http://users.aol.com/danp600
'Posted:11/15/97
'
'How to make a form stay 'on top' of all other windows..
'This version has been tested with VB4-32
'-------------------------------------------------------------------
'Here's a cool little API function for VB4 on Win 32s.
'It basically allows a window to "Always be on top"

This goes in the declarations section of a module

Global Const SWP_NOMOVE = 2
Global Const SWP_NOSIZE = 1
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2
Global Const FLOAT = 1, SINK = 0

Public Declare Sub 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)

This is a sub within the module

Sub FloatWindow(X As Integer, action As Integer)

' When called by a form:
'
' If action <> 0 makes the form float (always on top)
' If action = 0 "unfloats" the window.
'

Dim wFlags As Integer, result As Integer
wFlags = SWP_NOMOVE Or SWP_NOSIZE

If action <> 0 Then     ' Float
    Call SetWindowPos(X, HWND_TOPMOST, 0, 0, 0, 0, wFlags)
Else                    ' Sink
    Call SetWindowPos(X, HWND_NOTOPMOST, 0, 0, 0, 0, wFlags)
End If

End Sub

تحياتي

الف شكر لك يا النبهاني على ردك الحلو

ثلاث اكواد مرة وحده ماشاء الله عليك

ويعطيك الف عافية

وتحياتي لك .....

هذه أداة تساعدك بأن تجعل الفورم فوق كل النوافذ

MeControl1.BeOnTop

وأيضاً إلغاء تفعيل زر الأغلاق .

MeControl1.DesEableExit

وأيضاً تنشأ اختصار لبرنامج على سطح المكتب

MeControl1.DesktopShortCut

وأيضاً تقوم بتحريك نص الـ Caption للفورم

MeControl1.MoveFormCaption

واشياء أخرى رائعة .

Me Control v1[1].0.ocx.zip

اشكرك جدا على هذه الاداة الرائعة يا COMFORT

جربتها واشتغلت معاي 100%.

تحياتي

السلام عليكم و رحمة الله

الحمد لله تم الحصول علي المشاكل :)

و اتمني لاحقاً ان يكون العنوان دالاً علي محتواه و أن لا نكتب اكثر من سؤال في مشاركة و احدة ,,,,

فقط للتذكير :)