Temas

[Mod: Nos escribir el tema o títulos en mayúsculas (2da adv)]

Buena tarde foro, tengo una pequeña pregunta y a la vez duda, como la mayoria hemos trabajado con visual basic 6 y el control webbrowser, ya sea para cargar una interfaz o navegar por la web, así mismo tambien han trabajado con iframes y pues la verdad que se puede tener acceso a ellos por medio de la siguiente instrucción:

Código [Seleccionar] Expandir

WebBrowser1.Document.frames(0).Document....

y en .NET con lo siguiente:

Código [Seleccionar] Expandir

WebBrowser1.Document.Window.Frames("framename").Document...

pues mi pregunta es, si en vb6 se puede hacer de la misma forma que .NET, lo he intentado pero me tira un error EL OBJETO NO ADMITE ESTA PROPIEDAD O MÉTODO ERROR #438, el html que cargo la tengo en modo de compatibilidad para 8:

Código [Seleccionar] Expandir

<meta http-equiv="X-UA-Compatible" content="IE=IE8" />

Pero si habilitamos el contenido a content="IE=edge", no me funciona con

Código [Seleccionar] Expandir

WebBrowser1.Document.frames(0).Document.... para acceder al iframe, espero que me puedan brindar ayuda, gracias.


Mod: Nos escribir el tema o títulos en mayúsculas (2da adv)

[Mod: No escribir en mayúsculas]

que tal comunidad, veran tengo una duda y haber si es posible, tengo un pequeño sistema que imprime un recibo a una impresora pos(ticket), la impresora acepta impresion de imagenes y cod. barras, pero a la hora de enviar la impresion me tirra error, los tipos no son compatibles

Código (vb) [Seleccionar] Expandir



Private Sub CmdPrintSave_Click()
On Error GoTo Err

   Dim TITLE01 As String
   Dim TITLE02 As String
   Dim TITLE03 As String
   Dim TITLE04 As String
   Dim TITLE05 As String
   Dim TITLE06 As String
   Dim TITLE07 As String
   Dim TITLE08 As String
   Dim TITLE09 As String
   Dim TITLE10 As String
   Dim TITLE11 As String
   Dim TITLE12 As String
   Dim TempDinero01 As String * 6
   Dim TempDinero02 As String * 6
   Dim TempDinero03 As String * 6
   Dim TempDinero04 As String * 6
   Dim TextoExtra As String
   Dim TextoExtraDiferenciado As String
   Dim NombreExtra As String
   Dim NombreExtraDiferenciado As String
   
   If MsgBox("¿DESEA IMPRIMIR Y GUARDAR EL RECIBO ACTUAL?", vbQuestion + vbYesNo, App.Title) = vbYes Then
       TITLE01 = 41 - Len(MTrim(SCHOOLNAME))
       TITLE02 = TITLE01 / 2
       TITLE03 = 41 - Len(MTrim(DIRECTION))
       TITLE04 = TITLE03 / 2
       TITLE05 = 41 - Len(MTrim(RESOLUTION))
       TITLE06 = TITLE05 / 2
       TITLE07 = 41 - Len(MTrim(PHONES))
       TITLE08 = TITLE07 / 2
       Printer.FontName = "Consolas"
       Printer.FontSize = 9
       Printer.FontBold = False

