Visual Basic - PASAR EL VALOR DE UN ARRAY A UN TEXTBOX

Life is soft - evento anual de software empresarial
 
Vista:

PASAR EL VALOR DE UN ARRAY A UN TEXTBOX

Publicado por CARLOS BORGES (1 intervención) el 18/02/2018 21:16:41
estoy programando en EXCEL 2013 con visual BASIC. ahora bien, Tengo un arreglo llamado contra de 9 posiciones definido
Dim contra(0 To 9) As String al oprimir un commandbutton11 colocar la letra en la posición 1 del arreglo y asi sucesivamente todas las teclas hasta llegar a 10 caracteres.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton11_Click()
 
    'LETRA Q mami = 2 mayuscula mami = 1 minuscula
    If mami = 0 Then
        mami = 2
    End If
    'COLOCA EN EL ARRAY CONTRA(contador) la tecla del numero seleccionado
    If contador < 10 Then
        If mami = 2 Then
            contra(contador) = "Q"
        Else
            contra(contador) = "q"
        End If
    TextBox2.Text = contra        'aqui es donde  da el error me dice que no son del mismo tipo 
    contador = contador + 1
    End If
End Sub

lo que quiero hacer es capturar una letra y guardarla en un arreglo, luego pasar este arreglo a un textbox2 esto hasta completar 10 letras

TEXTBOX2 = Q
TEXTBOX2 = QQ
TEXTBOX2 = QQQ
TEXTBOX2 = QQQQ

HASTA COMPLETAR 10 CARACTERES QUE ES EL VALOR MÁXIMO A CAPTURAR EN EL TEXTBOX2, NO NECESARIAMENTE SE VAN A CAPTURAR 10 CARACTERES , PUEDEN SER MENOS.

ESTO ES LO MÁXIMO DE CARACTERES PERMITIDOS TEXTBOX2 = QQQQQQQQQQ

NOTA:
QUIERO HACER NOTAR QUE ESTE VISUAL BASIC ES EL QUE TIENE INCORPORADO EXCEL 2013 ,
YA QUE HICE ESTO EN VISUAL BASIC 2010 ( visual estudio) Y ME FUNCIONO.


esperando que me puedan ayudar MUCHAS GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

PASAR EL VALOR DE UN ARRAY A UN TEXTBOX

Publicado por Antoni Masana (558 intervenciones) el 19/02/2018 08:19:46
Prueba esto:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton11_Click()
     'LETRA Q mami = 2 mayuscula mami = 1 minuscula
    If mami = 0 Then
        mami = 2
    End If
    'COLOCA EN EL ARRAY CONTRA(contador) la tecla del numero seleccionado
    If contador < 10 Then
        If mami = 2 Then
            contra(contador) = "Q"
        Else
            contra(contador) = "q"
        End If
        TextBox2.Text = ""
        For a=0 to Contador
            TextBox2.Text = TextBox2.Text + contra(a)
        Next
        contador = contador + 1
    End If
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar