Question

怎样设置vb窗体界面，美化，比如圆形

我也下载过一些控件，skinactive等，都不太会用，请高手指点！！不胜感激！！

若以下回答无法解决问题，邀请你更新回答

Answer 1

Option Explicit

Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) 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 SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Form_Load()
Dim Rec As RECT, hRgn As Long
GetWindowRect Me.hWnd, Rec
hRgn = CreateRoundRectRgn(0, 0, Rec.Right - Rec.Left, Rec.Bottom - Rec.Top, 400, 400) '400,400 圆角的宽和高
SetWindowRgn Me.hWnd, hRgn, True
End Sub