如何在vb下作出winxp的界面

Question

如何在vb下作出winxp的界面
请各位大歌可怜我把

Answer 1

http://dev.csdn.net/article/28/28987.shtm

Answer 2

警告，vb界面在xp下运行会自动变成xp界面，无需更改，例如xpform控件，纯属骗钱自动升级的有form srcolbar当然button checkbox srollbar什么的自己去找，www.21code.com 免费。

Answer 3

21code好象....寒一般xp控件可以自己寫國人的大多數是該了老外的代碼，呵呵

Answer 4

“B:设置子类，拦截处理非客户区消息。”的代码：
http://vbaccelerator.com/home/VB/Code/Controls/Skins/article.asp

Answer 5

很容易啊.
自己画上去就可以了.
最主要设置form的borderstyle=0,然后变成没有边框的窗口,剩下你怎么化都可以.
在这里我提供就窗口xp圆角的函数给你.其他自己去试了.
'函数是API的,nscalewidth=scalewidth,nscaleheight=scaleheight,单位像素.
Private Sub ReTrans()
    Dim Sum As Long
    Dim TempRect As Long    
    Sum = CreateRectRgn(5, 0, nScaleWidth - 5, 1)
    
    
    TempRect = CreateRectRgn(3, 1, nScaleWidth - 3, 2)
    CombineRgn Sum, Sum, TempRect, 2
    DeleteObject TempRect
    
    TempRect = CreateRectRgn(2, 2, nScaleWidth - 2, 3)
    CombineRgn Sum, Sum, TempRect, 2
    DeleteObject TempRect
    
    TempRect = CreateRectRgn(1, 3, nScaleWidth - 1, 4)
    CombineRgn Sum, Sum, TempRect, 2
    DeleteObject TempRect
    
    TempRect = CreateRectRgn(1, 4, nScaleWidth - 1, 5)
    CombineRgn Sum, Sum, TempRect, 2
    DeleteObject TempRect
    
    TempRect = CreateRectRgn(0, 5, nScaleWidth, nScaleHeight)
    CombineRgn Sum, Sum, TempRect, 2
    DeleteObject TempRect
    
    SetWindowRgn mvarGetXpFrm.hwnd, Sum, True   '设置角透明    
    DeleteObject Sum
End Sub
楼上的这个网址提供的这个例子很好.可以去看下.