一个很难的问题。很急! 我要用VB程序对一幅保存在D:\tp.bmp中的特定区域写几个字,不知怎么处理,请高手参与,急! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用水影啊,给你一个dll的事例http://www.wave12.com/dll_wsImage.asp Private Sub Form_Load() Dim p As IPictureDisp Set p = LoadPicture("D:\tp.bmp") Me.Move 0, 0, p.Width, p.Height Picture1.Move 0, 0, p.Width, p.Height Picture1.AutoRedraw = True Picture1.Picture = p Picture1.CurrentX = 1000 Picture1.CurrentY = 1000 Picture1.Print "New text" SavePicture Picture1.Image, "D:\tp.bmp"End Sub 这个不错的!可以生成立体文字这是一个类似3DText的纹理文字图制作器,支持中文!http://www.21code.com/codebase/?pos=down&id=1869 如何 读出 excel 表里的 数值? ?????加急!在VB中怎样使用SNMP协议????? 如何在vb中做一个类似qq的下拉分类按钮.是用什么控件实现的 VB版块专家分超过20000,标记一下 在读取文件进行数据库操作时,用line input按行读的。读到某行就报错 [求助]模式对话框怎么做? 怎样隐藏一映射的驱动器(假设为z:) 怎样获得 Image 的 LoadPicture(),中的那个pic 的路径? VB中的winsock控件里能不能建立两个端口连接? 在VB中,如何获取VC++中的消息? 如何写入空值的二进制值? 求救````高手请进
http://www.wave12.com/dll_wsImage.asp
Dim p As IPictureDisp
Set p = LoadPicture("D:\tp.bmp")
Me.Move 0, 0, p.Width, p.Height
Picture1.Move 0, 0, p.Width, p.Height
Picture1.AutoRedraw = True
Picture1.Picture = p
Picture1.CurrentX = 1000
Picture1.CurrentY = 1000
Picture1.Print "New text"
SavePicture Picture1.Image, "D:\tp.bmp"
End Sub
http://www.21code.com/codebase/?pos=down&id=1869