czxxc

carpeta mf

Prueba codigos vb

    
    
Imports FastColoredTextBoxNS

Imports System.IO

Imports System.Text

Imports Ionic.Zip

Imports System.ComponentModel



Public Class MainForm1



    Private BookMarkCode As New bookmarkCode

    Private resaltado As New SintaxisEditor

    'Private AutoCompletado As New AutoCompletado

    Private UploadingFilesAndFolder As New ExploredCode

    Private VLP_Styles As New VLP_Styles

    Private UpdateControlStatus As New UpdateControlStatus



    Public Path_Project As String = ""



    'Carga las personalizaciones de los menues y los context menu.

    Class MyToolStripRenderer 'Carga el tema

        Inherits ToolStripProfessionalRenderer

        Public Sub New()

            MyBase.New(New VisualStudio2010())

        End Sub

    End Class



    'Carga las funciones necesarias.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Carga los cursores.

        'VLP_Styles.animatedCur(Me)

        'VLP_Styles.animatedCur(TV_Explored)

        'VLP_Styles.animatedCur(CMS_ExploredMenu)



        'Carga los eventos de los controles.

        Event_TV_Explored()

        Event_TC_Editor()



        'Activa el arrastrado del explorador de soluciones.

        TV_Explored.AllowDrop = True

        TC_Editor.AllowDrop = True



        'Activa las personalisaciones del explorador de soluciones.

        'VLP_Styles.SetWindowTheme(TV_Explored.Handle, "explorer", Nothing)



        'Aplica las personalizasiones.

        TS_Tool.Renderer = New MyToolStripRenderer

        TS_Explored.Renderer = New MyToolStripRenderer

        MS_Menu.Renderer = New MyToolStripRenderer

        CM_Edit.Renderer = New MyToolStripRenderer

        CMS_ExploredMenu.Renderer = New MyToolStripRenderer

        CMS_TabMenu.Renderer = New MyToolStripRenderer



        'Carga los proyectos recientes.

        Project_Resent(Nothing, False)



        'Abre el programa con un archivo que halla sido arasrado hacia el.

        If Microsoft.VisualBasic.Interaction.Command() = "" Then

        Else

            OpenCommand()

        End If



    End Sub



    'Abre el programa con un archivo que halla sido arasrado hacia el.

    Private Sub OpenCommand()

        Dim rutaVLP As String = Microsoft.VisualBasic.Interaction.Command()

        Dim PathVLPClear As String = rutaVLP.Replace("""", "")



        ResetProjectClear()

        ResetProjectClearAll()



        Path_Project = PathVLPClear

        TSSL_Path.Text = PathVLPClear



        UploadingFilesAndFolder.PopulateTreeView()

        UploadingFilesAndFolder.CallRecursive(TV_Explored)



        Me.Text = My.Computer.FileSystem.GetName(PathVLPClear) & " - VisualLoveProject 2.0 Ultimate"



        Try

            Open_Project(PathVLPClear)

        Catch ex As Exception

        End Try



    End Sub