vb text控件透明
这是text控件透明的模块可是在Text1(i).Enabled=False的情况下无效啊请问一下这个要如何改啊...
这是text控件透明的模块 可是在Text1(i).Enabled = False的情况下无效啊 请问一下这个要如何改啊
展开
2个回答
展开全部
看不清你的代码。想提点个人观点。vb的text不能被设置成透明，api能不能做到不清楚，不过TextBox控件却能做到。添加方法：Microsoft Forms 2.0 Object library中的TextBox1Private Sub Form_Load()
TextBox1.Enabled = False
TextBox1.BackStyle = 0
End Sub
TextBox1.Enabled = False
TextBox1.BackStyle = 0
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
微测检测5.10
2023-05-10 广告
您好！建议咨 深圳市微测检测有限公司，已建立起十余个专业实验室，企业通过微测检测就可以获得一站式的测试与认 证解决方案；(EMC、RF、MFi、BQB、QI、USB、安全、锂电池、快充、汽车电子EMC、汽车手机互 联、语音通话质量），认证遇...
点击进入详情页
本回答由微测检测5.10提供
展开全部
'添加一个text1和command1
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 Command1_Click()
If Text1.BackColor = RGB(255, 255, 255) Then Text1.BackColor = RGB(100, 100, 0) Else: Text1.BackColor = RGB(255, 255, 255)
End Sub
Private Sub Form_Load()
Text1.BackColor = RGB(255, 255, 255)
Me.AutoRedraw = True
Me.BackColor = RGB(255, 255, 255)
SetWindowLong Me.HWnd, GWL_EXSTYLE, GetWindowLong(Me.HWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes Me.HWnd, RGB(100, 100, 0), 0, LWA_COLORKEY
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
