Vista程序窗口打开都是透明的了,怎么办!

你要开启AERO效果

必要的是是你的主题要改成AERO：桌面》个性化》windows颜色和外观（或者主题）

flip 3d：按住windows徽标键+tab键

============================================

首先，你的硬件达到vista开启aero特效的基本要求没有？

另外，驱动什么的装好了吗？

前两者都没问题的话，看看你的系统是什么版本，HB版的是无法开启的

最后，如果不能自动开启，请在计算机》属性里面重新评分，就可以了

我懒，只做了第一道题，借鉴 0871love的透明模块，因为我测试的结果是透明模块只针对form窗体，所以偷梁换柱了一把，能基本满足要求，不过还需要你自己修改。

首先 建一个模块：

'透明效果

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Public Const WS_EX_LAYERED = &H80000

Public Const GWL_EXSTYLE = (-20)

Public Const LWA_ALPHA = &H2

Public Const LWA_COLORKEY = &H1

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

'窗体最前

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Const HWND_TOPMOST = -1

Public Const SWP_NOMOVE = &H2

Public Const SWP_NOSIZE = &H1

第二在form1窗体中，Picture1，Command1，caption属性“打开”，HScroll1，max=255，min=0，value=255,放多一个CommonDialog1控件，还有在程序目录放一张鸟jpg的，自己找。

windowstate是2 最大化，maxbutton属性为false

Dim Alpha As Integer '声明变量

Private Sub Form_Load()

Picture1Picture = LoadPicture(AppPath & "\鸟jpg")

Picture1ZOrder 0

Form2Show

Form2Picture = LoadPicture(AppPath & "\鸟jpg")

End Sub

Private Sub Form_Resize()

Picture1Left = 0

Picture1Top = 0

End Sub

Private Sub Form_Unload(Cancel As Integer)

Unload Form2

End Sub

Private Sub HScroll1_Change()

Alpha = HScroll1Value

SetLayeredWindowAttributes Form2hwnd, 0, Alpha, LWA_ALPHA

End Sub

Private Sub Command1_Click()

SetWindowPos Form2hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

CommonDialog1ShowOpen

Form2Picture = LoadPicture(CommonDialog1FileName)

Form2ZOrder 0

SetWindowPos Form2hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

Dim rtn As Long

rtn = GetWindowLong(Form2hwnd, GWL_EXSTYLE) '：取的窗口原先的样式

rtn = rtn Or WS_EX_LAYERED '：使窗体添加上新的样式WS_EX_LAYERED

SetWindowLong Form2hwnd, GWL_EXSTYLE, rtn '把新的样式赋给窗体

SetLayeredWindowAttributes Form2hwnd, 0, 255, LWA_ALPHA

HScroll1Value = 255

End Sub

第三 增加一个form2,borderstyle设为none，代码如下

Private Sub Form_Resize()

Form2Left = 5

Form2Top = 380

Form2Width = Form1Picture1Width

Form2Height = Form1Picture1Height

End Sub

工具：

win10

方法如下：

1、直接在键盘上点击“win”键和“R”键，启动“运行”程序

2、在“运行”中输入“osk”，点击“确定”

3、这样虚拟键盘就直接d出，可以点击选择“上移”“下移”“淡化”等对于虚拟键盘进行更改

4、还可以直接点击“选项”，更改虚拟键盘的属性

5、这样就可以更方便的使用win10自带的虚拟键盘了

具体方法：1：右键桌面—个性化—窗口颜色（最下面第三个选项）—勾上“启用透明效果”就OK了！

2：右键“计算机”—属性—点击“WIndows体验指数”（如果没有检验过的话要重新检验，大概要5分钟）—点击左边的“调整视觉效果”—打开后勾选“调整为最佳外观”就行了！

PS：如果你的系统是家庭普通版或者是“定制版”（就是电脑公司自己改的，多出现在笔记本上）的话，那么是无法改为半透明的窗口的；家庭普通版右键桌面是没有“个性化”选项的，但是通过升级 *** 作系统的话就可以实现上述功能！而定制版本（又叫内部版本）是无法实现的。

复制的，不喜勿喷！

有和你说的软件类似的软件可以设置开始菜单的透明程度

但如果完全按照你所说的,是没有该软件的

电脑要显示什么,其实是从显存中显示的比如,电脑要显示一个人的图像,那么这个人的图像要先进入显存,然后电脑从显存中读取,这个人就显示出来了

你那次遇到的那次原因是这样的:当你退出CS的时候这时由于刚刚退出CSCS所占的显存并没有从显存中完全释放也就是它还占着一部分显存的位置这时,由于你退出了CS电脑要显示桌面这时所显示的桌面及任务栏等,要先进入显存,然后才能显示出来而由于CS还占有一部分显存所以致使要显示的桌面(包括任务栏)有一部分无法进入显存所以导致所显示出来的桌面并不完整(也就是,你所看到的任务栏透明,其实是任务栏的图像没有进入显存,所以没有显示出来,而任务栏上的图标的图像进入了显存,所以显示了出来)

而一般情况下,当你退出CS时,由于显存释放较好,CS不在占有显存,所以显示的是完整的

所以你看到的那种现象,是显存被占造成的假象到目前为止,是没有软件可以显示出你看到的那种现象只有可以把任务栏设置成普通透明的软件

那是系统或程序出了问题，需要使用一些工具来修复。

答案已发到窗口右上方“我的消息”里，请使用。挺管用的！

完后，效果不好的话，也可考虑系统还原一下（选好还原点）。

-------有人盗用答案 ，无奈只好用这种方式，请理解。

以上就是关于Vista程序窗口打开都是透明的了,怎么办!全部的内容，包括:Vista程序窗口打开都是透明的了,怎么办!、请各位高手提供··两份VB图像透明程序（包括详细过程和代码）！谢谢~~~、win10 透明虚拟键盘要怎么打开等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！