VB设计程序问题

来源：百度知道 编辑：UC知道 时间：2024/06/27 03:29:05
问下,怎么把窗体背景(注意,只是窗体的背景哦)设置成完全透明,而控件内容不透明
还有就是怎么按下一个按钮就会读取同一目录下的1.txt文件并在text1中显示内容??

'******************************透明窗体函数********************************
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 Sub Form_Load()
'设置透明色为RGB(66, 66, 66),不透明的控件不设置
'如果要控件透明,将控件背景设置为RGB(66, 66, 66)
'其他值也可以,但要和SetLayeredWindowAttributes中的统一
Me.BackColor = RGB(66, 66, 66)
rtn