Últimos Temas de: Bourne Ultimatum

Mostrar Temas
Páginas: 1 [2]

11	Programación / Programación Visual Basic / Imprimir	en: 16 Noviembre 2005, 04:01 am
hola una pregunta cuando yo imprimo un form me imprime como maximo el tamaño de Maximizado pero no me alcanza para llenar la hoja, nose si me explico lo q necesitaria es alargar el form para q al imprimir me imprima por ejemplo al tamaño de una hoja A4 bueno desde ya muchas gracias

12	Programación / Programación Visual Basic / Errores	en: 27 Octubre 2005, 03:30 am
hice un programa queme tira unos errores cuando uso el progrma en otra pc pero en la mia anda perfecto ya no se que hacer ni en donde buscar para solucionarlo los errores son "run time erorr "91" object variable or with block variable not set" "run time error "7005" rowset not avaliable" "run time error "9" subscript out of range" cuando uso el debuger no me tira nada busque en google y no encontre como solucionarlo alguna idea?? es vb6 y uso una base de datos de acces con adodc1 y datagrid

13	Programación / Ingeniería Inversa / se puede?	en: 21 Octubre 2005, 05:29 am
como se puede encontrar un msgbox en un exe? lo q quiero es q no me tire mas un msgbox cuando abro un programa hay alguna manera de hacer un jmp o algo por el estilo?

14	Programación / Ingeniería Inversa / Hola	en: 19 Octubre 2005, 04:31 am
bueno comienzo a explicar tengo un programa en el cual para regitrarse tengo q poner nombre y codigo despues q lo pongo el programa se tiene q cerrar para verificarlo en algun lado lei como crackear este sistema yo no tengo idea si alguien me puede tirar alguna idea o el link de como crackear ese sistema se lo agradeceria mucho

Programación / Programación Visual Basic / Alguna Idea?

en: 19 Octubre 2005, 04:14 am

como hago para hacer q busque unos parametros en una base de datos y me los ponga todos los q existen en un list box

osea yo pongo

Código:

Private Sub BuscarSiguiente()
    Dim nReg As Long
    nReg = Val(Text8)
    If Option1.Value = True Then
        Data1.Recordset.FindNext "precio Like '" & Text8.Text & "'"
    End If

eso se coloca en un text box por ej text4.text
pero yo quiero algo asi

Código:

List1.AddItem Text10.Text

y q todos los datos de "precio" vallan directo a una lista en list1

esto sirve pero nose como usarlo con lo q necesito

Código:

Dim sTmp As String
List1.Clear
    On Local Error Resume Next

    sTmp = Dir$(Text1.Text)
    If Err = 0 Then
        Do While Len(sTmp)      'Repetir mientras haya ficheros
            List1.AddItem sTmp  'Lo añadimos a la lista
            sTmp = Dir$         'Asignar el siguiente fichero
        Loop
    End If
    Err = 0

End Sub

16	Programación / Programación Visual Basic / Crear Facturas	en: 6 Julio 2005, 00:55 am
Holas queria hablar de un tema q seguramente la gran mayoria paso alguna vez tratando de hacer o haciendo las facturas, como se hacen en VB6.0 como hacer para imprimirlas, como hacer para que te imprima lo q quieres en el lugar que quieres bueno si alguien tiene experiencia o alguna idea en esto comentelo q somos muchos los q estamos interesados en aprender esto por mi parte pasare el codigo de como guardar los datos y como hacer para imprimirlos al estilo picture (lo busco y lo pongo) pero taria bueno si alguien sabe como hacer para imprimir el texto

Programación / Programación Visual Basic / Capturar Pantalla activa en Xp

en: 29 Junio 2005, 23:31 pm

en win 98 seria algo asi

Código:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte,
ByVal bScan As Byte, ByVal dwFlags As Long,
ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
'Captura la ventana activa
keybd_event 44, 0, 0&, 0&
End Sub

Private Sub Command2_Click()
'Captura toda la pantalla
keybd_event 44, 1, 0&, 0&
End Sub

Pero en XP no fuinciona capturar la pantalla activa
alguna sugerncia ?? $:-\$

18	Programación / Programación Visual Basic / alguna idea	en: 28 Junio 2005, 00:21 am
tengo un programa el cual entra a una carpeta y abre los archivos y los le la cuestion es esta son 80 archivos q se pueden hacer pero con el metodo q hice solo me abre hasta donde hay archivos x ejemplo si tengo del 1 al 11 y del 13 al 17 nunca me va a leer del 13 para ariba x q al faltar el 12 va a Fallo me gustaria saver alguna manera para q yo no tenga q poner Open 1, open 2, open 3 y asi hasta 80 sino q el programa solo haga una lista de los archivos q hay y los abra de forma ordenada tirando los datos a la pantalla aca les paso el codigo q tengo yo Código: Private Sub cmd1_Click() Dim tt As String Dim bu Set bu = CreateObject("Wscript.shell") tt = bu.regread("HKEY_CURRENT_USER\Software\Microsoft\Tdf\dir") On Error GoTo Fallo2 Open tt & 1 For Input As #5 Close #5 Open tt & 1 For Binary As #7 Get #7, 740, dato37 Get #7, 20, dato2 Close #7 l1.Caption = dato37 l2.Caption = dato2 Exit Sub Fallo2: cmd1.Caption = "&Buscar" Fallo: cmd1.Caption = "&Buscar" End Sub

19	Programación / Programación Visual Basic / App o Path	en: 21 Junio 2005, 22:17 pm
tengo un programa en vb6 el cual guarda unos .dat en la carpeta donde se ejecuta la aplicacion quiero saver alguna forma para q esos .dat me los guarde en otra carpeta q no sea esa Gracias a todos 8)

Páginas: 1 [2]