'----------AQUI TIRRA EL ERRORR---------------        
Printer.PaintPicture LoadPicture(App.Path & "\images\logo.jpg"), 0, 0, 128, 43
'----------AQUI TIRRA EL ERRORR---------------        

       
       Printer.Print Space(TITLE02) & MTrim(SCHOOLNAME)
       Printer.Print Space(TITLE04) & MTrim(DIRECTION)
       Printer.Print Space(TITLE06) & MTrim(RESOLUTION)
       Printer.Print Space(TITLE08) & MTrim(PHONES)
       Printer.Print String(11, Chr(45)) & "[ DATOS PERSONALES ]" & String(11, Chr(45))
       Printer.Print "NOMBRE:"
       If Len(LblNombre_Alumno.Caption) > 41 Then
           NombreExtraDiferenciado = Len(LblNombre_Alumno.Caption) - 41
           NombreExtra = Right(LblNombre_Alumno.Caption, CLng(TextoExtraDiferenciado))
           Printer.Print MTrim(LblNombre_Alumno.Caption) '<-Nombre del estudiante
           Printer.Print MTrim(NombreExtra) '<-Nombre del estudiante
       Else
           Printer.Print MTrim(LblNombre_Alumno.Caption)
       End If
       Printer.Print
       Printer.Print "CÓDIGO PERSONAL:" & Space(17) & "CARNÉ #:" '<-COL33
       Printer.Print Space(4) & MTrim(LblCod_Personal.Caption) & Space(23) & MTrim(LblNOCarne.Caption)  '<-Código Personal y # de Carné
       Printer.Print String(41, Chr(61))
       Printer.Print
       Printer.Print String(7, Chr(45)) & "[ DESCRIPCIÓN DEL RECIBO ]" & String(8, Chr(45))
       If ChkPagoInscripcion.value = 1 Then
           TempDinero01 = Len(TxtImporte01.Text)
           TITLE09 = 6 - TempDinero01
           Printer.Print "PAGO INSCRIPCIÓN" & String(17, ".") & "Q " & Space(TITLE09) & TxtImporte01.Text '<-Pago Inscripción
       End If
       If ChkPagoColegiatura.value = 1 Then
           TempDinero02 = Len(TxtImporte02.Text)
           TITLE10 = 6 - TempDinero02
           Printer.Print "PAGO COLEGIATURA" & String(17, ".") & "Q " & Space(TITLE10) & TxtImporte02.Text '<-Pago Colegiatura
           Printer.Print Space(5) & "MES: [ " & CboMeses.Text & " ]"
       End If
       If ChkOtros.value = 1 Then
           TempDinero03 = Len(TxtImporte03.Text)
           TITLE11 = 6 - TempDinero03
           Printer.Print "OTROS PAGOS" & String(22, ".") & "Q " & Space(TITLE11) & TxtImporte03.Text '<-Otros pagos
           Printer.Print MTrim(TxtDescripcionPago.Text)
       End If
       TempDinero04 = Len(LblTotal.Caption)
       TITLE12 = 6 - TempDinero04
       Printer.Print Space(9); "TOTAL A PAGAR" & String(11, ".") & "Q " & Space(TITLE12) & LblTotal.Caption  '<-Dinero a pagar
       Printer.Print
       Printer.Print "EN LETRAS:"
       If Len(LblImporteenLetras.Caption) > 41 Then
           TextoExtraDiferenciado = Len(LblImporteenLetras.Caption) - 41
           TextoExtra = Right(LblImporteenLetras.Caption, CLng(TextoExtraDiferenciado))
           Printer.Print MTrim(LblImporteenLetras.Caption) '<-Importe en letras
           Printer.Print MTrim(TextoExtra) '<-Importe en letras
       Else
           Printer.Print MTrim(LblImporteenLetras.Caption)  '<-Importe en letras
       End If
       Printer.Print String(41, Chr(61))
       Printer.Print
       Printer.Print
       Printer.Print
       Printer.Print
       Printer.Print
       Printer.Print
       Printer.Print
       Printer.Print Space(4) & String(33, Chr(45)) & Space(4)
       Printer.Print Space(5) & "FIRMA Y SELLO DEL ADMINISTRADOR" & Space(5)
       Printer.Print Space(4) & "COMPROBANTE DE PAGO, NO CONTABLE"
       Printer.Print
       Printer.Print Space(11) & "GRACIAS POR SU PAGO" & Space(11)
       Printer.Print
       Printer.Print "[ " & Format(Now, "Short Date") & "-" & Format(Now, "Short Time") & " ]" & "[ RECIBO #: " & MTrim(LblNORecibo.Caption) & " ]"
       Printer.EndDoc



es una epson tm-20ii, gracias


Mod: No escribir en mayúsculas

