Visual Basic 2005: TextBox

[moradazo]

Hola a todos vengo con unas dudas con los textbox.



La primera es: En esta imagen (1) tengo 3 textbox. El #2 tiene los anchors left, up y right, cuando la ventana se expande queda de esa forma como en la imagen 2.



Si yo le doy a los anchors left, right, up y down, me acomoda bien los textbox como en la imagen 3.



Este textbox #2 tiene una opcion externa incrementar el tamaño de los caracteres, entonces cuando hago eso, minimizo y luego maximizo, se deforma el textbox como en la imagen 4.



Como puedo establecer que el textbox se quede como este? Si no le pongo el anchor down, el textbox nunca se deforma ni con el cambio de tamaño de letras

[David]

Lo que yo suelo hacer para controlar la presentación de la ventana es usar el evento Resize y cambiar el tamaño proporcionalmente a los controles.

[moradazo]

Que tal David.

Gracias por tu aporte, lo probe con el siguiente código:

Código PHP:

          Private Sub Textbox_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textbox.Resize 
        Dim myControl As textBox 
        myControl = sender 
        If myControl.Size.Height <> myControl.Size.Width Then 
            myControl.Size = New Size(myControl.Size.Width, myControl.Size.Width) 
        End If 
    End Sub  
   

Pero me pasa lo que esta en la imagen:
Las lineas de color rojo es donde deberian estar los limites de cada textbox, y ahi como se ve, se expande una vez abierto el programa. Sera que estoy programando algo mal? Gracias!



PD: le quite todos los anchors.

[David]

A lo que me refería es que uses el Resize de la ventana, no del TextBox. Y en ese evento redimensionar todos tus controles según como quieres que se vea.

[moradazo]

Gracias David, ahora me esta pasando lo mismo, es por este desconocimiento que me intriga.

Este es el codigo que puse:

Código PHP:

  Private Sub Form1_ResizeBegin(ByVal sender As System.Object, _ 
ByVal e As System.EventArgs) Handles MyBase.ResizeBegin 
 
        Dim myControl As Form 
        Dim textbox1 As textbox 
        myControl = sender 
        textbox1 = sender 
 
        If myControl.Size.Height <> myControl.Size.Width Then 
            myControl.Size = New Size(myControl.Size.Width, myControl.Size.Width) 
        End If 
        If textbox1.Size.Height <> textbox1.Size.Width Then 
            textbox1.Size = New Size(textbox1.Size.Width, textbox1.Size.Width) 
    End If 
 
End Sub  
   

El problema que me da es como dije en el primer post, el ultimo cuadro. Cuando tengo el texto, le cambio de tamaño al texto no cambia nada, pero si lo minimizo y luego maximizo se me deforma el textbox donde habia cambiado el tamaño de sus caracteres. Eso no pasa si no le cambio el tamaño, será por eso?

Tengo declarado un ComboBox que tiene 3 items (Grande, mediano, pequeño) y cada uno tiene un numero de tamaño a ese textbox.

PD: Si le quito el anchor down al textbox, no pasaria ese problema pero no se extiende bien el textbox cuando esta maximizado completamente.

[David]

Pero el caso es que en realidad no estás ajustando el tamaño, estás simplemente manteniendo el mismo tamaño.

Por ejemplo, para que en realidad surtiera efecto, deberías obtener una proporción:

Código vb:

'Aplicamos una regla de 3 para obtener una proporción
Ancho_Actual_TextBox = (Ancho_Inicial_TextBox * Ancho_Actual_Form) / Ancho_Inicial_Form
 

[moradazo]

Mira lo que hice:

textbox1.Size = New Size(textbox1.MinimumSize * form1.Size) / form1.MinimumSize

lo que esta subrayado es que visual me lo marca diciendome:
- Operator '*' is not defined for types 'System.Drawing.Size' and 'System.Drawing.Size'.
- 'Form1.Form1' cannot refer to itself through its default instance; use 'Me' instead.

Será que no puedo usar operaciones aritméticas en el programa?

