软件初始化界面的设计[4种实例演示]

作者：弈宇风尘　MSN:kevinphj@hotmail.com  时间：2006.6.23
　　原始地址：
　　http://bbs.hackbase.com/viewthread-2965330-1.html
　　一个好的软件，除了在功能上满足用户要求，在界面的设计上也
十分的重要．然而，软件的初始化，则是软件的第一关．如何做
得更好，更完美，则成了设计人员的难题．（注：大型软件制作，
有专业美工）．
　　就偶而言，偶的平面设计和动画的水平不高，做不出精美的图像．
摆在面前的难题就是如何提高界面的美观呐？我在做了几个项目
后发现利用API函数是一个很好的方法．所以今天把我的经验与大
家一起分享．
API函数的用法，一般在大学的课程中都不讲解（据我所知）．

(一)先讲一下VB的初始化界面设计：
VB是以Basic语言作为其基本语言的一种可视化编程工具，
由于VB不具备跨平台，所以也决定了VB在未来的软件开发中将会逐
渐地退出编程的舞台．
我在做软件初始化时，采用了SetLayeredWindowAttributes，
GetWindowLong，SetWindowLong等几个简单的函数．
其实，API函数N多，不用去记，用几种方式可以查阅：
1.在安装VB后，vb6.0中文工具－API文本浏览器，即可以查阅相应
　的API函数．
2.买一本API编程手册，随时查阅．
3.可以使用winAPI的电子书(我的珍藏)，免费送大家．
  附件1下载．
代码：
Option Explicit
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 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 Sub Form_Load()
    Dim rtn As Long
    rem:取的窗口原先的样式．
    rtn = GetWindowLong(Me.hwnd, -20)
　　rem:使窗体添加上新的样式．
    rtn = rtn Or 524288
    rem:把新的样式赋给窗体．
    SetWindowLong Me.hwnd, -20, rtn
    rem:下面的参数可以自己修改．
    SetLayeredWindowAttributes Me.hwnd, 0, 200, 2
End Sub
图片：

 

 

 

 

 

下载：
    附件2有下载源码．
(二)利用第三方控件:
    如：flash控件，gif控件
    附件3和附件4下载．
(三)Delphi初始化设计
　 是Borland 公司的产品，自然继承了该公司一贯以来的优良传统：
    代码执行效率高。（Delphi 7.0）
    简单界面：

  　附件5下载.
(四)VC++初始化界面
　 基于MFC库的可视化开发工具，开发的软件的首选工具．(VC++6.0).
    文章及地址：
    http://bbs.hackbase.com/viewthread-2963773-1.html