比如在一个自动生成的DOC文档中插入一图片,图片左右挨着图片有序地再插入一些说明性文字,请问怎么实现.最好能给出例子,谢谢
解决方案 »
- VB 语法问题
- 高手请讲讲,有种新病毒,你一插上U盘它就被激活,感染你的U盘,这个是怎么实现的,很想知道
- VB通过剪切板快速向EXCEL表中写入数据
- 关于msgbox的奇怪问题
- 怎么给 Text filters 的contains 中加3个条件?
- 初学者的问题.如何调用这个API?
- 文本框中可不可以限制字符的类型和字符的长度?谢谢
- 怎样实现按住Ctrl键可以选择多个对象???
- 谁说VB简单!,关于自定义集合类的问题,(硬是看不懂了!!,指点!!!)
- winsock本人用winsock控件通数据本机上有一块网卡,mode我想用mode拔号上服务器向服务器发数据如何控制winsock通过mode发数据,谢谢
- 控件小问题
- 请教,字符型变量(string)最大可保存多少位字符?
Attribute GetPic.VB_Description = "把图像数据PicData,存为PicFile指定的文件"
'********************************************************************************
' 把图像数据PicData,存为PicFile指定的文件
'********************************************************************************
On Error Resume Next
If Len(FileName) = 0 Then
C_ErrMsg = 2
RaiseEvent HaveError
Exit Function
End If
Open FileName For Binary As #1
If Err.Number <> 0 Then
C_ErrMsg = 3
Exit Function
End If
'二进制文件用Get,Put存放,读取数据
Put #1, , PicData
Close #1
C_PicFile = FileName
GetPic = True
End Function