Option Explicit Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As LongPrivate Sub Command1_Click() Unload Me End SubPrivate Sub Form_Load() Dim lRgn As Long Me.ScaleMode = 3 lRgn = CreateRectRgn(0, 30, Me.ScaleWidth, Me.ScaleHeight) Call SetWindowRgn(Me.hwnd, lRgn, True) End Sub
图标不太可能吧~~
你可真的是高手 什么问题都能回答别人
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As LongPrivate Sub Command1_Click()
Unload Me
End SubPrivate Sub Form_Load()
Dim lRgn As Long Me.ScaleMode = 3
lRgn = CreateRectRgn(0, 30, Me.ScaleWidth, Me.ScaleHeight)
Call SetWindowRgn(Me.hwnd, lRgn, True)
End Sub
zjmkxy的方法保留,虽然最后没有用上,但是按照方法,样子也非常神似了。
提过方案的大家都有分,来顶的也有分