VB无所不能之四：制作透明和半透明窗体
VB无所不能之四：制作透明和半透明窗体
——作者：钟声
我们经常可以看到这样的窗体，觉得很炫，如图所示：
同样，对Windows系统方面的编程似乎首先想到的绝对不是VB，而大部分程序员想到的一定是VC。
其实，VB对于这个实现非常方便且简单，用到了“user32”中的SetLayeredWindowAttributes()函数。
SetLayeredWindowAttributes()函数介绍：
函数声明：
Declare Function SetLayeredWindowAttributes Lib "user32" () Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
hwnd是透明窗体的句柄，
crKey为颜色值，
bAlpha是透明度，取值范围是[0,255]，
dwFlags是透明方式，可以取两个值：当取值为LWA_ALPHA时，crKey参数无效，bAlpha参数有效；
当取值为LWA_COLORKEY时，bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明。
下面我们做两个实验：
第一个：做一个半透明窗体
步骤一：打开VB建立一个窗体Form
步骤二：将窗体背景颜色设为：&HFF0000
步骤三：将下面代码粘贴到程序中：
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" () Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" () Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function SetLayeredWindowAttributes Lib "user32" () 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
Const GWL_EXSTYLE = () Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
Sub Form_Load() Sub Form_Load()
&nb
相关文档：
Option Explicit
'==================================================
' 函数: ReturnSM
'
' 功能: 返回字符串中没个字符的拼音声母第一个字母
'
' 注意: 该函数只能处理3755个常用汉字(B0 - D7)
' 若超出函数的范围将返回常数 ERR_RESULT$
'
' 入口: Str 待处理的字符串
'
Public Function ReturnSM$(ByVal S ......
Asc 函数
返回一个 Integer，代表字符串中首字母的字符代码。
语法:
Asc(string)
必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。
说明:在非 DBCS 系统下，返回值范围为 0 – 255 。在 DBCS 系统下，则为 -32768 &ndas ......
·界面设计必须保持一致
·两个程序之间的特性具备共性
·和windows应用程序的快捷键是一致的
·编程原则
·为窗体赋予统一的外观和行为特性
·如果窗体的大小改变时，它不改变其内容的大小，那么边框就不� ......
上集中只是显示星期几，不够全面，完善后如下：
1、创建lbl1、lbl2、lbl3、txt1、cmd1、Timer1
2、lbl：“输入年月日（如2000-8-16）：”，设置lbl、txt1、cmd1的字体大小和颜色。Timer1的Enable属性设为False，Interval属性设为：1000。
3、双击cmd1，进入代码编辑窗口，敲入：
Private Sub Timer1_Timer()
......
1、关于吉大视频：1-3集讲VB程序设计的概述4-30集讲VB基础知识，如控件的使用31-64集讲ActiveX控件、数据库等的高级编程部分。
看的过程中注意快捷键的使用和截图工具的运用，看视频时将重点作出标注。
2、由CSTR、Cstr（）、string、Instr（）和str（）（此为深度扩展）所想到的关于总结的方法。
&nb ......
