VB 关于PictureBox库?类?的问题2
发布网友
发布时间:2023-10-07 10:40
我来回答
共4个回答
热心网友
时间:2024-10-25 08:20
'使用 StdPicture 对象
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Sub Command1_Click()
Dim aPic As StdPicture
Dim hMemDc As Long
Dim holdbmp As Long
Set aPic = LoadPicture(App.Path & "\123.bmp")
hMemDc = CreateCompatibleDC(0)
holdbmp = SelectObject(hMemDc, aPic.Handle)
'AlphaBlend 放在这里
'hMemDc 是 aPic 的 hdc
SelectObject hMemDc, holdbmp
Set aPic = Nothing
End Sub
热心网友
时间:2024-10-25 08:20
这个很简单,不需要 API,
VB 如何将图片保存到变量里中:
http://user.qzone.qq.com/32063270/blog/1242228184
热心网友
时间:2024-10-25 08:21
假设你画的PictureBox的名字叫picture1,那么,这样用:
Dim pic As PictureBox
set pic=picture1
pic.picture=LoadPicture(App.Path & "\123.bmp")
热心网友
时间:2024-10-25 08:21
兄台,貌似声明的时候应该是
Dim pic as Picture 不是 Dim pic As PictureBox