如何把易语言程序皮肤做出透明的像Win7

一个是调用skn的一个dll文件“SkinH_ELdll”网上有很多用这个dll写的皮肤模块，你可以找一个这种模块的源码，自己做个比较适合自己用的，还有一个就是自绘了，据他们说很简单，我最近也正在学这个，自绘的窗口很漂亮，呵呵，要是刚入门的话，最好这个和易语言一起学，不要做出功能很强的软件，外观却很烂。。。想想都别扭，当然只是一个比方，一般能写这种软件的，不会连自绘都不会。。

win8开启aero

lite主题的透明效果的方法如下：

1、在桌面上右键点击，选择“个性化”。

2、确保当前主题是windows

8默认的aero主题，然后点击“窗口颜色”。

3、去掉“启用透明效果”前面的对勾。

4、再次在桌面空白处单击鼠标右键选择“个性化”。

5、在“基本和高对比度主题”下面，选择“whindows

基本”。

6、回到第一步中打开的窗口界面，选中“启用透明效果”前面的对勾，然后点击“保存修改”。

7、此时即启用了“aero

lite”效果。

windows

8是微软于北京时间2012年10月25日23点15分推出的最新windows系列系统。windows

8支持个人电脑(x86构架)及平板电脑(x86构架或arm构架)。windows

8大幅改变以往的 *** 作逻辑，提供更佳的屏幕触控支持。

计算机中的透明是指：计算机中存在的，但对于某写开发人员而言又不需要了解的东西，这就是计算机所指的透明性。

在计算机技术中，一种本来是存在的事物或属性，但从某个角度看似乎不存在，称为透明性现象。通常，在计算机系统中，低层次的机器级的概念性结构和功能特性，对高级程序员来说是透明的。

例：编写VC++的程序员，不需要了解加法指令是如何工作的，只要会用就可以拉，那么就说：加法指令对VC++程序员是透明的。

定义

在计算机技术中，一种本来是存在的事物或属性，但从某个角度看似乎不存在，称为透明性现象。通常，在计算机系统中，低层次的机器级的概念性结构和功能特性，对高级程序员来说是透明的。

例子：在QQ聊天中，表面上看QQ1直接与QQ2对话，而实际上是QQ1发送的数据分别通过传输层，网络层，数据链路层，物理层的传输被QQ2接收，QQ实际是与传输层直接对话，然而表面我们把其他各层当作不存在，这就是透明现象。

首先先从SystemWindowsFormsPanel 继承一个自定义控件,然后在控件的构造函数中添加下面的代码 :

SetStyle(ControlStylesUserPaint, true);

SetStyle(ControlStylesSupportsTransparentBackColor, true);

thisBackColor = ColorTransparent;

其中调用SetStyle函数进行设置ControlStylesSupportsTransparentBackColor为true

然后设置控件的背景颜色为透明ColorTransparent

把设计好的控件添加到WINFORM中来,发现自定义控件可以在其他控件上面时可以变成透明,但是如果放在控件上面却没有透明效果,为了这个问题,研究了半天,后来终于发现只需要简单的设置一下控件的parent属性为控件即可代码如下 :

Panel21Parent = pictureBox1;

我懒，只做了第一道题，借鉴 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

计算机中的透明和日常生活中的透明有很大的区别的

计算机中的透明是指:计算机中存在的,但对于某写开发人员而言又不需要了解的东西,这就是计算机所指的透明性简单的说就是:计算机中存在,但你不需要了解的

例:编写VC++的程序员,他不需要了解加法指令是如何工作的,他只要会用就可以拉,那么就说:加法指令对VC++程序员是透明的

360浏览器在任何系统上打开都不是透明的  这是制作软件时没有做透明的边框 所以不是所有的程序在win7上都会有透明的边框

我不是道wow是什么程序  总之你说wow会自动成为透明边框  那就说明他有这个功能  我现在这台机子用xp  一直使用搜狗输入法  昨天无意中下了一个透明的输入法皮肤   这说明程序支持这种功能   而不是说任何程序都会在win7下成为玻璃效果  而xp下也可以有玻璃效果的

以上就是关于如何把易语言程序皮肤做出透明的像Win7全部的内容，包括:如何把易语言程序皮肤做出透明的像Win7、win7 透明主题 透明程序的开启与关闭在哪里打开、什么是透明性概念等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！