vb简单代码画漂亮窗体.docVIP

Option Explicit 工程名:VB实现漂亮的用户登录界面, 作者:QQ:659354953 来水美树 本人自学VB将近1年之久,小学学历,就因为学历太低,而且 又是一个人自学,所以进步不是很快, 想通这些代码到网上找一些VB爱好者一起学习,讨论, 想和我一起学习的就加我QQ吧! ,小弟我还有好多不懂的要向各位大哥大姐学习呢? 以下代码不是很完善,两个按扭没写完,但是,还是可以操作的 代码提供给VB新手朋友作为参考, 新建工程 直接复制代码到窗体模块下即可,无需手动添加任何控件 Private Type POINTAPI X As Long Y As Long End Type Private Type RECT Top As Long Left As Long Right As Long Bottom As Long End Type Private Enum DrawColorStyle [Top to bottom] = 0 [left to Right] = 1 End Enum Dim C As Boolean Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) Private Declare Function CreatePolygonRgn Lib gdi32 (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long 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 CreateRoundRectRgn Lib gdi32 (ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal X3 As Long, ByVal y3 As Long) As Long Private Declare Function DeleteObject Lib gdi32 (ByVal hObject As Long) As Long Private Declare Function CreateSolidBrush Lib gdi32 (ByVal crColor As Long) As Long Private Declare Function FrameRgn Lib gdi32 (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function ReleaseCapture Lib user32 () As Long Private Declare Function SetCapture Lib user32 (ByVal hwnd As Long) As Long Private Declare Function SetWindowRgn Lib user32 (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Dim WithEvents Picture1 As PictureBox ‘声明窗体 Dim WithEvents Picture2 As PictureBox ‘关闭按扭 Dim WithEvents Picture3 As PictureBox ‘最小化 Dim WithEvents Loading As PictureBox ‘登录按扭 Dim WithEvents