tambien probe con:

textbox1.Width = ((textbox1.Width * Me.Width) / Me.Width)

Pero no se como decirle cuando es actual y cuando es inicial...

Gracias.

[David]

Con tamaño inicial me refiero al tamaño que tienen al cargar el formulario, eso es constante, ya que los defines en el diseño.

[moradazo]

Ok David ya voy entendiendo:

'Estas son las declaraciones de los tamaños
Me.textbox1.Size = New Size(592, 329)
Me.Size = New Size(1119, 744)

Ahora esta parte es la que me está costando:

Me.textbox1.Width = (Me.textbox1.Width * Me.Width) / Me.Width

A simple vista se puede ver que cada ancho escrito ahí es el inicial pues se están cargando desde las declaraciones. Lo que no se es como decirle el ancho actual...

Si me puedes ayudar en eso, mientras investigo, gracias!

[David]

En realidad el ancho actual es el que tienes en las propiedades Width y Height. Prueba así:

Código vb:

Me.textbox1.Width = (592 * Me.Width) / 1119
 

[moradazo]

Vieras que no me hace el cambio, asi tengo el codigo, sera que me falta algo?

Código PHP:

  Private Sub form_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize 
        Me.textbox.Size = New Size(592, 329) 
        Me.Size = New Size(1119, 744) 
 
        If textbox.Size.Height <> textbox.Size.Width Then 
            Me.TextBox.Width = (592 * Me.Width) / 1119 
        End If 
 
    End Sub  
   

Mira asi se ve maximizado:

http://tinypic.com/view.php?pic=35170ic&s=4

Otra cosa, cuando trato de hacer mas grande la ventana tomando una esquina con el mouse, no me esta dejando, por que sera?
Gracias!

[David]

Mira, si te fijas:

Código vb:

Me.textbox.Size = New Size(592, 329)
Me.Size = New Size(1119, 744)
 

Lo que estás haciendo es cuando se redimensiona la ventana, volverla a su tamaño original, lo cual no es lo que queremos.

Código vb:

If textbox.Size.Height <> textbox.Size.Width Then
 

Esa comparación no tiene mucho sentido. Estás preguntando si el ancho y el alto son diferentes, lo cual no viene al caso en este contexto.

[moradazo]

Si, tienes razon con lo de la comparacion. La primera declaracion la quite, y ahora vuelve a abrirme el textbox, o sea a deformarlo despues de maximizarlo, mira el proceso:

Aqui se ve la ventan maximizada
http://i35.tinypic.com/25pmis1.jpg

Cuando se maximiza aun le falta completar al lado derecho
Como podras ver la letra cambio, arriba a la izquierda esta esa opcion de aumentar el tamaño
http://i37.tinypic.com/28bbekh.jpg

Si se minimiza y luego se maximiza, se deforma el textbox.
http://i38.tinypic.com/1jvnzc.jpg

Ahora la declaración la dejé así:

Código PHP:

  Private Sub Form_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize 
        Me.textbox.Width = (592 * Me.Width) / 1119 
End Sub  
   

Aún no entiendo por que no funciona, debo aclarar que el texbox aun está declarado con los anchors. Sin ellos no se maximiza nunca.

[David]

Primero, hay que quitarle los anchors, segundo, creo que pensando mejor, en este caso lo que necesitamos no es hacerlo proporcional, sino hacer que ocupen todo el espacio de la ventana.

En ese caso lo que haríamos en realidad sería algo como esto:

Código vb:

Me.textbox.Size.Width = Ancho_Ventana - Ancho_Panel - Ancho_Otro_TextBox - Espaciado
 

Lo mismo hay que hacer con la altura (Height). Espero no te haya confundido.

[moradazo]

Excelente David nuevamente muchas gracias!

Si entendi, gracias de verdad tus aportes son oro!

Así quedó el código:

Código PHP:

  Private Sub Form_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize 
 
        Me.textbox.Width = Me.Width - 530 
        Me.textbox.Height = Me.Height - 420 
 
