Hướng dẫn tích hợp Ckeditor và winform VB.NET

CKEditor (còn gọi là FCKeditor) là một trình soạn thảo mã nguồn mở theo kiểu WYSIWYG (tay làm - mắt thấy) của CKSource. Chương trình này có thể tích hợp vào các web site mà không cần cài đặt. Phiên bản đầu tiên được phát hành năm 2003 và đến nay được rất nhiều người sử dụng.

Cũng giống các trình soạn thảo dành cho web khác, CKEditor sử dụng JavaScript là nền tảng, riêng việc tương tác với server thì CKEditor sử dụng các ngôn ngữ sau: Active-FoxPro, ASP, ASP.NET, ColdFusion, Java, JavaScript, Lasso, Perl, PHP and Python.

Hôm nay, mình xin tiếp tục hướng dẫn các bạn sử dụng tích hợp CKEditor vào trong Winform sử dụng VB.NET.

Mình sẽ hướng dẫn các bạn cách truyền dữ liệu từ winform vào Web browser và get dữ liệu từ Web browser về để xứ lý.

Giao diện demo ứng dụng:

+ Để tích hợp ckeditor vào winform đầu tiên các bạn có thể download và tải source ckeditor về.

Tiếp đó, các bạn vào thư mục debug tạo thư mục Editor. Trong thư mục editor, các bạn giải nén thư mục ckeditor vào trong thư mục này.

- Trong thư mục Ckeditor, các bạn tạo 1 file ckeditor.html với nội dung như sau:

CKEditor

<div class="paragraph-row"> <div class="column12" style="line-height: 30px;"> <p> <span style="font-size:14px"><span style="font-family:tahoma,geneva,sans-serif">Hôm nay, mình xin giới thiệu đến các bạn phần mềm gởi email hàng loạt Email Marketing được viết bởi VB.NET và Devexpress component.</span></span> </p> </div> </div>

Dưới đây là source code chương trình viết bằng VB.NET

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Url = New Uri(Application.StartupPath.ToString() + "editorckeditorckeditor.html")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        WebBrowser1.Document.InvokeScript("setValue", New String() {TextBox1.Text.ToString()})
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim contentStr As String = WebBrowser1.Document.InvokeScript("getValue").ToString()
        MessageBox.Show(contentStr)
    End Sub
End Class

CHÚC CÁC BẠN THÀNH CÔNG!

DOWNLOAD SOURCE CODE