Visual Basic - pasar linea por linea de un textbox a otro apretando un buttom

Life is soft - evento anual de software empresarial
   
Vista:

pasar linea por linea de un textbox a otro apretando un buttom

Publicado por rick (2 intervenciones) el 20/02/2015 23:13:35
hola que tal molestándolos con una pregunta que no encuentro la solución por ninguna parte

como? puedo pasar una línea a la vez de un textbox multilinea a otro haciendo click en un botón

lG8WMF
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 Andres Leonardo

pasar linea por linea de un textbox a otro apretando un buttom

Publicado por Andres Leonardo (702 intervenciones) el 20/02/2015 23:27:57
Y podrian ser Listviews?
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

pasar linea por linea de un textbox a otro apretando un buttom

Publicado por omar pcc.nett.2018@hotmail.com (7 intervenciones) el 20/02/2015 23:40:18
Es sencillo realizarlo
1cuentas cuantas lineas tiene el textbox

recorrer el textbox segun la cantidad de lineas

Poner una variable global que vaya contando

Pasas la primera linea al textbox al pulsar el boton
asi sucesivamente
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

pasar linea por linea de un textbox a otro apretando un buttom

Publicado por rick (2 intervenciones) el 20/02/2015 23:42:45
perdón pero si me dices un ejemplo me encantaría porfa.....
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
Imágen de perfil de Megamind

pasar linea por linea de un textbox a otro apretando un buttom

Publicado por Megamind (121 intervenciones) el 21/02/2015 00:38:53
Prueba esto a ver que tal

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
Option Explicit
        Private Declare Function SendMessageBynum Lib "user32" _
                Alias "SendMessageA" (ByVal hwnd As Long, _
                ByVal wMsg As Long, _
                ByVal wParam As Long, _
                ByVal lParam As Long) As Long
 
        Private Const EM_LINEFROMCHAR As Long = &HC9
        Private Const EM_LINELENGTH As Long = &HC1
        Private Const EM_LINEINDEX As Long = &HBB
 
        Private Sub Command1_Click()
 
        Dim LineaActual As Long
        Dim PrimerCaracter As Long
        Dim Longitud As Long
 
        ' Calculamos la línea donde se encuentra el cursor
        LineaActual = SendMessageBynum(Text1.hwnd, EM_LINEFROMCHAR, -1, 0&)
 
        ' Determinamos la posición del primer carácter de la
        ' línea actual
        PrimerCaracter = SendMessageBynum(Text1.hwnd, EM_LINEINDEX, _
        LineaActual, 0&)
 
        ' Calculamos la longitud de la línea seleccionada
        Longitud = SendMessageBynum(Text1.hwnd, EM_LINELENGTH, _
        PrimerCaracter, 0&) + 1
 
      ' Seleccionamos la línea
        With Text1
        .SelStart = PrimerCaracter
        .SelLength = Longitud
        .SetFocus
        If LTrim(RTrim(Text1.SelText)) <> "" Then 'Si no esta vacia
           Text2.Text = Text2.Text & Text1.SelText & vbCrLf
          'Borrar la linea en el Text1
          .SelStart = PrimerCaracter
          .SelLength = Longitud + 1
         .SelText = ""
        End If
       End With
   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