Solved

SHBrowseForFolder or what?

Posted on 2003-11-27
6
897 Views
Last Modified: 2011-09-20
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
Comment
Question by:EDDYKT
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 2
6 Comments
 
LVL 16

Accepted Solution

by:
Richie_Simonetti earned 300 total points
ID: 9833457
HwndOwner member is setted to form2.hwnd?
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
ID: 9833465
Also, there is another parameter when you use vbmodal, i can't remember and  i haven't vb installed to check...
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
ID: 9833479
it should be

Form2.Show vbModal, me
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 26

Author Comment

by:EDDYKT
ID: 9833501
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
 
LVL 16

Expert Comment

by:Richie_Simonetti
ID: 9833518
I know the feeling. Thanks for "A" grade.
0
 
LVL 26

Author Comment

by:EDDYKT
ID: 9837251
You're welcome


8->
0

Featured Post

On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

738 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question