关于条码打印的问题

[love109125]

急,关于条码打印
各位大哥,大虾你们好:
这几天我在做一个关于条码打印的程序,在网上找了一段代码不知道它的参数是什么,知道的告诉我一声.代码如下
Sub GetObjImage1(Obj As Object, OwnerForm As PictureBox, Picture1 As PictureBox)
'hDC
Dim hWndDesk As Long
Dim hDCDesk As Long
'区域表达变量
Dim x As Long
Dim y As Long
Dim w As Long
Dim h As Long

x = Obj.Left * Screen.TwipsPerPixelX
y = Obj.Top * Screen.TwipsPerPixelY
w = Obj.Width * Screen.TwipsPerPixelX
h = Obj.Height * Screen.TwipsPerPixelY
hDCDesk = OwnerForm.hdc
'取出图像
Call BitBlt(Picture1.hdc, 0, 0, w, h, hDCDesk, x, y, vbSrcCopy)
Call ReleaseDC(hWndDesk, hDCDesk)
End Sub

[junki]

不知道类型的可以使用object,any,variant代替

[love109125]

谢谢

[knowledge_Is_Life]

等待牛人来答.

[meiZiNick]

不知,帮顶