Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - BlackZeroX

#3081
mmm aca te dejo un proyecto que hice para mi escuela como proyecto final de semestre use el ADO (Mi profesora awebo queria que usara el control DATA pero no le hice caso por la poca accesibilidad que dapero bueno)

Descargar

P.D.: Tiene errores pues lo hice en 2 dias ya hace 2 años y los unicos cambios que le realice fueron hace unas horas pues usaba un registro en la bdd de access para contar cuantos registros (ya sean de datos o usuarios para saber cuantos habian y esto fallaba ademas que era tonto)

Ojala te sirva

Dulces Lunas
#3082
Cita de: LeandroA en 15 Abril 2009, 06:21 AM
Muy buen code, no lo entiendo, pero es bueno jeje

Saludos

si la cosa esta asi los demás estamos fritos ¬¬" (no todos vdd)

Excepsional source

Dulces Lunas.
#3083
Cita de: Meta en 22 Marzo 2009, 09:21 AM
Viendo la noticia principal. ¿Por qué atacan esta web?
Siempre le pasa algo, parece que es un vengativo ofendido a mermar su venganza de algo.

[youtube=425,350]http://www.youtube.com/watch?v=Lfj5loPrU88[/youtube]

Me recuerdan a mi cuando el inche teclado se trababa y tenia uno que golpearlo... no peren... lo sigo haciendo jajajaja (Se´ra la razon por la cual no funciona bien? bueo ni que...¡!)

Volviendo al tema:

Pero que seguridad trae este host. creo que tengo que leer los tutosque se han puesto en la web y dejar de ingresar siempre directamente al foro e ir llendo más seguido a la web.
#3084
mmm ya se me adelanto LeandroA...¡! bueno ya ni que.

para que veas si cambia el pinture de tamaño solo convierte en comentario esta linea:

Código (vb) [Seleccionar]
lRet = SetParent(.Hwnd, lnghWnd)

...¡!

Dulces Lunas.!¡
#3085
Mas info.

como se ve estas haciendo un hide a un formualrio o andas dejando algo cargado en la memoriaaun no cierras, descargas TODOS los elementos de la misma (la memoria) usa "unload objeto" para descargar el formulario x que queda cargado igual prueba con terminarTOdo bucle "Do While" si lo implementaste o ya si no te resulta usa el "END" para terminar ya todo tu proceso a lo bruto (no se recomienda)
#3086
mmm puedes usar el common dialog para realizar tal acto... (OJO no entiendo como deseas listar los archivos)

P.D.: hasta donde yo he visto ese cuadro de examinar no muestra archivosojo hasta donde yo se. para mostrar archivos y mostrar la ruta completa del archivo seleccionado por un cuadro de examinar es mejor usar el common dialog.

---Editado.
--- Source Common Dialog --- y ya.

Cuadro de diálogo Abrir archivo ( Función GetOpenFileName )

Código (vb) [Seleccionar]

Option Explicit

' Función Api GetOpenFileName _
para abrir el cuadro de diálogo seleccionar archivo
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
    Alias "GetOpenFileNameA" ( _
    pOpenfilename As OPENFILENAME) As Long

' Estructure de datos _
  OPENFILENAME para usar con GetOpenFileName
Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type


Private Sub Command1_Click()
Dim OFName As OPENFILENAME
   
    With OFName
        .lStructSize = Len(OFName)
        'Establecemos el hwnd del form
        .hwndOwner = Me.hWnd
        'Establecemos el numero de instancia de la aplicacion
        .hInstance = App.hInstance
        'Establecemos el filtro de archivos a mostrar, _
         en este caso txt y todos los ficheros
        .lpstrFilter = "Archivos de texto (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + _
                       "Todos los archivos (*.*)" + Chr$(0) + "*.*" + Chr$(0)
        'Acá debemos crear un buffer para el archivo
        .lpstrFile = Space$(254)
        'Establecemos el tamaño maximo retornado
        .nMaxFile = 255
        'Creamos un buffer para el titulo del archivo
        .lpstrFileTitle = Space$(254)
        'Establecemos el tamaño maximo retornado
        .nMaxFileTitle = 255
        'Establecemos el directorio por defecto que mostrará el dialogo
        .lpstrInitialDir = "C:\Windows"
        'El title
        .lpstrTitle = "Abrir archivos"
        'Flasgs que detereminan caracteristicas del dialogo
        .flags = 0
    End With

    'Abrimos el cuadro de diálogo pasándole _
     a GetOpenFileName la estructura anterior
    If GetOpenFileName(OFName) Then
        MsgBox "Seleccionó: " + Trim$(OFName.lpstrFile)
    Else
        MsgBox "Se canceló"
    End If
End Sub

Private Sub Form_Load()
    Command1.Caption = "Abrir CommonDialog"
End Sub


Cuadro de diálogo Guardar como ( Función GetSaveFileName )

Código (vb) [Seleccionar]

Option Explicit
'Función Api GetSaveFileName que _
llama al cuadro guardar como de windows
Private Declare Function GetSaveFileName Lib "comdlg32.dll" _
    Alias "GetSaveFileNameA" ( _
    pOpenfilename As OPENFILENAME) As Long

' UDT OPENFILENAME para el api GetSaveFileName
Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type

