API BitBlt()如何绘制到StdPicture对象

唐诗三百首 2012-11-29 11:08:19

求现成可用的代码,

MSDN的帮助文档,API函数参数说明就别贴了.

...全文

111 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

东方之珠 2012-11-29

打赏
举报

既然用了StdPicture，就可以不用bitblt:

Option Explicit

Public Sub SetPic(Pic As StdPicture, Picture1 As PictureBox)
    On Error GoTo eRR
    Picture1.Picture = LoadPicture()
    Picture1.PaintPicture Pic, 0, 0, Picture1.Width, Picture1.Height
    Exit Sub
eRR:
    MsgBox eRR.Number & "错误的图像文件！" & eRR.Description, vbCritical, "错误提示"
End Sub

Private Sub Command1_Click()
    Me.Picture = LoadPicture("C:\图片加上艺术字.bmp")
    SetPic Me.Picture, Picture1
End Sub

贝隆 2012-11-29

打赏
举报

引用 1 楼 chenjl1031 的回复:

既然用了StdPicture，就可以不用bitblt: Visual Basic code? 123456789101112131415 Option Explicit Public Sub SetPic(Pic As StdPicture, Picture1 As PictureBox) On Error GoTo eRR Picture1.Pi……