📄 16110.html
字号:
<html>
<head>
<title>Re: 将视窗所覆盖桌面贴到视窗背景</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 将视窗所覆盖桌面贴到视窗背景</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:honey0@tcts1.seed.net.tw">Honey</a> on July 24, 1999 at 23:32:44:<p>
In Reply to: <a href="16095.html">将视窗所覆盖桌面贴到视窗背景</a> posted by hspeed on July 24, 1999 at 15:04:09:<p>
想制作透明表单呀 在form上放一个command1<br>贴上以下程式码 form的AutoRedraw属性要改成true<br>Option Explicit<br>Private Declare Function BitBlt Lib "gdi32" (ByVal _<br>hDestDC As Long, ByVal X As Long, ByVal Y As Long, _<br>ByVal nWidth As Long, ByVal _<br>nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc _<br>As Long, ByVal ySrc As Long, ByVal dwRop As Long) _<br>As Long<br>Private Declare Function ReleaseDC Lib "user32" _<br>(ByVal hWnd As Long, ByVal hDC As Long) As Long<br>Private Declare Function GetDC Lib "user32" (ByVal hWnd _<br>As Long) As Long<br>Private Sub Command1_Click()<br>Dim SCRhDC As Long<br>Dim X As Long, Y As Long<br>Dim X1 As Long, Y1 As Long<br>Me.Hide<br>DoEvents<br>SCRhDC = GetDC(0)<br>X = Me.ScaleWidth \ _<br>Screen.TwipsPerPixelX '/*表单内部宽度单位换成像数*/<br>Y = Me.ScaleHeight \ _<br>Screen.TwipsPerPixelY '/*表单内部高度单位换成像数*/<br>If Me.BorderStyle = 0 Then '/*没有线框*/<br>X1 = Me.Left \ Screen.TwipsPerPixelX<br>Y1 = Me.Top \ Screen.TwipsPerPixelY<br>Else '/*有线框*/<br>X1 = (Me.Width - Me.ScaleWidth) \ 2 \ Screen.TwipsPerPixelX '/*线框宽度*/<br>Y1 = (Me.Height - Me.ScaleHeight) \ Screen.TwipsPerPixelY '/*工具bar高度*/<br>Y1 = Y1 - X1 + Me.Top \ Screen.TwipsPerPixelY<br>X1 = Me.Left \ Screen.TwipsPerPixelX + X1<br>End If<br>BitBlt Me.hDC, 0, 0, _<br>X, Y, SCRhDC, X1, Y1, vbSrcCopy<br>ReleaseDC 0, SCRhDC<br>Me.Show<br>End Sub<br>'以上示范定位的方法<br>'其实就是在程式执行前 将表单隐藏 抓下萤幕的图示<br>'而后现出表单 绘上图示 在表单移动时也得不断的抓取图示<br>但form不能一再隐藏 否则闪烁会很严重 你得将之前抓到的图示存起来<br>一块一块的覆盖上新的部分 不过用VB做 恐怕会闪的很严重 <br>加点DirectX的技术吧
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 16110-->
</ul><!--end: 16110-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -