Mensajes

Parece que ya está solucionado. Muchas gracias a todos, de verdad. Un saludo.

Vale creo que he dado en un punto clave, el list1 depende directamente del campo/función SEtiquetaTxt y PlantillasLST (que tambien es un listbox que esta bajo el cuadrito de Listbox1) . Tal y como lo entiendo el texto de List1 viene de el PlantillaLST y este a su vez, de SEtiquetaTxt.. ¿puede tener algo que ver o estoy dando palos de ciego?

No me los ordena para nada, arriba tienes el código del formulario que trabaja con el listbox. Hay otro formulario pero no tiene relevancia para este listbox (no aparece de ninguna manera en ese formulario). Lo único que se me ocurre es que tenga que hacerse algo en el módulo de funciones que si aparece el listbox, pero no tengo muy claro lo que hace. Os pego el código y subrayo (esta casi al final) la parte del código que pueda ser relevante. La pregunta es: esta claro que por lo que sea el sorted no funciona, ¿no hay manera de intentar ordenar el listbox de alguna otra manera?. Graciñas.

Código [Seleccionar] Expandir


Public Contador As Integer, Comproba As String, Bucle As Long, Intro As String
Public Letra As String, UltimoValor As String, Ficheiro2
Public TextoFixoAplicador As String, NLiñas As String
Public Function CargarOFs()
Dim Tamaño As Integer, ManexoSistema, ManexoFicheiros, Un
Call ReiniciarLSTs
Tamaño = Len(ConfigFRM.ConfigTXT(0).Text): Contador = 0
On Error Resume Next
Set ManexoSistema = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set ManexoFicheiros = ManexoSistema.GetFolder(ConfigFRM.ConfigTXT(0).Text)
For Each Un In ManexoFicheiros.Files
    Un = Right(Un, Len(Un) - Tamaño)
    If Right(Un, 3) = ".ok" Or Right(Un, 3) = ".OK" Or Right(Un, 3) = ".Ok" Or Right(Un, 3) = ".oK" Then
        Un = Left(Un, Len(Un) - 3)
        PrincipalFRM.FicheirosLST.List(Contador) = Un
        Contador = Contador + 1
    End If
Next
End Function