End Sub  
   

Los valores que estan ahi son todos los demas controles que se encuentran alrededor de ese textbox entonces los sume, de todas formas cuando la ventana se restaura o maximiza, los valores cambiaran ya que el Me.Height y Me.Width cambiará su valor como variable que es y restará automáticamente con ese número constante.

Nuevamente muchas gracias David y disculpa mis insistentes post.

[moradazo]

Hola nuevamente amigos:

Resulta que tengo un textbox con mucha informacion repetida al inicio de la siguiente forma:

Código:

Espanol: Hola como estan todos
Ingles: Hello, how are you
Espanol: Muchas gracias
Ingles: Thank you, very much
Espanol: Donde estan todos
Ingles: Where are everyone

Y ocupo que quede asi:

Código:

Ingles: Hello, how are you
Espanol: Hola como estan todos
Ingles: Thank you, very much
Espanol: Muchas gracias
Ingles: Where are everyone
Espanol: Donde estan todos

Intente hacerlo con reemplazos pero no me sirve, ocupo la cadena completa cambiada, si me pueden dar una mano, gracias!

[David]

Puedes usar indexOf para buscar los saltos de línea e ir leyendo las líneas y cambiándolas.

[moradazo]

Gracias David, lo resolvi de esta forma:

Código PHP:

  Dim slinea As String = "" 
Dim cadena1 As String = "" 
Dim cadena2 As String = "" 
          If System.IO.File.Exists(C:/test.txt) = True Then 
            Dim objReader As New System.IO.StreamReader(C:/test.txt), System.Text.Encoding.Default) 
            Do While objReader.Peek() <> -1 
                sLinea = objReader.ReadLine() 
                If sLinea.StartsWith("Espanol") Then 
                    cadena1 = sLinea 
                End If 
                If sLinea.StartsWith("Ingles") Then 
                    cadena2 = sLinea 
                    TextLine = TextLine & (cadena1 & vbNewLine & cadena2) & vbNewLine 
                End If 
            Loop 
            objReader.Close() 
        End If  
   

Este codigo hace una lectura de un archivo de texto (C:/test.txt) aceptando todos los acentos y caracteres especiales como la "ñ" (System.Text.Encoding.Default). Lo que hace es tomar las cadenas que empiezan por Espanol y las ordena en una variable tipo String (cadena1), luego otra condicion de que cuando empiezan en Ingles se agreguen en otra variable tipo String (Cadena2). Al final se concatenaran con brincos de lineas, el orden que yo necesite hacerle. Se puede agregar por ahi un contador para sumar las lineas del textbox.

Gracias!

[moradazo]

Otra consulta disculpen mi insistencia:

En un textbox como puedo hacer para restringir que se agreguen dos comentarios iguales?
Mi forma de agregar esos comentarios es por medio de un listbox, al darle doble clic se agregan al textbox:

TextBox.AppendText(ListBox.Items(indice) & vbnewline)

Gracias!

[David]

En ese caso sí puedes usar indexOf para saber si la cadena ya existe en el texto, y si así es, no llamar al AppendText.

[moradazo]

Gracias David, tome tu consejo e hice este código:

Código PHP:

          For i As Integer = 0 To lineas - 1  
        'lineas es el numero de linea seleccionada en el listbox' 
 
            If textbox1.Lines(i) <> "" Then 
        'Esta condicion no tomará en cuenta las líneas NULL' 
 
                If textbox1.Lines(i).IndexOf(textbox1.Lines(i)) <> -1 Then 
 
 'Aqui necesito hacer una comparación pero no me da nada de lo que' 
 'he puesto, si me pueden ayudar como comparo 2 cadenas aca, gracias'         
 
                End If 
            End If 
        Next  
   

[moradazo]

Código PHP:

      Private Sub txtText_Change() 
        Dim nLineas As Long 
        nLineas = SendMessageLong(TextBox1.Handle, &HBA, 0&, 0&) 
        TextBox2.Text = nLineas 
    End Sub  
   

