(10-05-2012 00:01)Tony_Soprano Escreveu: Olá Karkov.
Bem o meu programa tem o seguinte código e mesmo assim não funciona:
Public Class Form1
Dim i As Integer
Dim imagens() As String = {"C:\Vb10sbs\chap07\face01", "C:\Vb10sbs\chap07\face02", "C:\Vb10sbs\chap07\face03"}
Dim valorAleatorio As New Random()
Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles lblrelogio.Click
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
i = i - 1
lblrelogio.Text = TimeString
PictureBox1.ImageLocation = imagens(valorAleatorio.Next(0, 3)).ToString
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
i = 30
End Sub
End Class
Agradecia que desses uma vista de olhos e me ajudasses a descobrir o erro.
Além disso continuo mesmo com a instrução nova sem perceber o que faz.
Não consegues mesmo trocar esta instrução por miudos.. PictureBox1.ImageLocation = imagens(valorAleatorio.Next(0, 3)).ToString ou seja esmiusala de forma a isolares as propriedades e identificar o que cada instrução separada faz. Gostava mesmo de perceber se não for pedir de mais.
Muito obrigado por tudo.
Tony_Soprano.
muito bem....
só te falta 2 coisas para funcionar:
- onde tens ( C:\Vb10sbs\chap07\face01 ... ) tens que ter paths para imagens (.jpg ou .gif ...)
- onde tens ( PictureBox1.ImageLocation = imagens(valorAleatorio.Next(0, 3)).ToString ) tens que substituir por:
Código:
If (i = 0) Then
PictureBox1.ImageLocation = imagens(valorAleatorio.Next(0, 3)).ToString
i = 30
End If
ou seja: se o teu contador for igual a 0 então mostra uma imagem e volta a reiniciar o contador.
ainda não te vou trocar aquilo por miudos... vou antes dizer-te para fazeres o seguinte:
- comenta a seguinte linha de codigo lblrelogio.Text = TimeString
- cria esta linha de código lblrelogio.Text = imagens(valorAleatorio.Next(0, 3)).ToString e vê o que retorna, pode ser que compreendas
cumps.
