VB我的桌面反了

下一页 1 2 

　　  

　　开机，Start Window...桌面出现了，天天看着这个单调的桌面会不会觉得无聊。换个桌布，还是没劲。对了，把桌面倒过来瞧瞧？怎么才能倒过来呢？用VB5提供的PaintPicture函数就可以。

　　PaintPicture函数的功能能把指定Picturebox控件上的图片复制到窗体上。

　　paintpicture函数格式如下：

　　object.PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2, opcode

　　object 目的对象，如果省略object，则带有焦点的 Form 对象缺省为 object

　　picture 要绘制到 object 上的图形源,Form 或 PictureBox 必须是 Picture 属性。

　　x1,y1 在指定 object 上绘制 picture 的目标坐标（x－轴和y－轴）

　　width1,height1 表示目标宽度和高度

　　x2,y2 指示 picture 内剪贴区的坐标

　　width2，heigh2 指示 picture 内剪贴区的源高度和源宽度

　　opcode 它用来定义在将 picture 绘制到 object 上时对 picture 执行的位操作 ，可省略。

　　假如我们要复制的图片的长、宽分别为width和height时，将x1设为width，y1为0，width1为－width，height1等于height，其他不变，则复制后图片将左右对调。同理我们可以将图片上下对调或者上下左右都对调。

　　但是要让屏幕翻起来，我们还要解决一个问题。因为PaintPicture函数只能对bmp图进行操作，所以它不能直接对屏幕进行操作。那只好先将屏幕抓下来存成bmp图，再对bmp图进行操作。以下就是源程序，需要一个Picturebox 控件，将AutoRedraw属性设为true,form的borderstyle属性设为none

Option Explicit 　　Private Declare Function GetDC Lib “user32" (ByVal hwnd 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 Declare Function DeleteDC Lib “gdi32" (ByVal hdc As Long) As Long 　　Dim scrndc As Long 　　Const SRCCOPY = ＆HCC0020 　　Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

　　将窗体覆盖在屏幕上

Me.Left = 0 　　Me.Top = 0 　　Me.Height = Screen.Height 　　Me.Width = Screen.Width 　　Select Case KeyCode

原文转自：http://www.ltesting.net