Mensajes

es xq no podes usar solamente la var NewVer para obtener los datos, creo que tenes que obtener x tipo, NewVer.NomApp o sino xq quiere leer 300 caracteres cuando no los hay, alguna de esas 2 razones puede ser, asegurate de que tenga 330 caracteres el archivo tuyo y va a funcionar o proba poner un On Error Resume Next al principio del Sub VerAct()


Sancho.Mazorka   

De nada maxtextla, acuerdate de usar las etiquetas de code, asi podemos entender mejor el code 

Sancho.Mazorka   

Creo que esto si es lo que buscabas!
Para que funcione bien coloca la propiedad MaxLength del Text1 en 2
Si colocas una letra sale un error, asi que arregla eso, es facil!

Código (vb) [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) = 1 Then
    If Text1.Text >= 6 Then
        If KeyAscii <> 8 Then
            KeyAscii = 0
        Else
            GoTo FIN
        End If
    End If
End If
FIN:
End Sub


Sancho.Mazorka   

Vas a tener que conseguir un manual de OCX para poder hacerlo, en la web del Guille hay varios.


Sancho.Mazorka   

No entendi bien tu pregunta maxtextla, podrias ser mas claro, pero supongo que vos queres que el textbox no acepte numeros mayor a 60, que el limite maximo sea 59, eso es lo que queres ??? Decime si es eso


Sancho.Mazorka   

No habias preguntado esto ya ? O es un Déjà vu mio    Bueno la cosa es que si te entendi bien queres hacer un OCX que al llamadarlo te cambie el Skin de tus aplicaciones ? Y si es posible, pero es mas conveniente usar otras cosas que no traigan tanto problema, como los .RES o una .DLL o create un sistema propio de actualizacion de plugins.


Sancho.Mazorka   

No habras querido decir PictureBox vs Image ? Y es mejor segun para que tipo de aplicacion, xq tienen propiedades diferentes. Por ej: un PictureBox sirve para dibujar y aplicaciones que usen DirectX, y en cambio el Image no, pero el Image tiene la propiedad Stretch que permite redimensionar una imagen cosa que el PictureBox no.


Sancho.Mazorka   

Fijate hay un tema pegado a eso, te dejo el link (esta 3º)
http://foro.elhacker.net/index.php/topic,151013.0.html

Sancho.Mazorka   

Creo que hay un post pegado sobre eso y se llama:
[TUTORIAL]Crear Facturas/Pedidos/Etiquetas co Data Report desde Visual Basic 6.0
http://foro.elhacker.net/index.php/topic,151013.0.html

Espero que te sirva. (Esos son los Data Report y Data Enviroment que son para manejar BD)

Sancho.Mazorka   

Tu aqui tienes error en la linea que te voy a marcar, ya que si no existe un funcion te pide 1 parametro no puede colocarle 2, o colocar una "," sin poner el 2 parametro porque da error:

Código (vb) [Seleccionar] Expandir

Private Sub ExportarListadoMSExcel()
Dim AppExcel As Object   
Set AppExcel = CreateObject("Excel.application")
With AppExcel
    .Visible = True
    .Workbooks.Add '' Agregamos un Libro Nuevo

    Dim nFila As Integer
    nFila = 1 '' Agregos los titulos a nuestra columnas
    .Cells(nFila, 1) = "Id"
    .Cells(nFila, 2) = "Pais"
    .Cells(nFila, 3) = "Estado"
    Dim i As Long
    For i = 1 To Me.ListView1.ListItems.Count
        nFila = nFila + 1
        .Cells(nFila, 1) = Me.ListView1.ListItems(i).Text
        .Cells(nFila, 2) = Me.ListView1.ListItems(i).ListSubItems(1).Text
        .Cells(nFila, 3) = Me.ListView1.ListItems(i).ListSubItems(2).Text
    Next i
   
    .range("A1:C1").Font.Bold = True
    .range("A1:C1").Interior.Color = RGB(192, 200, 200)
    .Cells.EntireColumn.AutoFit

    '' ************* ERROR AL ALINEAR ayuda porfa.. **********************
    .Range("C1").TextAlign = fmTextAlignCenter
    .Range("A1:H1").HorizontalAlignment = xlCenter
    .cell(1,).TextAlign = fmTextAlignCenter 'ERORRRRRR  .cell(1,)  sacale la "," (coma)
    '' ************************************************

    .ActiveWorkbook.SaveAs App.Path & "listado.xls" ''Guardas la hoja actual

End With

End Sub

y otra cosa, podes postear tu code, o pasarmelo, me interesa ayudarte y de paso me sirve a mi. rhcp_269@hotmail.com

Sancho.Mazorka