Visual Basic - Crear aplicacion VB 6 simple.

Life is soft - evento anual de software empresarial
   
Vista:

Crear aplicacion VB 6 simple.

Publicado por jose jose.rodriguez.an@gmail.com (8 intervenciones) el 19/11/2012 18:35:34
Hola a todos,

Hace mucho tiempo que no toco VB y no se por donde empezar.

Quisiera crear un programa sencillo que al escribir en un textbox por ejemplo la letra "A"

automáticamente salga "Alfa" en un Richbox.

Si alguien puede ayudarme se lo agradezco.

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

Crear aplicacion VB 6 simple.

Publicado por jose (8 intervenciones) el 21/11/2012 22:36:46
Lo que busco es esto:

Estoy intentando hacer un programa en VB con Visual Studio 2010, donde convierta el alfabeto normal de una palabra escrita en un textbox y en un richtextbox o listbox aparezca su alfabeto internacional.

Un ejemplo: Si en el textbox escribo "Hola" en el richtextbox debería aparecer:
Hotel
Oscar
Lima
Alfa

Lo he intentado hacer con dos arrays uno con alfabeto normal y otro con el internacional. Pero para ser sincero por mucho que lo he intentado no he conseguido nada.

Alguien sabría como hacerlo?

Muchas gracias de antemano.
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

Crear aplicacion VB 6 simple.

Publicado por Gabriel emgabo@gmail.com (19 intervenciones) el 23/11/2012 15:17:18
1) tenes que colocar en la instancia del textbox en el "change"
osea va a ejecutar los comandos cada vez que exista un cambio en el textbox (osea cuando se ponga una letra, numero, o se borre una)

2) dentro de esta tenes que hacer un select case para lo que quieras ejemplo

select case textbox.text

case "Hola"
richtextbox.text = "Alfa"

Case "Chau"
richtextbox.text = "Beta"

end Select

3) lo mismo si lo vas a agregar a un listbox la diferencia es que en el listbox usas listbox.add "alfa" o lo que sea...

Explicame si es eso y si te puedo dar otra mano

saludos!

Gabriel
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

Crear aplicacion VB 6 simple.

Publicado por jose (8 intervenciones) el 23/11/2012 20:27:14
Hola Gabriel,

Antetodo gracias por la respuesta.

Es lo que quería, pero lo que necesito realmente es que cuando escriba varios dígitos, se escriban varios en el richbox y no sólo un palabra.

Un ejemplo: Si en el textbox escribo "Hola" en el richtextbox debería aparecer:
Hotel
Oscar
Lima
Alfa

Si utilizo el Case sólo se puede ver un se leeria en el richbox "Hotel", con el ejemplo anterior, al pulsar "H" en el textbox. Para ver otra palabra, tendríamos que borrar el textbox y escribir la siguiente letra.
Lo que quiero es que me aparezcan todas.

Muchas gracias de nuevo Gabriel,
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

Crear aplicacion VB 6 simple.

Publicado por Juan José plutoydante@hotmail.com (8 intervenciones) el 21/01/2013 06:35:59
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
'PEGA ESTO DENTRO DE UN FORMULARIO VACIO
 
Dim WithEvents texto As TextBox
Dim rt As TextBox
 
Private Type cosa
 palabra As String
 muestra() As String
End Type
Dim pa() As cosa
Private Sub Form_Load()
Set texto = Me.Controls.Add("VB.TextBox", "texto")
 
Set rt = Me.Controls.Add("VB.TextBox", "rt")
texto.Move 50, 50, 2000
rt.Move 50, 50 + texto.Height + 100, 2000, 5000
 
texto.Visible = True
rt.Visible = True
p = InputBox("Escribe la cantidad de palabras que deseas agregar")
If Val(p) > 0 Then
ReDim Preserve pa(p)
i = 0
 Do
xxx:
   q = InputBox("Escribe la palabra numero " & _
   i + 1 & " que puedes escribir el el textbox")
   If Trim(q) = "" Then
    MsgBox "Debe escribir una palabra"
    GoTo xxx:
   Else
     pa(i).palabra = q
     z = 0
yyy:
     q = InputBox("Escriba la(s) palabras asociadad a " & _
     pa(i).palabra & " que se mostran " & _
     "en el richtextbox,  para detenerce no esriba nada")
 
     If Trim(q) <> "" Then
       ReDim Preserve pa(i).muestra(z)
       pa(i).muestra(z) = q
       z = z + 1
      GoTo yyy
     End If
   End If
   i = i + 1
 Loop Until i >= Val(p)
End If
End Sub
 
Private Sub Texto_KeyUp(KeyCode As Integer, Shift As Integer)
rt.Text = ""
For i = 0 To UBound(pa) - 1
 If texto.Text = pa(i).palabra Then
  For z = 0 To UBound(pa(i).muestra)
   rt.Text = rt.Text & pa(i).muestra(z) & Chr(13)
  Next z
  Exit For
 End If
Next i
End Sub
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

Crear aplicacion VB 6 simple.

Publicado por Jose Luis jose.rodriguez.an@gmail.com (8 intervenciones) el 27/01/2013 19:43:27
Hola Juan Jose,

Primero de todo gracias,

He copiado todo y me salen muchos errores. Estoy utilizando VB 6 con Visual Studio 2010.
Por si te vale.

Muchas gracias de nuevo.
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