拖动没有标题栏的窗体程序(vb6.0源代码编写)在没有标题栏的窗体情况下,通过代码控制, 用鼠标可以拖动 Dim r As Long Dim i If Button = 1 Then i = ReleaseCapture() r = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) End If
生成椭圆形窗体程序(vb6.0源代码编写) '函数声明 Private Declare Function CreateEllipticRgn 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 hRg