0

Estou a tentar criar uma subrotina capaz de ler todo o alfabeto de A até Z e que guarde/apresente as letras lidas em duplicado (AA, BB, CC, ...) em VB6 mas ainda não deu certo.

A minha tentativa:

Do  while alfa <> z
    alfa = alfa + a
    lstalfabeto.additem alfa
Loop
2
  • Dá para entender que anda a tentar aprender VB6/VBA e está a ter algumas dificuldades (é normal). Sugeria-lhe que lê-se os seguintes tutoriais (estão em PT) (Tutorial1 e Tutorial2). Acredito que no fim de os ler vai conseguir expressar melhor as suas dúvidas (ou quiçá não ter dúvidas.)
    – jpmnteiro
    29/05/2014 às 8:42
  • O primeiro tutorial não abriu mas gostei tem muita coisa que preciso saber defacto,mas gostaria de ter o código que me permite mover uma imagem de um lado para o outro não sei se é possível implementar isto no vb6 se sim como,se puder pode mandar mais links agradeço mano.cumprimentos.alex de Moçambique
    – user7752
    29/05/2014 às 9:25

1 Resposta 1

1

Assumindo que tem um uma colecção com as letras que quer duplicar, uma forma de escrever a sub-rotina será:

Private Sub CommandButton1_Click()

    Dim alfabeto As New Collection

    ' Colecção que vai receber o alfabeto duplicado
    Dim alfabetoDuplicado As New Collection

   'Fora do escopo da pergunta mas preencher um array com o alfabeto para clareza
    For Index = 65 To 90
        alfabeto.Add Chr(Index)
    Next

    For t = 1 To alfabeto.Count
        alfabetoDuplicado.Add (alfabeto(t) + alfabeto(t))
    Next

End Sub
17
  • valeu ai mano deu certo o meu cordial abraçoAlex de Moçambique
    – user7752
    28/05/2014 às 9:29
  • mas tem um probleminha para duplicar não aceita não sei se poderia dar mais uma ajudinha eu tou fazendo isso no vb6.
    – user7752
    28/05/2014 às 9:36
  • como assim não aceita? que erro é que lhe aparece?
    – jpmnteiro
    28/05/2014 às 9:37
  • type mismatch da erro no t
    – user7752
    28/05/2014 às 10:11
  • type mistmatch e da erro no "t"
    – user7752
    28/05/2014 às 10:17

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .