怎么让窗体透明,而窗体上的控件不透明

cpio 2004-08-27 04:30:16
谢谢
...全文
194 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
cpio 2004-08-28
  • 打赏
  • 举报
回复


BlueBeer 2004-08-27
  • 打赏
  • 举报
回复
比较笨的办法(不笨的办法没测试成功^_^)

'窗体的 BorderStyle 设为 0 - None
'一个 TextBox,一个 CommandButton
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

Private Sub Form_Load()
Command1.Caption = "裁剪窗体"
End Sub

Private Sub Command1_Click()
Dim ShapeV(3) As POINTAPI
ShapeV(0).X = Text1.Left \ Screen.TwipsPerPixelX
ShapeV(0).Y = Text1.Top \ Screen.TwipsPerPixelY
ShapeV(1).X = ShapeV(0).X + Text1.Width \ Screen.TwipsPerPixelX
ShapeV(1).Y = ShapeV(0).Y
ShapeV(2).X = ShapeV(1).X
ShapeV(2).Y = ShapeV(0).Y + Text1.Height \ Screen.TwipsPerPixelY
ShapeV(3).X = ShapeV(0).X
ShapeV(3).Y = ShapeV(2).Y
SetWindowRgn Me.hwnd, CreatePolygonRgn(ShapeV(0), 4, 1), True
Text1.Text = "输入“exit”退出"
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub

Private Sub Text1_Change()
If Text1.Text = "exit" Then MsgBox "bye bye ~": End
End Sub
BlueBeer 2004-08-27
  • 打赏
  • 举报
回复
异型窗体
guolibin 2004-08-27
  • 打赏
  • 举报
回复
去找一些皮肤控件吧

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