Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 914
  • Last Modified:

SHBrowseForFolder or what?

Create a simple standard exe and add 2 forms. On each form add 1 command button

On form1

Option Explicit

Private Sub Command1_Click()

Form2.Show vbModal
End Sub


On form2

Option Explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' private variables declaration
Private Type BROWSEINFO
    HwndOwner As Long
    PidlRoot As Long
    PszDisplayName As String
    LpszTitle As String
    UlFlags As Long
    Lpfn             As Long
    lParam           As Long
    IImage           As Long
End Type
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Private Sub Command1_Click()
Dim Info As BROWSEINFO
   
    On Error Resume Next
    Info.PidlRoot = &H12
    Info.LpszTitle = "Select Computer Name:"
    Info.UlFlags = &H1000
    Info.PszDisplayName = Space$(256)
    SHBrowseForFolder Info
    If (Asc(Mid$(Info.PszDisplayName, 1, 1)) <> 32) Then
        Debug.Print Left(Info.PszDisplayName, InStr(Info.PszDisplayName, Chr$(0)) - 1)
    Else
        Exit Sub
    End If
End Sub



When I click on form2 button, SHBrowseForFolder starts up and wait for user input.

However, I still can click on form2 and even exit the form1 and let the program hanging there if I don't touch the SHBrowseForFolder. How do I prevent this. I would like the user cannot exit the form1 or form2 without selecting the path
0
EDDYKT
Asked:
EDDYKT
  • 4
  • 2
1 Solution
 
Richie_SimonettiCommented:
HwndOwner member is setted to form2.hwnd?
0
 
Richie_SimonettiCommented:
Also, there is another parameter when you use vbmodal, i can't remember and  i haven't vb installed to check...
0
 
Richie_SimonettiCommented:
it should be

Form2.Show vbModal, me
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
EDDYKTAuthor Commented:
Sometime long hour work will drive you crazy and cannot think

>>Form2.Show vbModal, me

doesn't work

but

HwndOwner member is setted to form2.hwnd?

works

8->

Thanks

0
 
Richie_SimonettiCommented:
I know the feeling. Thanks for "A" grade.
0
 
EDDYKTAuthor Commented:
You're welcome


8->
0

Featured Post

New feature and membership benefit!

New feature! Upgrade and increase expert visibility of your issues with Priority Questions.

  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now