cabok dast
جمعه 21 آذر 1393, 13:00 عصر
چگونه BorderStyle فرم هایی رو که منو به آن ها اضافه کردیم مقدارشون رو -None قرار بدیم ؟
meys34
جمعه 21 آذر 1393, 16:10 عصر
Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_BORDER = &H800000
Private Sub Command1_Click()
SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, GWL_STYLE) And Not WS_BORDER
Me.Width = Me.Width - 20
Me.Width = Me.Width + 20
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.