<原创>VB 图形界面的使用
这个是用一张图片来做成窗体
首先我们要做一张去了背景的图片,一般是GIF和ICO格式,用PS做就行了.
新建个窗体,然后把要做窗体的图片设置为窗体的背景图片.
然后新建一个模块.模块中输入如下的API函数:
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, _
ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
'注释: 具体可以使用的常量及其用法
Public Const LWA_ALPHA = &H2 '注释：表示把窗体设置成半透明样式
Public Const LWA_COLORKEY = &H1 '注释：表示不显示窗体中的透明色
Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = (-20)
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As _
Long, ByVal dwNewLong As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal VKey As Long) As Integer
Public Const WM_StrText = &HC '发送文本
Public Const MK_Lbutton = &H1
Public Const WM_LbuttonDown = &H201
Public Const WM_LbuttonUp = &H202
Public Const WM_LbuttonDblclk = &H203
Public Declare Function SetWindowPos& Lib "user32" (ByVal hwnd&, ByVal hWndInsertAfter&, ByVal X&, ByVal Y&, ByVal cx&, ByVal cy&, ByVal wFlags&)
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
' 将窗口置于列表顶部，并位于任何最顶部窗口的前面
Private Const SWP_NOSIZE& = &H1
' 保持窗口大小
Private Const SWP_NOMOVE& = &H2
Public Function FormStyles(Yhwnd As Long, Value As Long, Styles As Long)
rtn = GetWindowLong(Yhwnd, GWL_EXSTYLE) ' 注释：取的窗口原先的样式
rtn = rtn Or WS_EX_LAYERED '注释：使窗体添加上新的样式WS_EX_LAYERED
SetWindowLong Yhwnd, GWL_EXSTYLE, rtn '注释：把新的样式赋给窗体
If Styles = 2 Then SetLayeredWindowAttributes Yhwnd, 0, CInt(Value), LWA_ALPHA
If Styles = 1 Then SetLayeredWindowAttributes Yhwnd, Value, 0, LWA_COLORKEY
End Function
'移动窗体
Public Function MoveForm(Yhwnd As Long)
ReleaseCapture
SendMessage Yhwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Function
'前置窗体
Public Function FrontForm(Yhwnd As Long, Styles As Boolean)
If Styles Then
Call SetWindowPos(Yhwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE& Or SWP_NOMOVE&)
Else
Call SetWindowPos(Yhwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE& Or SWP_NOMOVE&)
End If
End Function
在窗体中输入如下代码:
Private Sub Form_Load()
FormStyles Me.hwnd, &H8080FF ,1 '这个是用来调用上面那个API函数的.注意后面这个十六进制的数是窗体的背景色,如果
End Sub '这里改了的话,背景色也要相应的修改.这样运行就可以了.
附件: 您所在的用户组无法下载或查看附件
