为什么记事本窗口不能透明处理

[yunlovejia]

        Dim sysFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.System)
        Dim pInfo As New ProcessStartInfo()

        pInfo.FileName = IO.Path.Combine(sysFolder, "Notepad.exe")
        If Not IO.File.Exists(pInfo.FileName) Then
            MsgBox("找不到‘" & pInfo.FileName & "’文件！", MsgBoxStyle.OkOnly)
            Exit Sub
        End If

        Dim p As Process = Process.Start(pInfo) '运行该文件
        p.WaitForInputIdle() '等待程序装载完成

        SetWindowPos(p.MainWindowHandle.ToInt32, -1, 0, 0, 0, 0, 3) '窗口最前


        Dim preStyle As Long = GetWindowLong(p.MainWindowHandle, GWL_EXSTYLE)   '取得当前窗口属性 
        SetWindowLong(p.MainWindowHandle, GWL_EXSTYLE, preStyle And WS_EX_LAYERED)   '加上一个透明属性 

        On Error Resume Next
        SetLayeredWindowAttributes(p.MainWindowHandle, 0, 100, LWA_ALPHA)
        p.WaitForExit()  '等待进行程退出

上以代码运行后，记事本没有透明效果。
求高手指点一下。

[兔子-顾问]

try

preStyle or WS_EX_LAYERED

[dylike]

GWL_EXSTYLE, preStyle or &80

[yunlovejia]

SetWindowLong(p.MainWindowHandle, GWL_EXSTYLE, preStyle Or &H80)
SetWindowLong(p.MainWindowHandle, GWL_EXSTYLE, preStyle Or WS_EX_LAYERED)
两个都没有效果。

[JOCKTO]

我也想试试。。。

[subMain]

Mark

[舉杯邀明月]

命题就是错误的，哪来的答案…………


我用 VB6 试了，完全没问题。
看了楼主的代码，我倒觉得有点怪：

为什么 SetWindowPos() 时，窗体句柄用的是 p.MainWindowHandle.ToInt32
而后面的几个 API 中，窗体句柄却是 p.MainWindowHandle 呢？
你在调用 GetWindowLong() 时，怎么不检查是否执行成功呢？

还有一个明显的逻辑错误就是：‘加上一个透明属性’，肯定是用 Or 而不是用 And 啊。