关于用ＶＢ做更漂亮的窗体的思考

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【关于用ＶＢ做更漂亮的窗体的思考】，下面是详细的分享！

关于用ＶＢ做更漂亮的窗体的思考

首先申明：以下纯属个人观点！

近来ＶＢ版中有一部分人问关于界面的美化问题．其实作为一个菜鸟．我也无法提供很专业的代码给大家．想必大家对如下代码应该很熟悉吧！

以下为引用的内容： Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Const WS_EX_LAYERED=&H80000 Private Const GWL_EXSTYLE=(-20) Private Const LWA_ALPHA=&H2 Private Const LWA_COLORKEY=&H1 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 Any) As Long Private Const WM_NCLBUTTONDOWN=&HA1 Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－Private Sub Form_Load() Me.BackColor=&HFF0000 Dim rtn As Long BorderStyler=0 rtn=GetWindowLong(hwnd, GWL_EXSTYLE) rtn=rtn Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY End Sub －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ReleaseCapture SendMessage Me.hwnd, WM_NCLBUTTONDOWN, 2, 0 End Sub

这是美化窗体的时候很好的办法，比用编程语句描述一个特殊形状的窗体要简单的多，只要选自己合意的图片即可！

我们都知道象ＰＩＣＴＵＲＥＢＯＸ，ＣＯＭＢＯＸ，菜单，等等其实都是窗体．由此可以推出我们可以用替换法将其替换．当然这是我的设想了；毕竟我不是高手．

举个例子：

我想做一个图形化的按纽．那么我们可以用ＩＭＡＧＥ来摸拟.用ＩＭＡＧＥＬＩＳＴ放三张图片用来表示ＭＯＵＳＥ＿ＯＮ，ＭＯＵＳＥ＿ＤＯＷＮ，ＭＯＵＳＥ＿ＵＰ．当然如果你要求高一点可以用ＡＰＩ来弥补其中的不足，使之更完善．

当然象ＣＨＥＣＫＢＯＸ，ＯＰＴＩＯＮＳ用ＩＭＡＧＥ来模拟都足足有余．-------------

只要设一个全局变量为ＢＯＯＬＥＡＮ就行了．它们只要两张图片就够了．自己画还是引用　就随你便了．

好了例子也举完了．总结一下：

我想说的就是其实做界面并不是技术高才能做的．转个圈其实用一些简单的方法也可以解决的．

只要大家敢想什么都会变成现实！
希望我也能抛砖引玉啊，当然前提是老大们能用啊!

以上所分享的是关于关于用ＶＢ做更漂亮的窗体的思考，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：vb的窗体背景图在设计时如何做到窗体与图大小一致?

　　答：窗体上放个image,，默认名称是image1，image1的Strech属性设置为True,然后把image拉成窗体那么大，再设置image1的Picture属性 >>详细

　　相关问题：如何设置VB窗体的背景？而且图片充满整个窗口，求...

　　答：窗体背景图不可以设置，考虑用image控件来做整体背景。 Private Sub Form_Resize() Image1.Stretch = True Image1.Picture = LoadPicture("G:\bj-drive\My Documents\My Pictures\5004224_980x1200_0.jpg") Image1.Move 0, 0, Me.Width, Me.Heig... >>详细

　　相关问题：VB如何制作一个比较好看的打开界面

　　答：新建一个窗体，设成启动对象，把这个窗体的BorderStyle 设成 0-none 好了，先加入你想要显示的图片，做窗体背景 然后用一个timer控件 ，计时 到时间后， form1.show unload me 就是这样的。。。。。 >>详细