Anasayfa > Kodlar > Visual Basic 6 ile Formu üste çekmek

Visual Basic 6 ile Formu üste çekmek


Formunuzun daima en üstte olmasını sağlayın yada sağlamayın...

Option Explicit
'Formun pozisyonunu ayarlayan api fonksiyonu
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

 

'Sabit değişkenler
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40

Public Sub AlwaysOnTop(frmFormX As Form, bOnTop As Boolean)
'*********************************************************
'Amac   : Formu en üstte tutmak
'Giris  : frmFormX : Form adı
'         bOnTop : Always On Top değeri (True : Form her zaman üstte, False : Form her zaman üstte değil)
'Cikis  : -
'Tarih  : 08.02.2002
'Kisi   : Murat Aras
'*********************************************************

Dim lFlag As Long

'Form her zaman üstte
If bOnTop Then
lFlag = HWND_TOPMOST        'değeri atanıyor
'Form her zaman üstte değil
Else
lFlag = HWND_NOTOPMOST      'değeri atanıyor
End If

'Formun pozisyonu ayarlanıyor
SetWindowPos frmFormX.hwnd, _
lFlag, _
frmFormX.Left / Screen.TwipsPerPixelX, _
frmFormX.Top / Screen.TwipsPerPixelY, _
frmFormX.Width / Screen.TwipsPerPixelX, _
frmFormX.Height / Screen.TwipsPerPixelY, _
SWP_NOACTIVATE Or SWP_SHOWWINDOW

End Sub

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: