Mensajes

[BrowseInfo.hwndOwner = Me.hwnd]

proba esto:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const MAX_PATH = 260

Private Declare Function SHBrowseForFolder Lib "shell32" (lpBI As BrowseInfo) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long

Private Type BrowseInfo
    hwndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type

Private Function BrowseFolder()

    Dim lpIDList As Long
    Dim sbuffer As String
    Dim szTitle As String
    Dim tBrowseInfo As BrowseInfo
    szTitle = "Choose PrLr Scheduler Sound Folder"


    With tBrowseInfo
        .hwndOwner = Me.hWnd
        .lpszTitle = lstrcat(szTitle, "")
        .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
       
    End With
    lpIDList = SHBrowseForFolder(tBrowseInfo)


    If (lpIDList) Then
        sbuffer = Space(MAX_PATH)
        SHGetPathFromIDList lpIDList, sbuffer
        sbuffer = Left(sbuffer, InStr(sbuffer, vbNullChar) - 1)
       
        BrowseFolder = sbuffer
       
    End If
   
End Function

Private Sub Command1_Click()
    Call BrowseFolder
End Sub


Fuente: Make SHBrowseForFolder Modal?

el truco esta en poner BrowseInfo.hwndOwner = Me.hwnd

saludos.

si se viene la tercera guerra mundial no queda nada, si tiras una bomba y haces desaparecer un pais practicamente.

que tiene que ver mi avatar con el tema, y no es posible yo mismo ise la imagen hace tiempo y la subi a mi hosting personal, aunque no podría comprobar con el nod ya que uso el microsoft essencial que no tiene nada que envidiarle al nod de porcierto... y no nos desviemos del tema...saludos

no tiene nada que ver, si queres tomalo como off topic a mi comentario y listo, nadie desvio nada, si quieren borrenlo a mi comentario, pero te aviso nomas, no me gusta que cada ves que carge un post donde estes vos me salte el antivirus, no es normal, y quiero que me confirmen los que usan NOD32 que les pasa lo mismo.

@Mini_Nauta

tu avatar me tira que es un ataque, el NOD32 lo bloquea...

muchos se confunden y piensan que porque el foro se llama "el hacker" aca se tratan cosas de hacer ***** las maquinas de los otros y demas desastres, primero preguntate esto ¿ que queres hacer ?

saludos.

nunca lo he intentado, pero parece que se puede, pero debe soportar lo que se llama "Merge", busca en internet sobre eso por ejemplo.

mysql: select, insert, delete and update in one query

sino crear un SP seria una opcion.

saludos.

no es Oracle, es SQL Server, pero podes sacar la idea y capas funcione igual..

How to copy a row from one SQL Server table to another

saludos.

me temo que es porque estas queriendo manipular controles de la UI en el thread y eso no se puede, ya que la UI corre en un thread diferente al que vos creas.

busca en internet que esta la solucion:

Invoke or BeginInvoke cannot be called on a control until the window handle has been created

saludos.

no se como estas trabajando ...si con ADO o con DAO, pero hace una consulta a la base de datos, sri algo asi:

Código (sql) [Seleccionar] Expandir

SELECT COUNT(idvehiculo) FROM Tabla WHERE idvehiculo='7' GROUP BY idvehiculo

algo asi...

saludos.

ya ni ganas de citar tengo  , 79137913 me hiciste reir  , parece que has visto mucho peliculas como "el dia de la independencia" jaja.

seremos los unicos seres que nos estamos preguntando ahora que carajo hay en el universo ?

todo esto sin meter a la religion, ya que todos sabemos que la religion dice que nos Creo Dios y creo la tierra..etc. ahora para que carajo existen millones de galaxias y planetas, no me lo explico, sera parte de algo que todavia no entendemos. es como crear edificios, si se crean son para ser habitados, no los vamos a tener ahi vacios, pero bueno el universo debe saber lo que hace.

ahora no me explico si el sol nos va a aniquilar dentro de millones de años o hasta un meteorito puede entrar y hacernos bolsa, yo digo que si alguien hubiera creado esto, hubiera pensado esa posibilidad y nos hubiera puesto en un lugar aislado de peligro.

se dan cuenta que con todos los avances que hubo, todavia no sabemos un carajo de lo que pasa ahi afuera ? fotografiamos galaxias, estrellas, nebulosas, sabemos un poco de los ajugeros negros, todo lindo, pero ni idea que carajo pasa ahi, estamos en pañales, pero lo que si tenemos en claro que todo este universo se creo por algo. no se si alguna ves podremos saber como empezo todo, y eso me da bronca.