## **描述** 窗体设置透明，Percent 只接受：0到100的整数、0%到100%、以及介于0到1的小数 ## **语法** Transparent(*[Percent= "50"[, lngHwnd]]*) **该语法中有下列命名参数：** | 参数 | 描述 | | --- | --- | | Percent | 可选的。Variant类型，表示设置的透明度，该参数只接受：0到100之间的数、字符串百分数形式“0%”到“100%”、以及介于0到1的小数，注意：Percent为1不等于100%，如果要全显示只有两种表达方式，即 Transparent 100 或 Transparent "100%" | | lngHwnd | 可选的。Long类型，表示窗口句柄，如果缺省将会使用当前对象的句柄值，即hWnd_ | ## **示例** > **示例1** 说明：设置记事本的透明度。建议先打开记事本，然后再运行下面代码。 ``` Dim w As New clsWindow If w.GetWindowByClassName("Notepad").hWnd <> 0 Then w.Transparent MsgBox "记事本已经设置透明度为50%，即默认值" w.Transparent 0.2 MsgBox "记事本已经设置透明度为20%" w.Transparent "80%" MsgBox "记事本已经设置透明度为80%" w.Transparent 100 MsgBox "记事本已经设置透明度为100%" End If ``` > **示例2** 说明：用spy++查看某个窗口的句柄，得到句柄值例如123456，然后编写下面代码运行。代码旨在说明可以通过句柄对指定窗口设置透明度。 ``` Dim w As New clsWindow MsgBox w.MakeTransparent("60%", 123456) '这里的"60%"直接改成60或0.6都可以 ``` > **示例3** 说明：添加滚动条“HScroll1”，然后随便打开一个txt文件后，运行下面代码，拉动进度条看看记事本窗口的变化。 ``` Private Sub HScroll1_Change() Dim w As New clsWindow If w.GetWindowByClassName("Notepad", 0).hWnd <> 0 Then w.MakeTransparent HScroll1.Value / HScroll1.Max * 100 & "%" Else MsgBox "请先打开一个记事本文件，然后再拉动滚动条，注意观察记事本窗口变化", vbInformation End If End Sub Private Sub HScroll1_Scroll() Call HScroll1_Change End Sub ```