如何用vb做一个透明的textbox框?

2025-02-23 04:21:41

推荐回答（2个）

回答1：

新建工程,1个text1.. 思路就是让text1的BackColor设置为一个不常见的颜色.比如例子中的blue, 然后让blue变成透明..这样就只有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()
Text1.BackColor = vbBlue
Dim rtn As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, vbBlue, 0, LWA_COLORKEY
End Sub

回答2：

vb妮可
我太佩服你了！一个字“帅”。

最新问答

网球王子不二在第几集扭伤脚

猪饲料批发在哪里买，我想要60斤猪用的饲料

MOTO 里程碑2 能刷小米系统么？怎么刷？官网提供的小米手机操作系统MIUI稳定版下载后该怎么用？？？

热血传奇中怎样学习合击？

想知道: 锦州市义县永兴电脑电话

苹果5s刷机之后ID密码忘了停留在激活界面怎么办?

g637高铁途经站点

安装win7后进不了系统直接进入一键还原没法选择

谁有免费在线看电影的网址？？

武汉一浙江湖州有火车吗?