Hi Trich,

 

Typ this code:

 

------------------------------------->

  Protected Overloads Overrides Sub OnLoad(ByVal e As EventArgs)
   
        Dim assetsPath As String = Me.MapPath("~/assets")
        'EditorWysiwygModeCss properties need to set to a Virtual path and need to do this setting before the code below
        htmlContent.EditorWysiwygModeCss = "~//assets//editor.css"
   
        htmlContent.SetSecurityFilesGalleryPath(assetsPath)
    
        'This method is not working in 6.3, but WAS working in 6.2
        'if you want to set the path of 'insert image' button, you need to set SetSecurityImageBrowserPath
        htmlContent.SetSecurityImageBrowserPath(assetsPath)
   
        If (htmlContent.ToolControls("Codes") IsNot Nothing) Then
            Dim richItem As CuteEditor.RichListItem = Nothing
       
            If True Then
                richItem = DirectCast(htmlContent.ToolControls("Codes").Control, CuteEditor.RichDropDownList).Items(0)
                DirectCast(htmlContent.ToolControls("Codes").Control, CuteEditor.RichDropDownList).Items.Clear()
                DirectCast(htmlContent.ToolControls("Codes").Control, CuteEditor.RichDropDownList).Items.Add(richItem)
           
                DirectCast(htmlContent.ToolControls("Codes").Control, CuteEditor.RichDropDownList).Items.Add("Test 1", "Test 1")
                DirectCast(htmlContent.ToolControls("Codes").Control, CuteEditor.RichDropDownList).Items.Add("Test 2", "Test 2")
                DirectCast(htmlContent.ToolControls("Codes").Control, CuteEditor.RichDropDownList).Items.Add("Test 3", "Test 3")
            End If
        End If
   
   
        MyBase.OnLoad(e)
    End Sub

 

--------------------------------------->

 

Regards,

 

Ken