Mensajes

Si fuese un sfx de winrar la instrucción por medio de linea de comando es: -d<trayectoria> -p<contraseña> -s2<modo silencioso>

Call Shell("Archivo.exe" & "-d" & Chr(34) & "C:\Carpeta" & Chr(34) & "-p" & Chr(34) & "123" & Chr(34) & "-s2")

[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

[webbrowser objetc]

consulta webbrowser objetc ahi encontrar elementos como GetElementById(), etc.

Es correcto lo que te escribio el compañero R3Z, esperamos que nuestras respuestas te puedan solucionar tu problema.

Código (vb) [Seleccionar] Expandir


Private Sub txtprecio_LostFocus()
If IsNumeric(txtprecio.Text) Then
    If txtprecio.Text = txtprecio.Text Then
        MsgBox "La Transferencia Ha Sido Completada y ha sido de " & txtprecio.Text
    End If
End If
End Sub


hola, te puedo ayudar con el archivo ini:

En un Módulo

Código [Seleccionar] Expandir

'Función api que recupera un valor-dato de un archivo Ini
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'Función api que Escribe un valor - dato en un archivo Ini
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long

Public Function Saveini(Path_INI As String, Title As String, Key As String, Valor As Variant) As String
 
    WritePrivateProfileString Title, Key, Valor, Path_INI
 
End Function

Public Function Openini(Path_INI As String, Title As String, Key As String, Default As Variant) As String
 
    Dim bufer As String * 256
    Dim Len_Value As Long
 
    Len_Value = GetPrivateProfileString(Title, Key, Default, bufer, Len(bufer), Path_INI)
         
    Openini = Left$(bufer, Len_Value)
 
End Function




Para guardar en el ini:

Código [Seleccionar] Expandir


Call Saveini(App.path & "\Archivo.ini", "Clave-unica-d-carpeta", "RutaOriginal", "D:\ORDEN_DATOS\A\CANTO")


Para consultar:

Código [Seleccionar] Expandir

Variable = Openini(App.path & "\Archivo.ini", textbox1.text, "RutaOriginal", "")

espero que te sirva de algo

mira este artículo:

http://www.canalvisualbasic.net/foro/visual-basic-6-0/mover-items-entre-listbox-5775/

[selecttext, select, len]

jjajaj amigo que mala broma, pero tiene razón, busca información sobre selecttext, select, len e intentalo de nuevo y pones tu código para poder ayudarte.

se más especifico amigo

hola, mira este articulo, te puede servir en algo, yo he copiado desde vb6 a directorios especiales de windows 7/8/8.1 y funciona bien, en realidad la aplicación tiene que estar corriendo como administrador ya sea por medio de un archiovo manifest que es lo más común, pero bueno espero que te sirva:

http://www.recursosvisualbasic.com.ar/htm/listado-api/120-copiar-archivo-progreso.htm