模块里的声明:
Public 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
窗体里的代码(窗体上有一按钮command1,图片框picture1):希望能实现点击按钮使图像向右移动一次
Private Sub Command1_Click()
With Picture1
hdl = .hDC
L = .Left
h = .Height
w = .Width
T = .Top
End With
ii = BitBlt(hdl, L + 100, T, w - 1, h, hdl, L, h, vbSrcCopy)
End Sub
Public 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
窗体里的代码(窗体上有一按钮command1,图片框picture1):希望能实现点击按钮使图像向右移动一次
Private Sub Command1_Click()
With Picture1
hdl = .hDC
L = .Left
h = .Height
w = .Width
T = .Top
End With
ii = BitBlt(hdl, L + 100, T, w - 1, h, hdl, L, h, vbSrcCopy)
End Sub
解决方案 »
- 拜高手帮忙看下,这个正则表达式为什么不能把所有的<>中的内容去掉?
- 啥也不说,看题
- ★☆java收我用vb+winsock写的数据有问题~收到null,或是关闭winsock后才能收到★☆
- 用DATA控件如何访问带有密码的ACCESS
- 如何获取文件的状态
- 如何让MSGBOX弹出的对话框失去焦点?
- 急急!!VB的!!还有ft232r驱动
- 请问如何批量修改注册表中MSSQL\DB OPEN\hostname的名称
- 请教各位,我用wise installation system(9.01)打包程序生成程序管理组后,为什么反安装不能删除创建的程序组?
- !!!关于匿名邮件程序的问题!!!
- 求:RDO的用法或简单源码,谢谢
- RichTextBox中插入了一图片,怎么知道这个图片在字符串中的第几位?
Dim hdl As Long, h As Long, l As Long, w As Long, t As Long
With Picture1
.ScaleMode = 3
hdl = .hDC
' l = .Left
' h = .Height
' w = .Width
' t = .Top
End With
BitBlt hdl, 10, 0, Picture1.ScaleWidth - 10, Picture1.ScaleHeight, hdl, 0, 0, vbSrcCopy
End Sub
as Integer, twipHt as Integer)
' 该代码假设所有的单位都为缇。如果
' 不是,必须在调用该例程之前,转换为缇。
' 这里也假设图象显示在0,0处。
Dim BorderHt as Integer, BorderWd as Integer
BorderWd = Pic.Width - Pic.ScaleWidth
BorderHt = Pic.Height - Pic.ScaleHeight
pic.Move pic.Left, pic.Top, twipWd + BorderWd, _
twipHt + BorderHt
End Sub
BitBlt
The BitBlt function performs a bit-block transfer of the color data corresponding to a rectangle of pixels from the specified source device context into a destination device context. BOOL BitBlt(
HDC hdcDest, // handle to destination device context
int nXDest, // x-coordinate of destination rectangle's upper-left
// corner
int nYDest, // y-coordinate of destination rectangle's upper-left
// corner
int nWidth, // width of destination rectangle
int nHeight, // height of destination rectangle
HDC hdcSrc, // handle to source device context
int nXSrc, // x-coordinate of source rectangle's upper-left
// corner
int nYSrc, // y-coordinate of source rectangle's upper-left
// corner
DWORD dwRop // raster operation code
);
Parameters
hdcDest
Handle to the destination device context.
nXDest
Specifies the logical x-coordinate of the upper-left corner of the destination rectangle.
nYDest
Specifies the logical y-coordinate of the upper-left corner of the destination rectangle.
nWidth
Specifies the logical width of the source and destination rectangles.
nHeight
Specifies the logical height of the source and the destination rectangles.
hdcSrc
Handle to the source device context.
nXSrc
Specifies the logical x-coordinate of the upper-left corner of the source rectangle.
nYSrc
Specifies the logical y-coordinate of the upper-left corner of the source rectangle.
dwRop
Specifies a raster-operation code. These codes define how the color data for the source rectangle is to be combined with the color data for the destination rectangle to achieve the final color.
The following list shows some common raster operation codes: Value Description
BLACKNESS Fills the destination rectangle using the color associated with index 0 in the physical palette. (This color is black for the default physical palette.)
DSTINVERT Inverts the destination rectangle.
MERGECOPY Merges the colors of the source rectangle with the specified pattern by using the Boolean AND operator.
MERGEPAINT Merges the colors of the inverted source rectangle with the colors of the destination rectangle by using the Boolean OR operator.
NOTSRCCOPY Copies the inverted source rectangle to the destination.
NOTSRCERASE Combines the colors of the source and destination rectangles by using the Boolean OR operator and then inverts the resultant color.
PATCOPY Copies the specified pattern into the destination bitmap.
PATINVERT Combines the colors of the specified pattern with the colors of the destination rectangle by using the Boolean XOR operator.
PATPAINT Combines the colors of the pattern with the colors of the inverted source rectangle by using the Boolean OR operator. The result of this operation is combined with the colors of the destination rectangle by using the Boolean OR operator.
SRCAND Combines the colors of the source and destination rectangles by using the Boolean AND operator.
SRCCOPY Copies the source rectangle directly to the destination rectangle.
SRCERASE Combines the inverted colors of the destination rectangle with the colors of the source rectangle by using the Boolean AND operator.
SRCINVERT Combines the colors of the source and destination rectangles by using the Boolean XOR operator.
SRCPAINT Combines the colors of the source and destination rectangles by using the Boolean OR operator.
WHITENESS Fills the destination rectangle using the color associated with index 1 in the physical palette. (This color is white for the default physical palette.) Return Values
If the function succeeds, the return value is nonzero.If the function fails, the return value is zero. Windows NT: To get extended error information, callGetLastError. Res
If a rotation or shear transformation is in effect in the source device context, BitBlt returns an error. If other transformations exist in the source device context (and a matching transformation is not in effect in the destination device context), the rectangle in the destination device context is stretched, compressed, or rotated as necessary. If the color formats of the source and destination device contexts do not match, the BitBlt function converts the source color format to match the destination format. When an enhanced metafile is being recorded, an error occurs if the source device context identifies an enhanced-metafile device context. Not all devices support the BitBlt function. For more information, see the RC_BITBLT raster capability entry in the GetDeviceCaps function as well as the following functions: MaskBlt, PlgBlt, StretchBlt.
答案是:必须