Mini Kabibi Habibi

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Drawing
Imports System.Data
Imports System.Windows.Forms
Imports DevExpress.XtraRichEdit

Namespace DevExpress.XtraLayout.Demos
    ''' <summary>
    ''' Summary description for Employees.
    ''' </summary>
    Partial Public Class OneNote
        Inherits DevExpress.XtraLayout.Demos.TutorialControl
        Public Sub New()
            ' This call is required by the Windows.Forms Form Designer.
            CreateWaitDialog()
            InitializeComponent()
            InitData()

            ' TODO: Add any initialization after the InitForm call

        End Sub


        Private Sub InitData()
            RtfLoadHelper.Load("Hyperlinks.rtf", richEdit1)
        End Sub

        Private Sub checkEdit1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs)
            layoutControl1.BeginUpdate()
            layoutControl1.EndUpdate()
        End Sub
    End Class
    Public Class RtfLoadHelper
        Public Shared Sub Load(ByVal fileName As String, ByVal richEditControl As RichEditControl)
            Dim path As String = DemoUtils.GetRelativePath(fileName)
            If (Not String.IsNullOrEmpty(path)) Then
                richEditControl.LoadDocument(path, DocumentFormat.Rtf)
            End If
        End Sub
    End Class
    Public Class DocLoadHelper
        Public Shared Sub Load(ByVal fileName As String, ByVal richEditControl As RichEditControl)
            Dim path As String = DemoUtils.GetRelativePath(fileName)
            If (Not String.IsNullOrEmpty(path)) Then
                richEditControl.LoadDocument(path, DocumentFormat.Doc)
            End If
        End Sub
    End Class
    Public Class HtmlLoadHelper
        Public Shared Sub Load(ByVal fileName As String, ByVal richEditControl As RichEditControl)
            Dim path As String = DemoUtils.GetRelativePath(fileName)
            If (Not String.IsNullOrEmpty(path)) Then
                richEditControl.LoadDocument(path, DocumentFormat.Html)
            End If
        End Sub
    End Class
    Public Class OpenXmlLoadHelper
        Public Shared Sub Load(ByVal fileName As String, ByVal richEditControl As RichEditControl)
            Dim path As String = DemoUtils.GetRelativePath(fileName)
            If (Not String.IsNullOrEmpty(path)) Then
                richEditControl.LoadDocument(path, DocumentFormat.OpenXml)
            End If
        End Sub
    End Class
    Public Class DemoUtils
        Public Shared Function GetRelativePath(ByVal name As String) As String
            name = "Data\" & name
            Dim path As String = System.Windows.Forms.Application.StartupPath
            Dim s As String = "\"
            For i As Integer = 0 To 10
                If System.IO.File.Exists(path & s & name) Then
                    Return (path & s & name)
                Else
                    s &= "..\"
                End If
            Next i
            Return ""
        End Function
        Public Shared Sub SetConnectionString(ByVal oleDbConnection As System.Data.OleDb.OleDbConnection, ByVal path As String)
            oleDbConnection.ConnectionString = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source={0};Mode=Share Deny None;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False", path)
        End Sub
    End Class
End Namespace