急！急！急！！！新颖的窗体界面 在线等啊！！！

Question

一个系统已经完成，可上面嫌界面太传统不够新颖，给了两三个方案都不行。
现要窗体界面新颖，有一定的创新的：
1.窗体界面最好是包括菜单、button等。
2.如果包括图片，请把图片也一起发给我。
3.要有源码哦！
4.最好不要有ocx控件的。
5.一定给分，决不失言。在线等啊！！！Email:[email protected]

Answer 1

可以用ActiveSkin第三方控件。下载地址：http://www.soft163.com/soft/1260.shtml

Answer 2

可以访问www.vbgood.com
www.dapha.net
www.21code.com
www.vbeden.com
www.myvc.net
msdn.microsoft.com和MSDN得到更多的帮助.............
------------------------------------------------------------------
个人专栏：http://www.csdn.net/develop/author/netauthor/lihonggen0/
------------------------------------------------------------------

Answer 3

你看看我给你的界面（已经发到你的邮箱中），应该还可以，没用ocx的，我在邮件中已经说明我是谁了，你要给分的话，就随便给点就是了
有别与一般的界面

Answer 4

to chenyu5188(蓝色情调),watt(瓦特)
有ActiveSkin的注册吗？

Answer 5

to wxy001(后天等) 
我没收到啊!
我很急啊！

Answer 6

'不知道这个是否对你有帮助
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 SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As LongPrivate Const SPI_GETDRAGFULLWINDOWS = 38  '用于拖动窗体不出现线框
Private Const SPI_SETDRAGFULLWINDOWS = 37
Private Const SPIF_SENDWININICHANGE = 2Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1Private Sub Form_Load()
  x = CreateRectRgn(4, 23, 683, 412): '窗体左上右下坐标
  Y = SetWindowRgn(Me.hwnd, x, True)
End Sub
 '拖动窗体
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
  If Button = 1 Then
    Dim ReturnVal As Long
    x = ReleaseCapture()
    Result = SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 1&, ByVal vbNullString, SPIF_SENDWININICHANGE)
    ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
  End If
End Sub

Answer 7

to wxy001(后天等)
怎么邮件中除了几句话外，什么也没有啊？

Answer 8

to wxy001(后天等) 
没有啊？

Answer 9

不可能的，现在有了吧，你把qq告诉我，在q上说，
我把附件也发出去了

Answer 10

to wxy001(后天等)
收到了，我给你回了邮件.