Solved

VB .net  FileDialog.ShowDialog launches unrelated external program !?!

Posted on 2013-01-16
2
807 Views
Last Modified: 2013-01-17
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!
    End Sub
End Class

I'm utterly flummoxed!  Any ideas?

Original Post:
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
        Table.Columns.Add("SKU")
        '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
                    Continue For
                End If
                Dim z As String = [Enum].GetName(GetType(LookedUpDataItems), ItemIdx) & "_" & [Enum].GetName(GetType(DataSourceIndicesEnumeration), SourceIdx)
                Table.Columns.Add(z)
                If (SourceIdx = DataSourceIndicesEnumeration.Pkg) Then
                    Table.Columns.Add(z & "Confidence")
                End If
            Next
            Table.Columns.Add([Enum].GetName(GetType(LookedUpDataItems), ItemIdx) & "_Status")
        Next

        For Each o As OrderInfoClass In Orders
            Dim row As DataRow = Table.NewRow()
            LoadExportDataRow(row, o)
            Table.Rows.Add(row)
        Next
        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
                Table.WriteXml(myStream)
                myStream.Close()
            End If
        End If
        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:")
    End Sub
0
Comment
Question by:dcShaver
[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
2 Comments
 
LVL 23

Accepted Solution

by:
Roopesh Reddy earned 500 total points
ID: 38787310
Hi,

Seems like some references still with the registry!

So try cleaning it using some third party utilities to clean registry entries like CCleaner etc.,

http://www.piriform.com/ccleaner

Hope it helps u...
0
 

Author Closing Comment

by:dcShaver
ID: 38788416
A proper uninstall of reflections fixed it, presumably by removing the registry references.  
Apparently there were similar issues with reflections causing crashes when dialogs were opened in office applications, so IT is in the process of replacing reflections.
Thank you,
0

Featured Post

Business Impact of IT Communications

What are the business impacts of how well businesses communicate during an IT incident? Targeting, speed, and transparency all matter. Find out more in this infographic.

Question has a verified solution.

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

Configuring Remote Assistance for use with SCCM
This article is a collection of issues that people face from time to time and possible solutions to those issues. I hope you enjoy reading it.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
In this video, we discuss why the need for additional vertical screen space has become more important in recent years, namely, due to the transition in the marketplace of 4x3 computer screens to 16x9 and 16x10 screens (so-called widescreen format). …

751 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