elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / duda con referencia html en: 28 Julio 2016, 22:00 pm
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:
WebBrowser1.Document.frames(0).Document....

y en .NET con lo siguiente:

Código:
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:
<meta http-equiv="X-UA-Compatible" content="IE=IE8" />

Pero si habilitamos el contenido a content="IE=edge", no me funciona con
Código:
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)
2  Programación / Programación Visual Basic / imprimir imagen en impresora pos(ticket) en: 27 Enero 2016, 18:00 pm
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
  1.  
  2. Private Sub CmdPrintSave_Click()
  3. On Error GoTo Err
  4.  
  5.     Dim TITLE01 As String
  6.     Dim TITLE02 As String
  7.     Dim TITLE03 As String
  8.     Dim TITLE04 As String
  9.     Dim TITLE05 As String
  10.     Dim TITLE06 As String
  11.     Dim TITLE07 As String
  12.     Dim TITLE08 As String
  13.     Dim TITLE09 As String
  14.     Dim TITLE10 As String
  15.     Dim TITLE11 As String
  16.     Dim TITLE12 As String
  17.     Dim TempDinero01 As String * 6
  18.     Dim TempDinero02 As String * 6
  19.     Dim TempDinero03 As String * 6
  20.     Dim TempDinero04 As String * 6
  21.     Dim TextoExtra As String
  22.     Dim TextoExtraDiferenciado As String
  23.     Dim NombreExtra As String
  24.     Dim NombreExtraDiferenciado As String
  25.  
  26.     If MsgBox("¿DESEA IMPRIMIR Y GUARDAR EL RECIBO ACTUAL?", vbQuestion + vbYesNo, App.Title) = vbYes Then
  27.         TITLE01 = 41 - Len(MTrim(SCHOOLNAME))
  28.         TITLE02 = TITLE01 / 2
  29.         TITLE03 = 41 - Len(MTrim(DIRECTION))
  30.         TITLE04 = TITLE03 / 2
  31.         TITLE05 = 41 - Len(MTrim(RESOLUTION))
  32.         TITLE06 = TITLE05 / 2
  33.         TITLE07 = 41 - Len(MTrim(PHONES))
  34.         TITLE08 = TITLE07 / 2
  35.         Printer.FontName = "Consolas"
  36.         Printer.FontSize = 9
  37.         Printer.FontBold = False
  38.  
  39. '----------AQUI TIRRA EL ERRORR---------------        
  40. Printer.PaintPicture LoadPicture(App.Path & "\images\logo.jpg"), 0, 0, 128, 43
  41. '----------AQUI TIRRA EL ERRORR---------------        
  42.  
  43.  
  44.         Printer.Print Space(TITLE02) & MTrim(SCHOOLNAME)
  45.         Printer.Print Space(TITLE04) & MTrim(DIRECTION)
  46.         Printer.Print Space(TITLE06) & MTrim(RESOLUTION)
  47.         Printer.Print Space(TITLE08) & MTrim(PHONES)
  48.         Printer.Print String(11, Chr(45)) & "[ DATOS PERSONALES ]" & String(11, Chr(45))
  49.         Printer.Print "NOMBRE:"
  50.         If Len(LblNombre_Alumno.Caption) > 41 Then
  51.             NombreExtraDiferenciado = Len(LblNombre_Alumno.Caption) - 41
  52.             NombreExtra = Right(LblNombre_Alumno.Caption, CLng(TextoExtraDiferenciado))
  53.             Printer.Print MTrim(LblNombre_Alumno.Caption) '<-Nombre del estudiante
  54.             Printer.Print MTrim(NombreExtra) '<-Nombre del estudiante
  55.         Else
  56.             Printer.Print MTrim(LblNombre_Alumno.Caption)
  57.         End If
  58.         Printer.Print
  59.         Printer.Print "CÓDIGO PERSONAL:" & Space(17) & "CARNÉ #:" '<-COL33
  60.         Printer.Print Space(4) & MTrim(LblCod_Personal.Caption) & Space(23) & MTrim(LblNOCarne.Caption)  '<-Código Personal y # de Carné
  61.         Printer.Print String(41, Chr(61))
  62.         Printer.Print
  63.         Printer.Print String(7, Chr(45)) & "[ DESCRIPCIÓN DEL RECIBO ]" & String(8, Chr(45))
  64.         If ChkPagoInscripcion.value = 1 Then
  65.             TempDinero01 = Len(TxtImporte01.Text)
  66.             TITLE09 = 6 - TempDinero01
  67.             Printer.Print "PAGO INSCRIPCIÓN" & String(17, ".") & "Q " & Space(TITLE09) & TxtImporte01.Text '<-Pago Inscripción
  68.         End If
  69.         If ChkPagoColegiatura.value = 1 Then
  70.             TempDinero02 = Len(TxtImporte02.Text)
  71.             TITLE10 = 6 - TempDinero02
  72.             Printer.Print "PAGO COLEGIATURA" & String(17, ".") & "Q " & Space(TITLE10) & TxtImporte02.Text '<-Pago Colegiatura
  73.             Printer.Print Space(5) & "MES: [ " & CboMeses.Text & " ]"
  74.         End If
  75.         If ChkOtros.value = 1 Then
  76.             TempDinero03 = Len(TxtImporte03.Text)
  77.             TITLE11 = 6 - TempDinero03
  78.             Printer.Print "OTROS PAGOS" & String(22, ".") & "Q " & Space(TITLE11) & TxtImporte03.Text '<-Otros pagos
  79.             Printer.Print MTrim(TxtDescripcionPago.Text)
  80.         End If
  81.         TempDinero04 = Len(LblTotal.Caption)
  82.         TITLE12 = 6 - TempDinero04
  83.         Printer.Print Space(9); "TOTAL A PAGAR" & String(11, ".") & "Q " & Space(TITLE12) & LblTotal.Caption  '<-Dinero a pagar
  84.         Printer.Print
  85.         Printer.Print "EN LETRAS:"
  86.         If Len(LblImporteenLetras.Caption) > 41 Then
  87.             TextoExtraDiferenciado = Len(LblImporteenLetras.Caption) - 41
  88.             TextoExtra = Right(LblImporteenLetras.Caption, CLng(TextoExtraDiferenciado))
  89.             Printer.Print MTrim(LblImporteenLetras.Caption) '<-Importe en letras
  90.             Printer.Print MTrim(TextoExtra) '<-Importe en letras
  91.         Else
  92.             Printer.Print MTrim(LblImporteenLetras.Caption)  '<-Importe en letras
  93.         End If
  94.         Printer.Print String(41, Chr(61))
  95.         Printer.Print
  96.         Printer.Print
  97.         Printer.Print
  98.         Printer.Print
  99.         Printer.Print
  100.         Printer.Print
  101.         Printer.Print
  102.         Printer.Print Space(4) & String(33, Chr(45)) & Space(4)
  103.         Printer.Print Space(5) & "FIRMA Y SELLO DEL ADMINISTRADOR" & Space(5)
  104.         Printer.Print Space(4) & "COMPROBANTE DE PAGO, NO CONTABLE"
  105.         Printer.Print
  106.         Printer.Print Space(11) & "GRACIAS POR SU PAGO" & Space(11)
  107.         Printer.Print
  108.         Printer.Print "[ " & Format(Now, "Short Date") & "-" & Format(Now, "Short Time") & " ]" & "[ RECIBO #: " & MTrim(LblNORecibo.Caption) & " ]"
  109.         Printer.EndDoc
  110.  
  111.  

es una epson tm-20ii, gracias


Mod: No escribir en mayúsculas
3  Programación / Programación Visual Basic / Problema con ProgressBar en: 24 Agosto 2012, 01:43 am
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:
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:
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)
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines