【提问】：如何截取一个背景到一个全屏的窗体中

Purview 2005-10-30 05:48:36

我的大概想法是
1.在窗体创建时就截取背景
2.在窗体完全加载完后将背景在窗体内显示出来

可是，我怎么搞也不成功！唉！～·

大家帮帮我呀！

...全文

195 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

LEOlws 2005-11-05

打赏
举报

感觉都不怎么样!

hxy2003 2005-11-01

打赏
举报

孙小雄 2005-10-30

打赏
举报

更正以下o 上面是截取窗体的

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Sub Form_DblClick()
End
End Sub
Private Sub Form_Load()
lHdc = GetWindowDC(0)
Me.ScaleMode = 0
BM = CreateCompatibleBitmap(lHdc, Me.Width, Me.Height)
SelectObject lHdc, BM
Me.AutoRedraw = True
Me.Cls
BitBlt Me.hdc, 0, 0, Me.Width, Me.Height, lHdc, 0, 0, vbSrcCopy
Me.WindowState = 2
End Sub

孙小雄 2005-10-30

打赏
举报

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Sub Form_DblClick()
End
End Sub
Private Sub Form_Load()
lHwnd = GetForegroundWindow()
lHdc = GetWindowDC(lHwnd)
Me.ScaleMode = 0
BM = CreateCompatibleBitmap(lHdc, Me.Width, Me.Height)
SelectObject lHdc, BM
Me.AutoRedraw = True
Me.Cls
BitBlt Me.hdc, -4, -4, Me.Width, Me.Height, lHdc, 0, 0, vbSrcCopy
Me.WindowState = 2
End Sub

northwolves 2005-10-30

打赏
举报

这种方法在窗体第一次启动的时候不起作用，只有在第二次启动时，才会把图片加载到FORM
----------------------------------------------------------------------------------
没发现你说的现象,这样稍改一下试试:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_SNAPSHOT As Byte = &H2C

Private Sub Form_Activate()
Me.WindowState = 2
Me.Picture = Clipboard.GetData(vbCFBitmap)
End Sub

Private Sub Form_Initialize()
Me.AutoRedraw = True
Me.Move Screen.Width / 2 - 250, Screen.Height / 2 - 100, 500, 200
keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub

Purview 2005-10-30

打赏
举报

TO: northwolves(狼行天下)
这种方法在窗体第一次启动的时候不起作用，只有在第二次启动时，才会把图片加载到FORM

或者是你随便找一个地方Ctrl+C一下，也是不能实现将背景在窗体内显示出来的效果

northwolves 2005-10-30

打赏
举报

窗口事件的发生顺序
1st Form_Initialize
2nd Form_Load
3rd Form_Resize
4th Form_Activate
5th Form_GotFocus
6th Form_Paint
7th Form_Unload
8th Form_Terminate

northwolves 2005-10-30

打赏
举报

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_SNAPSHOT As Byte = &H2C
Private Sub Form_Initialize()
Me.Move 0, 0, 500, 200
keybd_event VK_SNAPSHOT, 1, 0, 0
Me.AutoRedraw = True
End Sub

Private Sub Form_Load()
Me.WindowState = 2
End Sub

Private Sub Form_Resize()
Me.Picture = Clipboard.GetData(vbCFBitmap)
End Sub

今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6：VBA请教怎

窗体顶端给FLASH初学者的10点制作经验1、创建任何一个动画前，首先要有一个大概的轮廓，既知道自己要作什么。2、画图是最最基本的基本功，图画的不好的画基本上是作不出好的动画出来的，采用别人的东西拼出来的动画，永远也不会用自己的灵魂的。闪客高手们哪个都是画画的高手。3 、制作动画时，应该及时的做好分类工作，静态的图形将其转化为图形符号要作按钮用的将其作为按钮符号，小的动画片段将其转化为影片符号。4、随时适合的用好常见的技巧，如遮罩效果引导线的使用，必要时结合使用。将导入的位图运用FLASH自

如何加载一个SWF文件并控制其位置等相应属性……新建一个空地MC，将它放在主场景中，实体名改为OK，写AS： loadMovie("test.swf", "_root.ok"); 控制这个MC的位置，大小等相对属性（Property）就会影响调入SWF的位置和大小。 setProperty ("mc", _xscale, "****"); setProperty ("mc", _yscal

JS语法字典---网友总结 1.document.write(""); 输出语句 2.JS中的注释为// 3.传统的HTML文档顺序是:document->html->(head,body) 4.一个浏览器窗口中的DOM顺序是:window->(navigator,screen,history,location,document) 5.得到表单中元素的名称和值:document...

为什么要记录坑呢? 为了更好的再次相遇