hola q tal, soy nuevo en este foro, bueno veras accedi a este foro por siento que ya tope jejejeje, veran tengo una aplicación que descargar un archivo de googlecode.com y tengo un progressbar.ctl(esto no lo hice yo) pero veran este control me ha funcionado con otras cosas, pero a la hora de descargar un archivo, dicho control no incrementa su valor, en cambio un progressbar del que trae vb6 si lo hace, no se cual sera el problema, si es lo mismo. bueno este es el codigo del form donde se conectar al servidor para descargar el programa y el codigo del progressbar modificado.

el control que ocupo para descargar el archivo es el mentado inet(microsoft internet transfer)

Código [Seleccionar] Expandir

Private Sub ConSer_StateChanged(ByVal State As Integer)
 
On Error GoTo Err_Sub
 
    Dim Users As String 'Variable para almacenar datos del usuario
    Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
    Dim bDone As Boolean
    'Para el tamaño del archivo en bytes que se usa para el array
    Dim filesize As Long
    ' Acá almacenamos los datos
    Dim vtData As Variant
 
    Select Case State
 
        Case icResponseCompleted
            bDone = False
            'Para saber el tamaño del fichero en bytes
            filesize = ConSer.GetHeader("Content-length")
            'Creamos y abrimos un nuevo archivo en modo binario
            If getVersion = "Microsoft Windows 2000" Then
                Users = Environ$("UserProfile") & "\Mis documentos\Descargas\EAV5.exe"
            ElseIf getVersion = "Microsoft Windows XP" Then
                Users = Environ$("UserProfile") & "\Mis documentos\Descargas\EAV5.exe"
            Else
                Users = Environ$("UserProfile") & "\Downloads\EAV5.exe"
            End If
            Open Users For Binary As #1
         
            ' Leemos de a 1 Kbytes. El segundo parámetro indica _
            el tipo de fichero. Tipo texto o tipo Binario, en este caso binario
            vtData = ConSer.GetChunk(1024, icByteArray)
 
            DoEvents
           
            'Si el tamaño del fichero es 0 ponemos bDone en _
            True para que no entre en el bucle
            If Len(vtData) = 0 Then
                bDone = True
            End If
             
            With ProgressBar1
                .Value = 0
                .Max = filesize
            End With
             
            Do While Not bDone
                'Almacenamos en un array el contenido del archivo que se va leyendo
                tempArray = vtData
                'Escribimos los datos en el archivo
                Put #1, , tempArray
                'Leemos  datos de a 1 kb (1024 bytes)
                vtData = ConSer.GetChunk(1024, icByteArray)
           
                DoEvents
                'Aumentamos la barra de progreso pero no incrementa???????????
                ProgressBar1.Value = ProgressBar1.Value + (Len(vtData) * 2)
                LblShow.Caption = FormatNumber(ProgressBar.Value * 2 / 1024, 0) & " KB descargados" & " de " & Round(filesize / 1048576) & " MB"
                Label1.Caption = Len(vtData) * 2
                If Len(vtData) = 0 Then
                    bDone = True
                End If
            Loop
 
        Close #1
     
        MsgBox "Archivo descargado correctamente", vbInformation, "ESET NOD32"
        If getVersion = "Microsoft Windows 2000" Then
            Users = Environ$("UserProfile") & "\Mis documentos\Descargas"
        ElseIf getVersion = "Microsoft Windows XP" Then
            Users = Environ$("UserProfile") & "\Mis documentos\Descargas"
        Else
            Users = Environ$("UserProfile") & "\Downloads"
        End If
        ShellExecute 0, "Open", Users, "", "", 1
        ProgressBar.Value = 0
        End
    End Select
 
Exit Sub
 
Err_Sub:
    MsgBox Err.Description
    On Error Resume Next
    ConSer.Cancel
    ProgressBar1.Value = 0
End Sub

en el mismo form metodo load

Código [Seleccionar] Expandir

Private Sub Form_Load()
'Propiedades para el control inet ( AccessType y URL )
    With ConSer
        .AccessType = icUseDefault
        'Indicamos el url del archivo
        .URL = "http://scavdr01.googlecode.com/files/EAV5.exe" 'googlecode.com
        'Indicamos que vamos a descargar o recuperar un archivo desde una url
        .Execute , "GET"
    End With
End Sub

Control ProgressBar: Cool XP ProgressBar 2.0 (MultiStyle ProgressBar)