- VB code
*!* 通过学习 伴水 此帖而得来*!* http://topic.csdn.net/u/20100127/14/A961DF9A-34A1-44F1-9F9A-C10A4D168736*!* 运行环境：VFP8.0 OR VFP9.0*!* apple_8180(十豆三) 2010-02-01m.lcPictureFile=Getfile("BMP;JPG;GIF;PNG") &&本地图片，如果不是本地图片可以下载到本地后再运行此段代码。If Empty(m.lcPictureFile) ReturnEndif_Cliptext="[img=data:image/gif;base64,"+Strconv(Filetostr(m.lcPictureFile),13)+"][/img]"If Len(_Cliptext)<10000 &&转换后不能超过10000字符，因为CSDN每个回复最大为10000字符，所以图片不能太大。 Messagebox("请在 CSDN论坛 回复框中粘贴后，直接 提交回复 即可。",64,"信息提示")Else _Cliptext="" Messagebox("图片太大！",48,"信息提示")Endif------解决方案--------------------------------------------------------
学习
------解决方案--------------------------------------------------------
------解决方案--------------------------------------------------------
顶顶
------解决方案--------------------------------------------------------
好，up
------解决方案--------------------------------------------------------
厉害，这都能想出来
------解决方案--------------------------------------------------------
------解决方案--------------------------------------------------------
学习一下好方法！谢谢分享！
------解决方案--------------------------------------------------------
没有VFP怎么办?不懂这个语言
------解决方案--------------------------------------------------------
------解决方案--------------------------------------------------------
5555急死我咯怎么弄得？？？？？我不会啊？？？为什么我想学555