1 OpenFileDialog for 4 buttons

Question

0.00/5 (No votes)

See more:

I have four textboxes and four buttons
how can I use one OpenFileDialog1 for 4 button controls..?

thanks

below is the code ..

VB

Private Sub btn_ClientSelectTemplate_0_Click(sender As System.Object, e As System.EventArgs) Handles btn_ClientSelectTemplate_0.Click
      OpenFileDialog1.ShowDialog()
  End Sub

  Private Sub btn_ClientSelectTemplate_1_Click(sender As System.Object, e As System.EventArgs) Handles btn_ClientSelectTemplate_1.Click
      OpenFileDialog1.ShowDialog()
  End Sub

  Private Sub btn_ClientSelectTemplate_2_Click(sender As System.Object, e As System.EventArgs) Handles btn_ClientSelectTemplate_2.Click
      OpenFileDialog1.ShowDialog()
  End Sub

  Private Sub btn_ClientSelectTemplate_3_Click(sender As System.Object, e As System.EventArgs) Handles btn_ClientSelectTemplate_3.Click
      OpenFileDialog1.ShowDialog()
  End Sub

  Private Sub OpenFileDialog1_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
      '' --- Gives the full path of file name
      Me.txtClientProject_0.Text = OpenFileDialog1.FileName
      '' --- Gives only the file name
      'Me.txtClientProject_0.Text = Path.GetFileName(OpenFileDialog1.FileName)

  End Sub

  Private Sub OpenFileDialog2_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog2.FileOk
      txtClientProject_1.Text = OpenFileDialog2.FileName
  End Sub

  Private Sub OpenFileDialog3_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog3.FileOk
      txtClientProject_2.Text = OpenFileDialog3.FileName
  End Sub

  Private Sub OpenFileDialog4_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog4.FileOk
      txtClientProject_3.Text = OpenFileDialog4.FileName
  End Sub

Posted 3-Feb-13 23:33pm

saurabh kumar mahto

Updated 3-Feb-13 23:45pm

RDBurmon

v3

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

RDBurmon · Accepted Answer · 2013-02-03T23:47:00

Why are you using separate event to populate text box for file name. Write the same after showdialog code in the same button event

see this

VB

Private Sub btn_ClientSelectTemplate_0_Click(sender As System.Object, e As System.EventArgs) Handles btn_ClientSelectTemplate_0.Click
      OpenFileDialog1.ShowDialog()
     Me.txtClientProject_0.Text = OpenFileDialog1.FileName
      '' --- Gives only the file name
      'Me.txtClientProject_0.Text = Path.GetFileName(OpenFileDialog1.FileName)

  End Sub

  Private Sub btn_ClientSelectTemplate_1_Click(sender As System.Object, e As System.EventArgs) Handles btn_ClientSelectTemplate_1.Click
      OpenFileDialog1.ShowDialog()
  txtClientProject_1.Text = OpenFileDialog2.FileName
  End Sub

  Private Sub btn_ClientSelectTemplate_2_Click(sender As System.Object, e As System.EventArgs) Handles btn_ClientSelectTemplate_2.Click
      OpenFileDialog1.ShowDialog()
 txtClientProject_2.Text = OpenFileDialog3.FileName
  End Sub

  Private Sub btn_ClientSelectTemplate_3_Click(sender As System.Object, e As System.EventArgs) Handles btn_ClientSelectTemplate_3.Click
      OpenFileDialog1.ShowDialog()
 txtClientProject_3.Text = OpenFileDialog4.FileName
  End Sub