我想做一个编辑器,功能是:拖入图片或视频就能显示出来,并且能够调整图片和视频显示时的大小。同时能够像网页编辑器一样调整文本内容的字体,排版等!应该用什么控件?richbox可以做到吗?
解决方案 »
- vb+access编写的图书管理系统遇到的一些小问题,希望得到大家的指导
- Access 数据添加,文本框小于6位数的不给登记?
- 低分求原始套接字抓包的代码
- 关于Activex DLL 动态引用事件处理问题
- 为什么我在一个按钮上写上维语,显示的全是?呢。
- 求段代码谁会写,先谢谢了。
- 请问如何在picturebox 中,loadpicture一张图片并在上面写一行文本并且打印出来(类似于水印效果)
- 我想在程序中增加一块数据库备份的功能请问如何去做即简单又实用
- 关于交叉表做报表的问题!(200分送上)
- 在VB picturebox里放了一个动的函数图会一闪一闪的
- vb与网页编辑器的问题!
- (急切求助)如何实现西祠论坛自动发帖回帖?
或者dhtml editor控件。需要用到几个OLE拖放事件。
如初始化可以这样:
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.designMode = "On"
WebBrowser1.Document.Write ""
WebBrowser1.Document.Close
WebBrowser1.Document.body.innerHTML = ""
WebBrowser1.Document.body.Style.FontSize = "12px"
插入图片可以这样:
Dim ImageObj As Object
Dim Range As Object
Set ImageObj = WebBrowser1.Document.CreateElement("img")
ImageObj.src = "http://www.baidu.com/img/logo-yy.gif"
ImageObj.border = 0
Set Range = WebBrowser1.Document.Selection.CreateRange
Range.pasteHTML ImageObj.outerHTML
WebBrowser1.Document.Selection.Empty设置选择的字体为斜体可以这样:
WebBrowser1.Document.ExecCommand "ITALIC", True '斜体字
基本和vbScript中使用是一样的东西
WebBrowser1.Document.body.innerHTML
得到HTML脚本
如:
Text1.Text = WebBrowser1.Document.body.innerHTML