colorkey镜面唇釉介绍？

一、colorkey镜面唇釉介绍？

colorkey镜面唇釉是colorkey唇釉系列中非常火的一款，上嘴效果也是非常好，主打就是晶莹透彻，水光灵动。目前有14个色号，可以满足大部分女生的要求，其中最受欢迎的色号就是，P701，非常好看的山楂色，非常显白，涂上之后非常的有时髦感。

二、VB窗口自定义外形

'从指定窗口的结构中取得信息

Private Declare Function GetWindowLong Lib user32 _

Alias GetWindowLongA (ByVal hwnd As Long, _

ByVal nIndex As Long) As Long

'在窗口结构中为指定的窗口设置信息

Private Declare Function SetWindowLong Lib user32 _

Alias SetWindowLongA (ByVal hwnd As Long, _

ByVal nIndex As Long, _

ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib user32 _

(ByVal hwnd As Long, _

ByVal crKey As Long, _

ByVal bAlpha As Byte, _

ByVal dwFlags As Long) As Long

'其中 _

hwnd是透明窗体的句柄， _

crKey为颜色值， _

bAlpha是透明度，取值范围是[0,255]， _

dwFlags是透明方式，可以取两个值： _

当取值为LWA_ALPHA时，crKey参数无效，bAlpha参数有效； _

当取值为LWA_COLORKEY时，bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明 _

－－这个功能很有用：我们不必再为建立不规则形状的窗体而调用一大堆区域分析、创建、合并函数了， _

只需指定透明处的颜色值即可，哈哈哈哈！请看具体代码。

Private Const WS_EX_LAYERED = &H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = &H2

Private Const LWA_COLORKEY = &H1

Private Sub Form_Load()

Dim rtn As Long

rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE)

rtn = rtn Or WS_EX_LAYERED

SetWindowLong Me.hwnd, GWL_EXSTYLE, rtn

SetLayeredWindowAttributes Me.hwnd, RGB(255, 0, 255), 220, LWA_ALPHA Or LWA_COLORKEY

End Sub

三、圣罗兰镜面唇釉202适不适合素颜

我用的ysl唇釉确实不沾杯啊

四、Mr.得到什么 这感情就算再激烈 叫什么名

唔系Mr. 葛，系 kolor 葛 明信片！