none
Como faço uma rotina para carregar arquivos usando OpenToolStreepButton RRS feed

  • Discussão Geral

  • Olá mestres e amigos, estou querendo montar essa rotina e não sei nem por onde começar. Já tenho essa rotina abaixo que carrega arquivos txt mas o que estou querendo fazer é adaptar o seguinte:

    Quando clicar no ícone do OpenToolStreepButton (aquele livrinho amarelo) quero que apareça abaixo do ícone uma lista de nomes de todos os arquivos txt já salvos numa determinada pasta especifica, então depois clicar naquele que quero abrir e abri-lo. Alguém por favor me dá uma força? 

    Private Sub OpenToolStripButton_Click_1(sender As Object, e As EventArgs) Handles OpenToolStripButton.Click

    Dim nomesTenistas = New TextBox() {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42, TextBox43, TextBox44, TextBox45, TextBox46, TextBox47, TextBox48, TextBox49, TextBox50, TextBox51, TextBox52, TextBox53, TextBox54, TextBox55, TextBox56, TextBox57, TextBox58, TextBox59, TextBox60, TextBox61, TextBox62, TextBox63, TextBox64, TextBox65, TextBox66, TextBox67, TextBox68, TextBox69, TextBox70, TextBox71, TextBox72, TextBox73, TextBox74, TextBox75, TextBox76, TextBox77, TextBox78, TextBox79, TextBox80, TextBox81, TextBox82, TextBox83, TextBox84, TextBox85, TextBox86, TextBox87, TextBox88, TextBox89, TextBox90, TextBox91, TextBox92, TextBox93, TextBox94, TextBox95, TextBox96, TextBox97, TextBox98, TextBox99, TextBox100, TextBox101, TextBox102, TextBox103, TextBox104, TextBox105}
            Dim R As IO.StreamReader
            If TextBox111.Text = "" Then
                MsgBox("Insira um nome para esta pirâmide. (exemplo: abril2019)")
                Exit Sub
            End If
            nomePir = TextBox111.Text
            'pergunta se existe o diretório C:\Usuarios\Home se não existe,cria
            If IO.Directory.Exists(Diretorio) = False Then IO.Directory.CreateDirectory(Diretorio & ".txt")
            If IO.File.Exists(Caminho) = False Then File.AppendAllText(Caminho, "")
            R = New IO.StreamReader(Caminho)
            'carrega os nomes dos tenistas
            For u = 0 To 104
                nomesTenistas(u).Text = R.ReadLine
            Next
            R.Close()
        End Sub

    segunda-feira, 1 de abril de 2019 03:48