Public Function CargarFicheiro(Tipo As String, Ficheiro As String)
Contador = 0
Comproba = Dir(Ficheiro)
Select Case Comproba
    Case ""
    Case Else
        Open Ficheiro For Input Access Read As #1
            Do While Not EOF(1)
                Letra = Input(1, #1)
                Select Case Letra
                    Case Chr(13): Contador = Contador + 1
                    Case Chr(10)
                    Case Else:
                        Select Case Tipo
                            Case "Config": ConfigFRM.ConfigTXT(Contador).Text = ConfigFRM.ConfigTXT(Contador).Text & Letra
                        End Select
                End Select
            Loop
        Close #1
End Select
End Function

Public Function GardarConfig()
    Dim Configurar As String
    For Bucle = 0 To (ConfigFRM.ConfigTXT.Count - 1)
        Configurar = Configurar & ConfigFRM.ConfigTXT(Bucle).Text & Intro
    Next Bucle
    Open App.Path & "\config.cfg" For Output Access Write As #1
        Print #1, Configurar
    Close #1
End Function

Public Function LeerOFs()
For Bucle = 0 To (PrincipalFRM.FicheirosLST.ListCount - 1)
    Contador = 0
    Open ConfigFRM.ConfigTXT(0).Text & PrincipalFRM.FicheirosLST.List(Bucle) & ".ok" For Input Access Read As #1
        Do While Not EOF(1)
            Letra = Input(1, #1)
            Select Case Letra
                Case Chr(13)
                Case Chr(10)
                Case "|": Contador = Contador + 1
                Case Else
                        Select Case Contador
                            Case 0: PrincipalFRM.CodigoLST.List(Bucle) = PrincipalFRM.CodigoLST.List(Bucle) & Letra
                            Case 1: PrincipalFRM.DescripcionLST.List(Bucle) = PrincipalFRM.DescripcionLST.List(Bucle) & Letra
                            Case 2: PrincipalFRM.LoteLST.List(Bucle) = PrincipalFRM.LoteLST.List(Bucle) & Letra
                            Case 3: PrincipalFRM.PesoLST.List(Bucle) = PrincipalFRM.PesoLST.List(Bucle) & Letra
                            Case 4: PrincipalFRM.LineaLST.List(Bucle) = PrincipalFRM.LineaLST.List(Bucle) & Letra
                            Case 5: PrincipalFRM.SacoLST.List(Bucle) = PrincipalFRM.SacoLST.List(Bucle) & Letra
                            Case 6: PrincipalFRM.SeriesLST.List(Bucle) = PrincipalFRM.SeriesLST.List(Bucle) & Letra
                            Case 7: PrincipalFRM.OFsLST.List(Bucle) = PrincipalFRM.OFsLST.List(Bucle) & Letra
                            Case 8:
                                    On Error Resume Next
                                    PrincipalFRM.CantLST.List(Bucle) = PrincipalFRM.CantLST.List(Bucle) & Letra
                            Case 9:
                                    On Error Resume Next
                                    PrincipalFRM.EnvaseLST.List(Bucle) = PrincipalFRM.EnvaseLST.List(Bucle) & Letra
                            Case 10:
                                    On Error Resume Next
                                    PrincipalFRM.GranelLST.List(Bucle) = PrincipalFRM.GranelLST.List(Bucle) & Letra
                        End Select
            End Select
        Loop
    Close #1
Next Bucle
End Function

Public Function ReiniciarLSTs()
PrincipalFRM.LineaLST.Clear
PrincipalFRM.LoteLST.Clear
PrincipalFRM.CodigoLST.Clear
PrincipalFRM.OFsLST.Clear
PrincipalFRM.DescripcionLST.Clear
PrincipalFRM.FicheirosLST.Clear
PrincipalFRM.PesoLST.Clear
PrincipalFRM.SacoLST.Clear
PrincipalFRM.SeriesLST.Clear
On Error Resume Next
PrincipalFRM.GranelLST.Clear
On Error Resume Next
PrincipalFRM.EnvaseLST.Clear
On Error Resume Next
PrincipalFRM.CantLST.Clear
End Function

Public Function PasarValor(Numero As Integer)
With PrincipalFRM
    .SLineaTXT.Text = .LineaLST.List(Numero)
    .SLoteTXT.Text = .LoteLST.List(Numero)
    .ScodigoTXT.Text = .CodigoLST.List(Numero)
    .SOFsTXT.Text = .OFsLST.List(Numero)
    .SDescripcionTXT.Text = .DescripcionLST.List(Numero)
    .SPesoTXT.Text = .PesoLST.List(Numero)
    .SSacoTXT.Text = .SacoLST.List(Numero)
    .SSeriesTXT.Text = .SeriesLST.List(Numero)
    On Error Resume Next
    .SCantidadeTXT.Text = .CantLST.List(Numero)
    On Error Resume Next
    .SenvaseTXT.Text = .EnvaseLST.List(Numero)
    On Error Resume Next
    .SGranelTXT.Text = .GranelLST.List(Numero)
End With
End Function

Public Function AxustarLSTs(Numero As Integer)
With PrincipalFRM
    .FicheirosLST.Selected(Numero) = True
    .LineaLST.Selected(Numero) = True
    .LoteLST.Selected(Numero) = True
    .CodigoLST.Selected(Numero) = True
    .OFsLST.Selected(Numero) = True
    .DescripcionLST.Selected(Numero) = True
    .PesoLST.Selected(Numero) = True
    .SacoLST.Selected(Numero) = True
    .SeriesLST.Selected(Numero) = True
    On Error Resume Next
    .CantLST.Selected(Numero) = True
    On Error Resume Next
    .EnvaseLST.Selected(Numero) = True
    On Error Resume Next
    .GranelLST.Selected(Numero) = True
End With
End Function

Public Function BorrarSeleccions()
Dim Boclo As Integer
With PrincipalFRM
    For Boclo = 0 To (.FicheirosLST.ListCount - 1)
        .FicheirosLST.Selected(Boclo) = False
        .LineaLST.Selected(Boclo) = False
        .LoteLST.Selected(Boclo) = False
        .CodigoLST.Selected(Boclo) = False
        .OFsLST.Selected(Boclo) = False
        .DescripcionLST.Selected(Boclo) = False
        .PesoLST.Selected(Boclo) = False
        .SacoLST.Selected(Boclo) = False
        .SeriesLST.Selected(Boclo) = False
        On Error Resume Next
        .CantLST.Selected(Boclo) = False
        On Error Resume Next
        .EnvaseLST.Selected(Boclo) = False
        On Error Resume Next
        .GranelLST.Selected(Boclo) = False
    Next Boclo
End With
End Function
Public Function ReiniciarEnvio()
With PrincipalFRM
    .SLineaTXT.Text = ""
    .SLoteTXT.Text = ""
    .ScodigoTXT.Text = ""
    .SOFsTXT.Text = ""
    .SDescripcionTXT.Text = ""
    .SPesoTXT.Text = ""
    .SSacoTXT.Text = ""
    .SSeriesTXT.Text = ""
    On Error Resume Next
    .SCantidadeTXT.Text = ""
    On Error Resume Next
    .SenvaseTXT.Text = ""
    On Error Resume Next
    .SGranelTXT.Text = ""
End With
End Function

Public Function LeerPlantillas()
Dim Tamaño As Integer, ManexoSistema, ManexoFicheiros, Un
Tamaño = Len(ConfigFRM.ConfigTXT(2).Text): Contador = 0
Set ManexoSistema = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set ManexoFicheiros = ManexoSistema.GetFolder(ConfigFRM.ConfigTXT(2).Text)
If Err.Number <> 0 Then
    MsgBox ("Erro grave de configuración leendo as plantillas")
    Err.Clear
    Exit Function
End If
[b][u]For Each Un In ManexoFicheiros.Files
    Un = Right(Un, Len(Un) - Tamaño)
    If Right(Un, 4) = ".lbe" Or Right(Un, 4) = ".LBE" Or Right(Un, 4) = ".Lbe" Or Right(Un, 4) = ".lbE" Then
        Un = Left(Un, Len(Un) - 4)
        PrincipalFRM.PlantillasLST.List(Contador) = Un
        PrincipalFRM.List1.List(Contador) = Un
        Contador = Contador + 1
    End If[/u][/b]
Next
End Function

Public Function BorrarFicheiro(NomeFicheiro As String)
Ficheiro2 = ConfigFRM.ConfigTXT(0).Text & NomeFicheiro & ".ok"
Comproba = Dir(Ficheiro2)
Select Case Comproba
    Case ""
        MsgBox ("Non se puido borrar o ficheiro da orde de fabricación")
    Case Else
        Kill Ficheiro2
End Select
Call CargarOFs
Call LeerOFs
Call ReiniciarEnvio
End Function

Public Function EnviarOF(NomeOF As String, Contido As String)
Ficheiro = ConfigFRM.ConfigTXT(1).Text & NomeOF & ".ord"
Open Ficheiro For Output Access Write As #1
    Print #1, Contido
Close #1
Call BorrarFicheiro(NomeOF)
Call ReiniciarLSTs
Call CargarOFs
Call LeerOFs
End Function


Vale, a ver uso, AddItem. Lo que he hecho es:

Código [Seleccionar] Expandir

If Left(PlantillasLST.List(Bucle), tomoño) = BuscaTXT.Text Then
        'List1.List(conto) = PlantillasLST.List(Bucle)
        'conto = conto + 1
       List1.AddItem (PlantillasLST.List(Bucle))
    End If

Y poner Sorted = True en el List1 y para el PlantillasLST.List

Pero sigue sin ir!! no sé que pasa!! alguna idea?¿

Los valores que quiero que ordene el Listbox son nombres de peces alfabéticamente..

Para que os hagais una idea, os pongo una captura: el listbox va enlazado a otros campos..¿puede ser esta la razón de que no lo ordene?.. no se muy bien que hacer..




Gracias por vuestras ayudas y comentarios.

Um.. Gracias de nuevo. Voy a probar a ver. En principio solo quiero que el List1 me muestre los resultados alfabéticamente y YA. He puesto tambien el Sorted de PlantillasLST en True tambien. Con poner lo de AddItem, ¿dices que ya valdría? ¿no haría falta definir el True en el código? ¿solo con ponerlo en la opciones como True ya vale?. Muchas gracias, me estais ayudando mucho.

A ver pongo el List1.Sorted = True al principio del código, despues de definir variables y cuando doy a compilar me sale "error de compilacion no se puede asignar a propiedad de solo lectura".. pero si lo cambio a Listbox.Sorted = True no me da dicho error y si que me deja compilar, pero no sé si me funciona o no.. ¿A que se debe esto? ¿Es por que hay que definir el objeto como propiedad general o como?. Gracias de nuevo.

Buenos dias, muchas gracias por contestar. Agradezco mucho las aclaraciones, en realidad solo quiero que el listbox me muestre el contenido ALFABÉTICAMENTE... en ese caso tendría con poner el sorted en sitio adecuado, ¿valdría?.. En cualquier caso me apunto lo de los numeros pues seguramente me sea últil en el futuro... 

Buenas. Tengo una aplicación (no creada por mi) en la cual, uno de los ListBox ha de mostrarse por orden alfabético.. Sé que la opción más fácil es la de modificar la propiedad Sorted para el Listbox. El tema es que haga lo que haga, no funciona.

Os pego un par de pantallazos para que veias el tema :






Como veis, he probado a cambiarlo en cuadro de propiedades y tambien en el código pero nada. Decir que tengo (más bien tenía, pero siempre a nivel bastante básico) algo de conocimientos de Vb pero hace muchísimo que no lo toco y ahora acabo de entrar en una nueva empresa y las estoy pasando algo canutas. Asi que, por favor si pudierais echarme una mano os lo agradecería inmensamente. Por si fuera de ayuda, tambien os pego el código del formulario principal.

Código [Seleccionar] Expandir

Private Sub BuscaTXT_Change()
Dim tomoño As String, conto As Integer
List1.Clear
tomoño = Len(BuscaTXT.Text)
'If tomoño <> "" Then
For Bucle = 0 To (PlantillasLST.ListCount - 1)
    If Left(PlantillasLST.List(Bucle), tomoño) = BuscaTXT.Text Then
        List1.List(conto) = PlantillasLST.List(Bucle)
        conto = conto + 1
    End If
Next Bucle
'Else
'For Bucle = 0 To (PlantillasLST.ListCount - 1)
'    List1.List(Bucle) = PlantillasLST.List(Bucle)
'Next Bucle
'End If
End Sub

Private Sub CodigoLST_Click()
    Call AxustarLSTs(CodigoLST.ListIndex)
    Call PasarValor(CodigoLST.ListIndex)
End Sub

Private Sub ControlTMP_Timer()
    Estado = True
    If SOFsTXT.Text = "" Then Estado = False
    If SEtiquetaTXT.Text = "" Then Estado = False
    If Estado = True Then FuncionCMD(1).Enabled = True Else FuncionCMD(1).Enabled = False
End Sub

Private Sub DescripcionLST_Click()
    Call AxustarLSTs(DescripcionLST.ListIndex)
    Call PasarValor(DescripcionLST.ListIndex)
End Sub

Private Sub FicheirosLST_Click()
    Call AxustarLSTs(FicheirosLST.ListIndex)
    Call PasarValor(FicheirosLST.ListIndex)
End Sub

Private Sub Form_Load()
    Intro = Chr(13) & Chr(10)
    Call CargarFicheiro("Config", App.Path & "\config.cfg")
    Call CargarOFs
    Call LeerOFs
    Call LeerPlantillas
    Seguro = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    End
End Sub

Private Sub FuncionCMD_Click(Index As Integer)
    Select Case Index
        Case 0:
                Call CargarOFs
                Call LeerOFs
        Case 1:
                Call EnviarOF(SSeriesTXT.Text & SOFsTXT.Text, SSeriesTXT.Text & Intro & SOFsTXT.Text & Intro & SDescripcionTXT.Text & Intro & SLoteTXT.Text & Intro & SPesoTXT.Text & Intro & ScodigoTXT.Text & Intro & SSacoTXT.Text & Intro & SLineaTXT.Text & Intro & SEtiquetaTXT.Text & Intro & SCantidadeTXT.Text & Intro & SenvaseTXT.Text & Intro & SGranelTXT.Text & Intro)
        Case 2:
                If FicheirosLST.ListIndex <> -1 Then
                    Call BorrarFicheiro(FicheirosLST.List(FicheirosLST.ListIndex))
                End If
        Case 3: Call LeerPlantillas
        Case 4: SEtiquetaTXT.Text = "-": SSacoTXT.Text = "N"
        'Case 5:
                'Call EnviarOF(Right("0" & Second(Time), 2) & Right("000000" & Minute(Time), 6), Right("0" & Second(Time), 2) & Intro & Right("000000" & Minute(Time), 6) & Intro & "PEIXE FRESCO" & Intro & "L4632" & Intro & "40KG" & Intro & "45687" & Intro & "S" & Intro & "1" & Intro & SEtiquetaTXT.Text & Intro)
    End Select
End Sub

Private Sub LineaLST_Click()
    Call AxustarLSTs(LineaLST.ListIndex)
    Call PasarValor(LineaLST.ListIndex)
End Sub

Private Sub List1_Click()
SEtiquetaTXT.Text = List1.Text
List1.Sorted = True
End Sub

Private Sub LoteLST_Click()
    Call AxustarLSTs(LoteLST.ListIndex)
    Call PasarValor(LoteLST.ListIndex)
End Sub

Private Sub MNUConfigurar_Click()
    ConfigFRM.Visible = True
End Sub

Private Sub MNUPechar_Click()
    End
End Sub

Private Sub OFsLST_Click()
    Call AxustarLSTs(OFsLST.ListIndex)
    Call PasarValor(OFsLST.ListIndex)
End Sub

Private Sub PesoLST_Click()
    Call AxustarLSTs(PesoLST.ListIndex)
    Call PasarValor(PesoLST.ListIndex)
End Sub

Private Sub PlantillasLST_Click()
   
    SEtiquetaTXT.Text = PlantillasLST.Text
    SSacoTXT.Text = "S"
   
End Sub

Private Sub SacoLST_Click()
    Call AxustarLSTs(SacoLST.ListIndex)
    Call PasarValor(SacoLST.ListIndex)
End Sub

Private Sub SeriesLST_Click()
    Call AxustarLSTs(SeriesLST.ListIndex)
    Call PasarValor(SeriesLST.ListIndex)
End Sub


Muchas gracias y perdonad si la pregunta es muy tonta pero estoy bastante ofuscado. Graciñas de nuevo.