自定义模板问题
能不能把一个类似word编辑的东西带有格式的文字和表格存进sql中？可以在VB中读出并修改！类似电子病历的模板那样的功能！望哪位高手指导 模板 word 电子病历 --------------------编程问答-------------------- 简单呀，你存储HTML内容不就可以了 --------------------编程问答-------------------- 如果想编辑，你可以参考JS的在线编辑器，要不下载一个kindeditor来看看。 --------------------编程问答-------------------- 是个c/s程序 不想安装IIS服务器，有没有啥办法啊？vb做的程序能不能像word那样编辑html然后存贮到sql里啊？ --------------------编程问答-------------------- 不用IIS直接用JS和HTML就可以实现的呀，难道你认为要取编辑内容一定要通过IIS才能完成吗？WEB在线编辑功能主要是依靠浏览器脚本实现，也就是所谓的前台脚本，有没有后台程序都可以通过前台脚本得到编辑内容的。 --------------------编程问答-------------------- 看看下面简单的一个范例--------------------编程问答-------------------- 非常感谢！能不能麻烦您再告诉我怎么插入表格和改变字体和字体大小？ --------------------编程问答-------------------- 我上面已经给了你两种插入信息的方法了，一个是通过 document.execCommand 方法，还有就是
'------------------------------------------------------------
' 初始化编辑器
'------------------------------------------------------------
Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.designMode = "On"
WebBrowser1.Document.Close
Command1.Caption = "设置超连接"
Command2.Caption = "插入图片"
Command3.Caption = "查看代码"
End Sub
'------------------------------------------------------------
' 选择文字后设置超连接
'------------------------------------------------------------
Private Sub Command1_Click()
WebBrowser1.Document.execCommand "CreateLink", True, Null
End Sub
'------------------------------------------------------------
' 插入指定的HTML内容，这里是插入一个图片的HTML代码
' 当然可以用 execCommand InsertImage 来插入图片，这里只是为了
' 实现插入自定义 HTML 代码写的范例
'------------------------------------------------------------
Private Sub Command2_Click()
CommonDialog1.Filter = "图片文件(*.jpg;*.gif;*.png;*.bmp)|*.jpg;*.gif;*.png;*.bmp|所有文件(*.*)|*.*"
' 这里采用取消引发错误的方式
Err.Clear
On Error Resume Next
CommonDialog1.ShowOpen
If Err.Number <> 0 Then
' 取消选择文件
Err.Clear
Exit Sub
End If
Dim filename As String, _
htmlcode As String, _
Range As Object, _
imgTitle As String
imgTitle = InputBox("请输入图片的说明：", "图片说明", "美丽的图片")
filename = "file:///" & Replace(CommonDialog1.filename, "\", "/", , , vbTextCompare)
htmlcode = "<img title='" & imgTitle & "' src='" & filename & "'>"
Set Range = WebBrowser1.Document.Selection.CreateRange
Range.pasteHTML htmlcode
WebBrowser1.Document.Selection.Empty
End Sub
'------------------------------------------------------------
' 提取编辑好的 HTML 代码内容
'------------------------------------------------------------
Private Sub Command3_Click()
MsgBox WebBrowser1.Document.body.innerHTML
End Sub
自定义 html 方法。
execCommand 方法命令说明
2D-Position 允许通过拖曳移动绝对定位的对象。
AbsolutePosition 设定元素的 position 属性为“absolute”(绝对)。
BackColor 设置或获取当前选中区的背景颜色。
BlockDirLTR 目前尚未支持。
BlockDirRTL 目前尚未支持。
Bold 切换当前选中区的粗体显示与否。
BrowseMode 目前尚未支持。
Copy 将当前选中区复制到剪贴板。
CreateBookmark 创建一个书签锚或获取当前选中区或插入点的书签锚的名称。
CreateLink 在当前选中区上插入超级链接，或显示一个对话框允许用户指定要为当前选中区插入的超级链接的 URL。
Cut 将当前选中区复制到剪贴板并删除之。
Delete 删除当前选中区。
DirLTR 目前尚未支持。
DirRTL 目前尚未支持。
EditMode 目前尚未支持。
FontName 设置或获取当前选中区的字体。
FontSize 设置或获取当前选中区的字体大小。
ForeColor 设置或获取当前选中区的前景(文本)颜色。
FormatBlock 设置当前块格式化标签。
Indent 增加选中文本的缩进。
InlineDirLTR 目前尚未支持。
InlineDirRTL 目前尚未支持。
InsertButton 用按钮控件覆盖当前选中区。
InsertFieldset 用方框覆盖当前选中区。
InsertHorizontalRule 用水平线覆盖当前选中区。
InsertIFrame 用内嵌框架覆盖当前选中区。
InsertImage 用图像覆盖当前选中区。
InsertInputButton 用按钮控件覆盖当前选中区。
InsertInputCheckbox 用复选框控件覆盖当前选中区。
InsertInputFileUpload 用文件上载控件覆盖当前选中区。
InsertInputHidden 插入隐藏控件覆盖当前选中区。
InsertInputImage 用图像控件覆盖当前选中区。
InsertInputPassword 用密码控件覆盖当前选中区。
InsertInputRadio 用单选钮控件覆盖当前选中区。
InsertInputReset 用重置控件覆盖当前选中区。
InsertInputSubmit 用提交控件覆盖当前选中区。
InsertInputText 用文本控件覆盖当前选中区。
InsertMarquee 用空字幕覆盖当前选中区。
InsertOrderedList 切换当前选中区是编号列表还是常规格式化块。
InsertParagraph 用换行覆盖当前选中区。
InsertSelectDropdown 用下拉框控件覆盖当前选中区。
InsertSelectListbox 用列表框控件覆盖当前选中区。
InsertTextArea 用多行文本输入控件覆盖当前选中区。
InsertUnorderedList 切换当前选中区是项目符号列表还是常规格式化块。
Italic 切换当前选中区斜体显示与否。
JustifyCenter 将当前选中区在所在格式化块置中。
JustifyFull 目前尚未支持。
JustifyLeft 将当前选中区所在格式化块左对齐。
JustifyNone 目前尚未支持。
JustifyRight 将当前选中区所在格式化块右对齐。
LiveResize 迫使 MSHTML 编辑器在缩放或移动过程中持续更新元素外观，而不是只在移动或缩放完成后更新。
MultipleSelection 允许当用户按住 Shift 或 Ctrl 键时一次选中多于一个站点可选元素。
Open 打开。
Outdent 减少选中区所在格式化块的缩进。
OverWrite 切换文本状态的插入和覆盖。
Paste 用剪贴板内容覆盖当前选中区。
PlayImage 目前尚未支持。
Print 打开打印对话框以便用户可以打印当前页。
Redo 重做。
Refresh 刷新当前文档。
RemoveFormat 从当前选中区中删除格式化标签。
RemoveParaFormat 目前尚未支持。
SaveAs 将当前 Web 页面保存为文件。
SelectAll 选中整个文档。
SizeToControl 目前尚未支持。
SizeToControlHeight 目前尚未支持。
SizeToControlWidth 目前尚未支持。
Stop 停止。
StopImage 目前尚未支持。
StrikeThrough 目前尚未支持。
Subscript 目前尚未支持。
Superscript 目前尚未支持。
UnBookmark 从当前选中区中删除全部书签。
Underline 切换当前选中区的下划线显示与否。
Undo 撤消。
Unlink 从当前选中区中删除全部超级链接。
Unselect 清除当前选中区的选中状态。
自定义的 html 数据可以是任何 html 代码，我只不过用的是图片举例，你换一下 html 内容就可以
任意改变你要插入得是表格或是其他的什么东西了，如 flish 或 媒体播放器控件之类的。
如：
htmlcode = "<table><tr><td>表格1</td><td>表格2</td></tr><tr><td colspan='2'>表格3</td></tr></table>"
Set Range = WebBrowser1.Document.Selection.CreateRange
Range.pasteHTML htmlcode --------------------编程问答-------------------- 自定义格式也行, 如果你只是想用到不多的几种特性的话, 又不想搞得太大.
那么只要自己定义几个"关键字"或"标记", 并且可以在自己的程序中将这些关键字和标记解释出来即可
补充：VB , 数据库(包含打印，安装，报表)
