separar caracteres de caja de texto y copiarlas en otras diferentes
Publicado por JUAN MIGUEL (50 intervenciones) el 31/12/2015 18:25:16
BUEN DIA, estoy diseñando un formulario para que cuando ingresen datos en caja de texto "tex1"
y uno en text2
el codigo me copie los dos primeros caracteres de esa caja text1 y copie todos los datos de text2 y los pegue en la caja de texto "text3" completando una palabra
pero tengo problemas con la palabra clipboard que no se como utilizarala
recuerdo que este codigo lo encontre en una web que colgo un programador llamado asderpunk y que se le dal el credito por el tiempo que se tomo y lo he modificado pero no me resulta
agradeszco a quien me pueda ayudar
y uno en text2
el codigo me copie los dos primeros caracteres de esa caja text1 y copie todos los datos de text2 y los pegue en la caja de texto "text3" completando una palabra
pero tengo problemas con la palabra clipboard que no se como utilizarala
recuerdo que este codigo lo encontre en una web que colgo un programador llamado asderpunk y que se le dal el credito por el tiempo que se tomo y lo he modificado pero no me resulta
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
Private Sub Command1_Click()
'Condicion para que no tenga los textbox solos
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "No puedes dejar un campo en blanco"
'Condición para poder seleccionar las 2 _
primeras letras del textbox
ElseIf Len(Text1.Text) > 2 Then
Text1.SetFocus 'Da el foco al text1
Text1.SelStart = 0 'Se posiciona al inicio
Text1.SelLength = 2 'Selecciona solo 2
Clipboard.SetText (Text1.SelText) 'Copia el texto seleccionado
Text3.Text = Clipboard.GetText() & Text2.Text 'Pega el clipboard
Text1.SelStart = 0 'Desmarca la selección del texto
Text3.SetFocus 'Pone el foco en el text3
MsgBox "Nombre de usuario generado " & _
"correctamente.", vbInformation, "Correcto"
Else
MsgBox "Escribe un nombre mas largo", vbExclamation, _
"Error Nombre"
End If
End Sub
Private Sub Command2_Click()
'Limpia los textbox
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Form_Load()
On Error Resume Next 'Control de errores
Me.Caption = "Crear Nombre de Usuario"
Me.Command1.Caption = "Crear"
Me.Command2.Caption = "Limpiar"
End Sub
Private Sub Text3_Change()
Dim I As Integer
'Para convertir el resultado a mayúsculas
Text3.Text = UCase(Text3.Text)
I = Len(Text3.Text)
Text3.SelStart = I
End Sub
agradeszco a quien me pueda ayudar
Valora esta pregunta
0