آمدن برنامه در کنار صفحه

[alih110]

سلام دوستان شما اگر به آنتی ویروس ها دقت کرده باشید یا نرم افزار های دیگه
یا آنتی ویروس های فلش ها وقتی یک ویروس پیدا می کنن گوشه تصویر از روی تسک بار میان بالا و با هر رزیولیشنی که باشه از اون گوشه میان کسی سورسی داره یا میتونه کمک کنه

نمونه ای هم براتون میزارم در عکس

[saeedvir]

این با توجه به اندازه طول و عرض این کار را انجام می دهد و با هر رزیولیشنی سازگار هست


Private Sub Form_Load()
Me.Height = 3600
Me.Width = 4800
Me.Left = (Screen.Width - Me.Width) / 1.2 + 3150
Me.Top = (Screen.Height - Me.Height) / 1.2 + 1850
End Sub

[REZADG]

اینم امتحان کن

Private Const ABM_GETTASKBARPOS = &H5
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type APPBARDATA
cbSize As Long
hwnd As Long
uCallbackMessage As Long
uEdge As Long
rc As RECT
lParam As Long
End Type
Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long

Private Sub Form_Load()
Dim ABD As APPBARDATA
SHAppBarMessage ABM_GETTASKBARPOS, ABD
Me.Left = Screen.Width - Me.Width
Me.Top = Screen.Height - (Me.Height + ((ABD.rc.Bottom - ABD.rc.Top) * Screen.TwipsPerPixelY))
End Sub