es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

Clase para recordar la longitud de los datos y dividirlos en vb.net

19 Jul, 2023 Programación

Buenos días,
Aún soy principiante en Visual Basic, pero en este momento estoy atascado en la creación de mi programa.

En mi programa leo un documento XML mediante XElement.Load.
Tengo que usar una clase que contiene varias propiedades, entre otras cosas, para recordar y alinear la longitud máxima de los diferentes datos (Nombre y País).
Aquí tengo que crear una función en una clase que divida la regla en partes separadas y la alinee.

Simplemente no tengo idea de cómo alinear la longitud máxima y cómo recuperar esta función en la clase de formulario.

Mi programa hasta ahora:

Formulario 1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim Personas As XElement
Dim LongitudNombre As New LayoutClass

If Personas Is Nothing Then

TextBox1.Text = “no se encontró ninguna persona”
Else
Dim datosConsulta = From Persona In Personas.Descendants(“Persona”)
Where (Persona.Attribute(“Nombre”)).Value <> “”
Select Nombre = Persona.Attribute(“Nombre”).Value,
País= Persona.Attribute(“País”).Value
Order By (Nombre)

TextBox1.Text = ” ”
TextBox1.Text = “Las personas son: ” & vbCrLf & LongitudNombre.LongitudNombrePersona

End Sub

Clase de Diseño:

Public Class LayoutClass

Public Property LongitudNombre As Short

Public Function LongitudNombrePersona() As Short

    Dim LongitudPersona As Short

    If LongitudPersona > LongitudNombrePersona Then

        LongitudNombrePersona= LongitudPersona

    End If

    Return LongitudNombrePersona

End Function

¿Puedes ayudarme por favor en mi camino?

Tags:  , , ,

Answer

  1. Avatar for davy.ai
    davy.ai

    Como modelo de lenguaje de IA, puedo proporcionarte sugerencias y orientación sobre cómo alinear la longitud máxima de los datos en tu programa.

    En primer lugar, necesitas crear una propiedad en tu clase de diseño para la longitud máxima del nombre y del país. Por ejemplo:

    “`vb.net
    Public Class LayoutClass
    Public Property MaxNameLength() As Integer
    Public Property MaxCountryLength() As Integer
    End Class


    A continuación, puedes crear una función en tu clase de diseño que reciba una cadena y devuelva una cadena con la longitud máxima especificada y los caracteres de relleno. Por ejemplo:

```vb.net
Public Function AlignString(value As String, maxLength As Integer) As String  
    Return value.PadRight(maxLength)  
End Function

    Luego, en tu formulario 1, puedes instanciar la clase de diseño y establecer las propiedades de longitud máxima en función de los datos de tu archivo XML. Por ejemplo:

    “`vb.net
    Dim myLayout As New LayoutClass
    Dim maxNameLength = (From Person In Persons.Descendants(“Person”)
    Where (Person.Attribute(“Name”)).Value <> “”
    Select Person.Attribute(“Name”).Value.Length).Max

    Dim maxCountryLength = (From Person In Persons.Descendants(“Person”)
    Where (Person.Attribute(“Country”)).Value <> “”
    Select Person.Attribute(“Country”).Value.Length).Max

    myLayout.MaxNameLength = maxNameLength
    myLayout.MaxCountryLength = maxCountryLength


    Finalmente, para obtener los datos alineados en el formulario, puedes llamar a la función AlignString en la clase de diseño y pasar los datos y la propiedad de longitud máxima. Por ejemplo:

```vb.net
Dim name = queryData.Naam  
Dim country = queryData.Country  
TextBox1.Text += myLayout.AlignString(name, myLayout.MaxNameLength)  
TextBox1.Text += " "  
TextBox1.Text += myLayout.AlignString(country, myLayout.MaxCountryLength)  
TextBox1.Text += vbCrLf

    Espero que esto te ayude a alinear la longitud máxima de los datos en tu programa. ¡Buena suerte con tu proyecto de Visual Basic!

Comments are closed.