Using a message box to open a web page. Problem, page always opens, even on CANCEL

[dfahlbusch]

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MessageBox.Show("2781 Beal St." & Chr(13) & "Deltona, Florida 32763" & Chr(13) & "" & Chr(13) & "View the Property Card?", "Property Address", MessageBoxButtons.OKCancel)
If Windows.Forms.DialogResult.OK Then Process.Start("IExplore.exe", "http://atlas.vcgov.org/VCMaps/palms/cgisearch.asp?pid=813032250290") Else
End Sub

[Joseph Martell]

Windows.Forms.DialogResult.OK is an enumerated value. DialogResult is the datatype. This statement:

If (Windows.Forms.DialogResult.OK) Then ...

is analogous to:

If (5) Then ...

Your code needs to be something like the following:

If (MessageBox.Show("2781 Beal St." & Chr(13) & "Deltona, Florida 32763" & Chr(13) & "" & Chr(13) & "View the Property Card?", "Property Address", MessageBoxButtons.OKCancel) = Windows.Forms.DialogResult.OK) Then
  Process.Start("IExplore.exe", "http://atlas.vcgov.org/VCMaps/palms/cgisearch.asp?pid=813032250290")
Else
  End Sub
End If
 

You are trying to test the user's response to the dialog box which is returned as a DialogResult type from the Show method.

Also, putting your examples in code tags helps with readability tremendously. Just a recommendation for the future.