透明天气预报代码_透明天气时钟最新版下载
1.三星9300怎么把主屏上的天气预报显示弄成透明色
2.什么是QQ空间代码
不知道你说的透明是半透明还是全部透明,提供3个例子给你吧:
半透明窗体(窗体对鼠标点击有反应):
Option Explicit
'Transparancy API's
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function UpdateLayeredWindow Lib "user32" (ByVal hWnd As Long, ByVal hdcDst As Long, pptDst As Any, psize As Any, ByVal hdcSrc As Long, pptSrc As Any, crKey As Long, ByVal pblend As Long, ByVal dwFlags As Long) As Long
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 Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Private Const ULW_COLORKEY = &H1
Private Const ULW_ALPHA = &H2
Private Const ULW_OPAQUE = &H4
Private Const WS_EX_LAYERED = &H80000
Public Function isTransparent(ByVal hWnd As Long) As Boolean
On Error Resume Next
Dim Msg As Long
Msg = GetWindowLong(hWnd, GWL_EXSTYLE)
If (Msg And WS_EX_LAYERED) = WS_EX_LAYERED Then
isTransparent = True
Else
isTransparent = False
End If
If Err Then
isTransparent = False
End If
End Function
Public Function MakeTransparent(ByVal hWnd As Long, ByVal Perc As Integer) As Long
Dim Msg As Long
On Error Resume Next
Perc = 100
If Perc < 0 Or Perc > 255 Then
MakeTransparent = 1
Else
Msg = GetWindowLong(hWnd, GWL_EXSTYLE)
Msg = Msg Or WS_EX_LAYERED
SetWindowLong hWnd, GWL_EXSTYLE, Msg
SetLayeredWindowAttributes hWnd, 0, Perc, LWA_ALPHA
MakeTransparent = 0
End If
If Err Then
MakeTransparent = 2
End If
End Function
Public Function MakeOpaque(ByVal hWnd As Long) As Long
Dim Msg As Long
On Error Resume Next
Msg = GetWindowLong(hWnd, GWL_EXSTYLE)
Msg = Msg And Not WS_EX_LAYERED
SetWindowLong hWnd, GWL_EXSTYLE, Msg
SetLayeredWindowAttributes hWnd, 0, 0, LWA_ALPHA
MakeOpaque = 0
If Err Then
MakeOpaque = 2
End If
End Function
''窗体加载时
Private Sub Form_Load()
MakeTransparent Me.hWnd, 20
End Sub
半透明窗体(对鼠标点击无反应):
Option Explicit
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
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const WS_EX_TRANSPARENT = &H20&
Private Const LWA_ALPHA = &H2&
'//还有种类似的"窗体" 可以隔着它点击 比如那个窗体是在桌面上,右键点击窗体,就是再右击桌面,好多桌面时钟呀~ 天气预报~什么都那样,这是怎么做的?
'请参考MSDN关于WS_EX_TRANSPARENT扩展样式的示例:
'://support.microsoft/default.aspx?scid=kb;en-us;249341
' --- 代码 ---
Private Sub Form_Load()
Dim lOldStyle As Long
Dim bTrans As Byte ' The level of transparency (0 - 255)
bTrans = 128
lOldStyle = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
SetWindowLong Me.hwnd, GWL_EXSTYLE, lOldStyle Or WS_EX_LAYERED Or WS_EX_TRANSPARENT
SetLayeredWindowAttributes Me.hwnd, 0, bTrans, LWA_ALPHA
End Sub
透明窗体(完全看不见):
Option Explicit
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 GetWindowLong Lib "user32" _
Alias "GetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long) _
As Long
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA As Long = &H2
Private Const WS_EX_LAYERED As Long = &H80000
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hwnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Long, _
ByVal dwFlags As Long) _
As Long
Private Sub Form_Load()
Dim p As Long
p = GetWindowLong(Me.hwnd, GWL_EXSTYLE) '取得当前窗口属性
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, p Or WS_EX_LAYERED)
'加上一个透明属性
Call SetLayeredWindowAttributes(Me.hwnd, 0, 0, LWA_ALPHA)
End Sub
这些代码都是本人平时积累的,经试验可用.
这里还有一个文本框透明的例子,也许对你有用:
Option Explicit
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
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()
Text1.BackColor = vbBlue
Dim rtn As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, vbBlue, 0, LWA_COLORKEY
End Sub
不知这些符不符合你的要求.
三星9300怎么把主屏上的天气预报显示弄成透明色
横S，里面点上两个点。
冻雨：由冰水混合物组成，与温度低于0℃的物体碰撞立即冻结的降水，是初冬或冬末春初时节见到的一种灾害性天气。
冻雨危害
1、公路交通因地面结冰而受阻，交通事故也因此增多。大田结冰，会冻断返青的冬麦，或冻死早春播种的作物幼苗。另外，冻雨还能大面积地破坏幼林、冻伤果树等。
2、冻雨大量冻结积累后能压断电线和电话线，严重的冻雨会把房子压坍，飞机在有过冷水滴的云层中飞行时，机翼、螺旋桨会积水，影响飞机空气动力性能造成失事。
扩展资料：
冻雨的凝聚物叫“雨淞”，它是超冷却的降水碰到温度等于或低于零摄氏度的物体表面时所形成玻璃状的透明或无光泽的表面粗糙的冰覆盖层。
雨淞比其他形式的冰粒坚硬、透明而且密度大（0.85克/立方厘米），和雨淞相似的雾淞密度却只有0.25克/立方厘米。雨淞的结构清晰可辨，表面一般光滑，俗称“树挂”，也叫冰凌、树凝，，我国南方把冻雨叫做"下冰凌"、"天凌"或"牛皮凌"。
雨淞最多的季节，冬季严寒的北方地区以较温暖的春秋季节为多，如长白山天池气象站雨淞最多月份是5月，平均出现5.7天，其次是9月，平均雨淞日3.5天，冬季12月至3月因气温太低没有出现过雨淞。
什么是QQ空间代码
三星I9300自带的天气预报桌面显示插件是不支持透明显示的，手机也无相应选项进行设置。可以通过安装支持透明桌面插件的第三方软件如墨迹天气等来实现该功能，以墨迹天气为例：
1、手机打开浏览器，地址栏输入百度后确定，进入百度后在搜索框输入墨迹天气进行搜素，在搜素结果内选择适合手机的软件版本下载并安装。
2、手机待机界面进入应用程序，点击进入墨迹天气。
3、点击右下角的我，在弹出界面选择皮肤小铺，挑选透明天气皮肤下载安装。
4、返回手机主屏，点按空白处，在弹出菜单内选择添加小部件，再选择合适大小的墨迹天气桌面小部件即可。
QQ空间代码是一种基于HTML标签的格式化代码，用于在QQ空间中插入并展示各种元素，如、音频、、文字等。用户可以通过复制粘贴这些代码来定制个人空间的样式和内容。QQ空间代码可以在QQ空间的“发表内容”或“说说”等编辑框中使用。常见的QQ空间代码有代码、音乐代码、代码、文字格式代码等。
声明：本站所有文章资源内容，如无特殊说明或标注，均为采集网络资源。如若本站内容侵犯了原著者的合法权益，可联系本站删除。
