VB .net FileDialog.ShowDialog launches unrelated external program !?!
Posted on 2013-01-16
Update: Narrowed it down some:
For some unfathomable reason, my system attempts to start an external program 'WRQ reflections' whenever a FileDialog.ShowDialog gets called. There is absolutely no reference in the project to reflections (an IBM Host session program). (The crash referred to in the original post was happening in one of the reflections dlls.) In disbelief I deleted the reflections folder from the 'Program Files' folder, and now the windows install launches and starts reinstalling reflections whenever showdialog gets called! I created a new empty VB project & solution, with just one button that executes the following code, and sure enough 'openFileDialog1.ShowDialog' launches windows installer for reflections at the same time that the dialog appears.
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.Title = "Test"
openFileDialog1.ShowDialog() 'Windows installer fires up at same time that the dialog appears!
I'm utterly flummoxed! Any ideas?
I'm debugging a VB .net application that queries data from a couple sources, (sql database tables, excel file), does some cross checking and creates a DataTable listing discrepancies, and saves the datatable as an xml file after having the user select a file to save it to.
The strange part is that it appears to execute all the querying and data table creation fine, but crashes with 'vshost32-clr2.exe has stopped working' immediately after executing the line 'If saveFileDialog1.ShowDialog() = DialogResult.OK Then'. That is, the dialog is displayed, but the crash occurs immediately afterwards without any user input.
Windows 7 Pro Service Pack 1 64 bit, Visual Studion 2010 SP1, running a debug build within visual studio.
I would be most grateful for any suggestions on possible causes or how to attempt to identify them.
Public Sub ExportData()
' Create a data table with the appropriate columns.
Dim Table As DataTable = New DataTable("Export")
'Add the sku column
'Add all other selected columns
For Each ItemIdx As LookedUpDataItems In [Enum].GetValues(GetType(LookedUpDataItems))
For Each SourceIdx As DataSourceIndicesEnumeration In SettingsDialog.GetSelectedSourceIndices(ItemIdx)
If (SourceIdx = DataSourceIndicesEnumeration.ManualOverride) Then
Dim z As String = [Enum].GetName(GetType(LookedUpDataItems), ItemIdx) & "_" & [Enum].GetName(GetType(DataSourceIndicesEnumeration), SourceIdx)
If (SourceIdx = DataSourceIndicesEnumeration.Pkg) Then
Table.Columns.Add(z & "Confidence")
Table.Columns.Add([Enum].GetName(GetType(LookedUpDataItems), ItemIdx) & "_Status")
For Each o As OrderInfoClass In Orders
Dim row As DataRow = Table.NewRow()
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Title = "Save discrepancy table as..."
saveFileDialog1.Filter = "xml files (*.xml)|*.xml"
saveFileDialog1.FilterIndex = 1
saveFileDialog1.RestoreDirectory = True
If saveFileDialog1.ShowDialog() = DialogResult.OK Then '********Crashes immediately after showing the dialog. *******
Dim myStream As Stream
myStream = saveFileDialog1.OpenFile()
If (myStream IsNot Nothing) Then
MessageBox.Show("To view the discrepancy table, open the xml file with Excel. When prompted for how to open it, select 'as an XML list'.", "XML File Viewing Notes:")