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