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