制作一个简单的在线文本编辑功能

补充：说明：希望各位看清楚，我是说是要通过Asp.net后台程序输出到页面，所以这是一个WEB程序，请不要把WinForm程序也贴上来，谢谢

答案：我做过一个。。  http://img.dafen7.com/Control/HtmlEditor/编辑器本身和.NET 没什么太大关系，纯粹是用javascript实现。然后在.NET 里面做成一个自定义控件进行引用就可以了。
终于编出来了，在线文本编辑功能，代码如下；

Dim bb
Dim a
Dim ss

Private Sub baocun_Click()
xu.Filter = "文本文件|*.txt|所有文件|*.*"
xu.ShowSave
richtextbox1.SaveFile xu.FileName
End Sub

Private Sub chazhao_Click()
a = InputBox("输入要查找的字", "查找")
ss = richtextbox1.Find(a, 0)
End Sub

Private Sub chazhaoxiayige_Click()
If ss >= 0 Then
b = richtextbox1.Find(a, richtextbox1.SelStart + 1)
End If
End Sub

Private Sub dakai_Click()

If richtextbox1.Text <> "" Then
a = MsgBox("是否存盘", 36, "咨询")
      If a = 6 Then

xu.Filter = "文本文件|*.txt|所有文件|*.*"
xu.ShowSave
richtextbox1.SaveFile xu.FileName

          Else:
          richtextbox1.Text = ""

xu.Filter = "文本文件|*.txt|所有文件|*.*"
xu.ShowOpen
richtextbox1.LoadFile xu.FileName


End If
Else

xu.Filter = "文本文件|*.txt|所有文件|*.*"
xu.ShowOpen
richtextbox1.LoadFile xu.FileName

End If

End Sub


Private Sub fuzhi_Click()
Clipboard.SetText richtextbox1.SelText
End Sub

Private Sub jianqie_Click()
Clipboard.SetText richtextbox1.SelText
richtextbox1.SelText = ""
End Sub

Private Sub lingcunwei_Click()
xu.Filter = "文本文件|*.txt|所有文件|*.*"
xu.ShowSave
richtextbox1.LoadFile xu.FileName
End Sub


Private Sub richtextbox1_Change()

End Sub

Private Sub tihuan_Click()
q = InputBox("输入要替换的字符", "替换")

richtextbox1.SelText = q
End Sub

Private Sub tuichu_Click()
End
End Sub

Private Sub xinjian_Click()

If richtextbox1.Text <> "" Then
a = MsgBox("是否存盘", 36, "咨询")
      If a = 6 Then

xu.Filter = "文本文件|*.txt|所有文件|*.*"
xu.ShowSave
richtextbox1.SaveFile xu.FileName
     Else
richtextbox1.Text = ""
End If
End If
End Sub

Private Sub zhantei_Click()

richtextbox1.SelText = Clipboard.GetText
End Sub

Private Sub ziti_Click()

xu.Flags = &H103
xu.ShowFont
richtextbox1.SelBold = xu.FontBold
richtextbox1.SelItalic = xu.FontItalic
richtextbox1.SelFontName = xu.FontName
richtextbox1.SelStrikeThru = xu.FontStrikethru
richtextbox1.SelColor = xu.Color
richtextbox1.SelUnderline = xu.FontUnderline
richtextbox1.SelFontSize = xu.FontSize
End Sub
 
在文本框里直接显示加粗，倾斜在网页上是不行的(除非你用人提供的控件)
一般的做法是上面有几个按钮,为加粗，倾斜等,点击按钮,将你相应的内容用html代码标记,比如加粗:<B>加粗字体</B>, 然后回发到后台后通过response.write(text)方法或者xx.innerHTML = text 将内容写出来,浏览器会将你里面的那些标记识别为html代码,从而实现变化字体粗细,颜色等功能.
.你用现成的东西不就是了
fckeditor

上一个：vs无法进行本地调试
下一个：我是学计算机的,要怎么学JAVA?