' Variable para utilizar la estructura de la función Api
Dim OFName As OPENFILENAME


Private Function GuardarComo() As String
   
    With OFName
        'Establecmos el tamaño de la extructura
        .lStructSize = Len(OFName)
        'Establecmos el hwnd de la aplicación, es decir _
         la del form que llama al diálogo
        .hwndOwner = Me.hWnd
        'Acá la instancia
        .hInstance = App.hInstance
        'Establecemos los filtros de extension que mostrá
        '.lpstrFilter = "Archivos de texto (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + _
                        "Todos los archivos (*.*)" + Chr$(0) + "*.*" + Chr$(0)
        'Le pasamos un buffer al nombre de archivo
        .lpstrFile = Space$(254)
        'Debemos establecer el maximo de caracteres del buffer anterior
        .nMaxFile = 255
        'Lo mismo pero para el título del diálogo de windows
        .lpstrFileTitle = Space$(254)
        'Debemos establecer el maximo de caracteres del buffer
        .nMaxFileTitle = 255
        'Establecemos el drectorio inicial que mostrará el diálogo
        .lpstrInitialDir = "C:\"
        'Establecemos el titulo
        .lpstrTitle = "Guardar archivo como"
        'Los flags
        .flags = 0
    End With

    'Mostramos el dialogo pasandole la estructura a la función Api GetSaveFileName
    If GetSaveFileName(OFName) Then
        GuardarComo = Trim$(Replace(OFName.lpstrFile, Chr(0), ""))
    Else
        GuardarComo = ""
    End If
End Function

Private Sub Command1_Click()
Dim sFile As String
    'sFile almacenará el path completo que nos interesa
    sFile = GuardarComo
    'Comprobamos que no sea una cadena vacia
    If sFile <> "" Then
        MsgBox "Ruta elegida " + sFile
    Else
        MsgBox "Cancelar"
    End If
End Sub


Private Sub Form_Load()
    Command1.Caption = "Abrir CommonDialog"
End Sub 


Fuente: http://www.recursosvisualbasic.com.ar/htm/listado-api/api-27.htm
#3087
ese codigo es para el cuadro de dialogo abrir y guardar (obviamente configurando los patrones de las apis) lo que pides no estavienculadomucho con esto bien pero bueno

usa las apis

FindFirstFiles
FindNextFile
Entre otras
...

te serviran ademas hay un ejemplo en la api guide que usan estas apis para realizar una busqueda de TODO archivo de una x ruta y por subcarpetas igual

Hay otro metodo que es por FSO

Ahoa notase lo siguiente:

Por Apis es Realmente rapido.
Por FSO es LEeeeentOoo.

Source Codigo FSO

Ojala te sirva de algo.

El adaptarlo es solo devolver la ruta al proceso que te listara los archivos nada dificil realmente.
#3088
ok ya entendi es Visual Basic para Aplicaciones ok mmm...

as de cuenta de cancel as integer es como si se declara una variable dentro del proceso en ocasiones su valor varia según el acto que desempeñe dicho evento...

por ejemplo:

private sub form_unload (cancel as integer)
cancel=1
end sub

para la descarga del formulario y no permitira que se cierre o descargue dicho formulario de la memoria

por default cancel en todo caso es 0

ahora en el ejemplo que te plantie, le estas indicando que cancel sea cierto es decir que cancele la descarga del formulario de lamemoria facil no?

puede ser solo para establecer un valor a dicha variable o si no para obtener los datos de la variable TRABAJA de las DOS formas perono entodosloscasos se toma en cuentapor ejemploen elevento DragOver o DragDropdelformulariou otroelemento que permita estos eventos verásuna variable llamada Data quesolo devuelve datos mas no afecta a dicho evento.
#3089
Cita de: CrÄsH en  6 Abril 2009, 00:00 AM
Que hacer lo que esta entre parentesis???

Private Sub Form_open (cancel As Integer)

es en serio?

Código (vb) [Seleccionar]
(cancel As Integer)

es una variable de retorno que puedes manipular.

Código (vb) [Seleccionar]
Private Sub Form_open[code]

Declaración Privada de un proceso con respecto donde fue declarada. (No sabia que estubiese dicho evento "Open" en vb6 con respecto en los formularios...)...¡!
[/code]
#3090
Cita de: HJ ~ en  5 Abril 2009, 18:07 PM
Cita de: xkiz en  5 Abril 2009, 00:26 AM
mira esto aver si te sirve para orientarte un poco:

Text converter (Binary/Hex/Asc/Oct)
Me lo he estado mirando y no lo entiendo, es decir, veo por donde van los tiros más o menos pero no entiendo que me quieres dar a entender con eso, si alguien me lo pudiera explicar un poco...

Gracias;

lo que te dio esparaque sepas como convertir de hex a ascii por ejemplo o de hex a binario o a octal etc lo de crear un trainer para un juego es investigar que datos en memoria estan cambiando en ese momento y aparte de trabajar con punteros a la memoria con las APIS, el problema es saber como sacar el puntero a esa posición de memoria que deseas consultar y editar, Recomiendo que uses C++ para esto es mas fiable xD ( igual puedes con vb6 con las APIS pero bueno)