Vi también por internet que se puede contar los caracteres con SendMessageLong, pero siempre me esta dando 0, pienso que el WM no es el correcto, podria ser eso que no me cuenta las lineas? Lo ocupo saber para poder decirle al programa cuantas líneas hay en el momento de comparación.

[David]

En realidad no entendí muy bien lo que pretendes con el primer código. En realidad la comparación debería ser algo como:

Código vb:

If textbox.Lines(i) = Texto_que_no_debe_repetirse Then
   'Aquí realizamos una acción cuando el texto ya se encuentra en el TextBox
End If
 

Y para contar las líneas usa textbox.Lines.Count.

[moradazo]

Me diste una gran idea con ese codigo que me diste David, ya logré que contara las líneas y por ende, detectar líneas repetidas, te diré con detalle:

Código PHP:

   Dim a As Integer 
 
        a = TextBox1.Lines.Length 'Cuenta las lineas del textbox' 
 
'Dos for anidados, la variable "i" y la variable "j". La variable "i" se mantiene en' 
'una posicion hasta que "j" recorra todas las lineas del textbox, despues la "i" se' 
'desplazará una línea después hasta acabar. Se debe poner una condición que ' 
'es cuando "i" y "j" sean iguales, es logico que sus lineas lo van a hacer por lo ' 
'que hay que omitirlo'  
 
        For i As Integer = 0 To a 
            For j As Integer = 0 To a 
                If i <> j Then 
                    Try 
                        If TextBox1.Lines(i) = TextBox1.Lines(j) Then 
                            MsgBox("hay iguales") 
                            Exit Sub 
                        End If 
                    Catch ex As Exception 
                        Exit Try 
                    End Try 
                End If 
            Next 
        Next  
   

Gracias David!

[moradazo]

Hola que tal todos! quiero borrar una línea del textbox, las líneas las calculo así:

NumLineas = Textbox.Lines.Lenght

Entonces digamos que quiero encontrar la línea 7 que dice "Hola" y me la borre o la reemplace por un NULL, he tratado así:

Código PHP:

  for i=0 to NumLineas 
 if textbox.lines(i) = "Hola" then 
    Textbox.Text.Remove(i) 
 End If 
Next  
   

También he probado con:

Código PHP:

  for i=0 to NumLineas 
 if textbox.lines(i) = "Hola" then 
   ancho = Len(textbox.Lines(i)) 
   textbox.Lines(i).Remove(0, ancho) 
 End If 
Next  
   

Ninguna de las dos formas lo hace, será que estoy equivocado en algo? si me pueden dar una mano les agradeceré muchísimo. Gracias!

[moradazo]

ya me resolví el problema:

Código PHP:

  Dim NumLineas As Integer 
Dim cadena As String 
 
for i=0 to NumLineas  
 if textbox.lines(i) = "Hola" then  
     cadena = textbox.Lines(i) 
     textbox.Text = Replace(textbox.Text, textbox.Lines(i) & vbNewLine, "") 
     textbox.Text = textbox.Text & (cadena & vbNewLine) 
 End If  
Next  
   

Ahora tengo una duda que no he podido resolver, saben como hacer para que cuando escriba una linea al darle ENTER pueda brincar dos líneas? o bien esa línea que yo escribí, al pegar un texto en ese textbox, no se pegue seguido si no con dos líneas de más?

Ejemplo:

Tengo este texto:
"Hola como estan"

Al pegar un texto que no se vea así:
"Hola como estanTexto pegado"

Si no que se vea asi:
"Hola como estan"

"Texto pegado"

Pensé algo así:

Código PHP:

  a = TextBox2.Lines.Length 
        For i As Integer = 0 To a 
            TextBox2.Text = TextBox2.Lines(i) + vbNewLine + vbNewLine 
        Next  
   

El problema es que cuando escribo la primera letra por ejemplo la "h" de "hola", el cursor se me devuelve al primer campo, si quisiera escribir toda la palabra me lo hace así: "olah"

Les agradezco mucho.