Ola... estou a fazer um jogo tipo o "quem quer ser milionario"...
e preciso de criar perguntas e respostas... e pôr a pergunta numa textbox e as 4 respostas outras textbox's! :wacko:
Module Module1
Structure Pergunta
Dim Texto As String
Dim Respostas() As String
Sub Inicializar()
ReDim Respostas(3)
End Sub
End Structure
End Module
Public Class Form2
Sub CriarPerguntas()
Dim Perguntas(19) As Pergunta
For i As Integer = 0 To 19
Perguntas(i).Inicializar()
Next
With Perguntas(0)
.Texto = "pergunta1"
.Respostas(0) = "respostaA"
.Respostas(1) = "respostaB"
.Respostas(2) = "respostaC"
.Respostas(3) = "respostaD"
End With
With Perguntas(1)
.Texto = "pergunta2"
.Respostas(0) = "respostaA"
.Respostas(1) = "respostaB"
.Respostas(2) = "respostaC"
.Respostas(3) = "respostaD"
End With
End Sub
vi isto na internet... será q ajuda?
s alguém poder ajudar a descodificar e por as perguntas e respostas nas textbox's... agradecia!
se tiverem uma maneira mais facil de fazer, tambem n m importo q m digam. :rolleyes: :rolleyes:
Pergunta
Guest --PedRo --
Ola... estou a fazer um jogo tipo o "quem quer ser milionario"...
e preciso de criar perguntas e respostas... e pôr a pergunta numa textbox e as 4 respostas outras textbox's! :wacko:
vi isto na internet... será q ajuda?
s alguém poder ajudar a descodificar e por as perguntas e respostas nas textbox's... agradecia!
se tiverem uma maneira mais facil de fazer, tambem n m importo q m digam. :rolleyes: :rolleyes:
Aguardo resposta! Obrigado :mellow:
Editado por kuroiAdicionar tag CODE
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.