Label de legenda Media Player #2 Avançado

Aqui outro tutorial, este é mais avançado, se você é novo no programa, veja o básico.

Para começar a fazer este, primeiro você vai ter que fazer igual ao básico, só esqueça a parte do bloco tempo_TextChanged:

Select Case tempo.Text
            Case "00:00"
                texto.Text = ""
            Case "00:10"
                texto.Text = "Fala Numero 1"
            Case "00:13"
                texto.Text = "Fala Numero 2"

        End Select


vamos fazer de um jeito diferente... primeiro adicione uma listview no projeto com nome de lista.

em Columns adicione duas, em View selecione a opção Details, ficará assim:

And Now, adicione dois textbox, 
em baixo da lista um na esquerda e outro na direita
nomeie o da esquerda para: texto2
nomeie o da direita para: tempo3
Crie um botão com nome de btn

deverá ficar parecido com isto:
Feito isso dê duplo clique no btn 
em btn_Click digite:

ListView1.Items.Add(New ListViewItem(New String() {texto2.Text, tempo3.Text}))

este código irá adicionar o texto2 e tempo3 na lista.

agora de volta para o design, agora Dê duplo clique no evento textchanged do label tempo
como ensinado no básico.

no tempo_TextChanged digite:

        Try
            With ListView1.FindItemWithText(tempo.Text)
                texto.Text = .SubItems(0).Text
            End With
        Catch ex As Exception
        End Try

crie outro botão em qualquer lugar, e dê duplo clique nele.
no Button1_Click digite:

        Dim open As New OpenFileDialog
        If open.ShowDialog = Windows.Forms.DialogResult.OK Then
            wmp.URL = open.FileName
        End If

funções:

caixa de texto - texto2 = texto ao aparecer no determinado tempo
caixa de texto - tempo3 = tempo ao aparecer o texto determinado
botão - btn = para adicionar na lista
botão - button1 = para abrir uma música

agora é só fazer o teste.


0 comentários:

Postar um comentário