Command Buttons - RESOLVED

[odamsr]

I have 2 command buttons on one form lets call this form1. On form2 I have a drive, directory, and file listbox. Lets say I click on command button1, it opens form2 and allows me to select the drive, directory, and file. I want it to write back to form1 in a text box. If I click command button2 I want it to do the same thing but write back to form1 to a different text box. What I am asking is how to determine which button is clicked on form1 and carry that over to form2?

Thanks.

[Hack]

I have 2 command buttons on one form lets call this form1. On form2 I have a drive, directory, and file listbox. Lets say I click on command button1, it opens form2 and allows me to select the drive, directory, and file. I want it to write back to form1 in a text box.

'from the Filelist box on Form2
Private Sub File1_Click()
Form1.Text1.Text = File1.Filename
End Sub

If I click command button2 I want it to do the same thing but write back to form1 to a different text box.

'from Form1
Private Sub Command2_Click()
Text2.Text = Form2.File1.Filename
End Sub

Note: Make sure a file is selected before clicking on Command2.

Is this what you wanted?

[Joacim Andersson]

Instead of keeping track of which button was clicked maybe you should keep track of which text box that you want to be updated.

I assume that Form2 has an OK button and that you want to show it modally. Now let's say that Command1 on Form1 will update Text1 and Command2 will update Text2. Then add the following code to Form2:

Private mtxtBox As TextBox
 
Public Sub ShowMe(txtBox As TextBox)
    Set mtxtBox = txtBox
    Me.Show vbModal
End Sub
 
Private Sub cmdOK_Click()
    'update the text box.
    mtxtBox.Text = Drive1.Drive & Dir1.Dir & "\" & File1.File 'or whatever
    Unload Me
End Sub

In the CommandX_Click of Form1 use code simular to this:

Private Sub Command1_Click()
    Call Form2.ShowMe(Text1)
End Sub
 
Private Sub Command2_Click()
    Call Form2.ShowMe(Text2)
End Sub

[RhinoBull]

You may set some flag (boolean, string, integer, ...) on Form1 and check it while on Form2:

'Form1
Option Explicit
 
Public strButton As String
 
Private Sub Command1_Click()
    '...
    strButton = "Button1"
    '...
End Sub
 
'Form2
 
'somewhere in the code:
If Form1.strButton = "Button1" Then ...

[odamsr]

Thanks everyone. I used your code, Joacim and it worked like a charm. Thanks to everyone.