杭州交通信息网教父文森特:关于vb窗体的问题~！
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/19 22:50:38
求一个让vb窗体四角的边都呈弧形的原代码，成功后高分答谢，各位大虾帮帮忙~！
你可以这样的来解决你的问题：
使用vb的api函数：
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 Sub Command2_Click()
Dim lRgn As Long
lRgn = CreateRoundRectRgn(0, 0, 200, 200, 30, 30)
SetWindowRgn Me.hWnd, lRgn, True
End Sub
你可以把command2点击的事件更换成form——load事件即可！
有蛮多控件啊 。。。你在网上下了 直接拖到用啊