Visual Basic Interop and Upgrade Forum

VB6 Form_KeyPress Event Not Firing When InteropControl has Focus

Wed, 25 Nov 2009 16:53:20 Z

Repro Steps:

- Create a new InteropControl, add a TextBox, build the control
- Add the InteropControl to a VB6 Form
- Set the KeyPreview property of the Form to True
- Add a MsgBox or breakpoint to the Form_KeyPreview Event
- Run the project, type in the InteropControl (textbox). The KeyPreview Event is not raised.
- Repeat using a VB6 TextBox. The KeyPreview Event is raised.

(This can also be tested using a VB6 menu, the shortcuts do not work when the Interop Control has the focus. It is interesting that the accelerator keys work.)

List of Changes From VBA 6.4 to VBA 6.5

Wed, 25 Nov 2009 14:33:10 Z

First, all my appologizes if the answer already exists,
but I didn't find it.

I have to migrate from VBA 6.4.99.69 to 6.5.10.32
and I was looking for the complete list of changes
brought with that 6.5 VBA version.

is there a "Version List" with all the modifications between VBA 6.4 and VBA 6.5 ?

Interop Error

Wed, 25 Nov 2009 12:18:47 Z

Every time I rebuild/update the interop dll/tlb which the vb6 component is referenced to and rebuild the vb6 code, Cannot load control <Control Name> error occurs.

Please help.

Thanks.

interop between vba and vb

Tue, 24 Nov 2009 04:54:33 Z

can anyone point me to a good source of info?

VB program reading Excel spreadsheet and writing to SQL DB

Tue, 24 Nov 2009 03:57:01 Z

VS 2008. I need to read an Excel Spreadsheet, search through the rows and columns, pick out data and write it to a SQL DB. I know how to do the SQL part, but do NOT know how to do the Excel part. I don't even know if this is the right forum. I have read a lot but most of it is either out of date (2003 or 2005) and most of it concerns writing add-ins for Excel. I will be running this on a machine(s) that do not even have office on them.

I've found lots of "detail" but cannot find the overview that explains in general terms how to proceed.

Carl

How to migrate C++/ALT/COM based apps to .Net

Fri, 20 Nov 2009 04:11:18 Z

Hi,

I need the various options and guidelines/ tools for migration of C++/ALT/COM based apps to .Net.

Any pointers too are appreciated

TIA

Regards

Azhar

Thanks and Regards Azhar Amir

Delete Unused Excel worksheets using VB.NET and Interop

Tue, 25 Sep 2007 19:25:23 Z

Hello,

How do I delete unused/unwanted excel worksheets, such as the sheet1, sheet2, sheet3 that are created automatically? I'm using VB.NET 2005 with SQL Server 2005, and office 2007.

Thanks!

My app with an unmanaged dll throws an AccessViolationException after update Vista sp2

Thu, 19 Nov 2009 16:51:37 Z

Hallo Everybody,

I am trying to use an old unmanaged dll in my VBE2008 Project. My application works fine on my computers (3 Vista sp1 and 2 XP sp3 / all with .net framwork 3.5), but after the sp2 update for 2 of Vista machines, it throws often (not every time) an AccessViolationException. The error message is:
"Attempt to read or write protected memory. This is often an indication that other memory is corrupt."

I have checked and found that the exception was thrown by the dll calling function. My code looks like this:

<DllImport("abc.dll", EntryPoint:="abc", _
SetLastError:=True, CharSet:=CharSet.Ansi, _
ExactSpelling:=True, llingConvention:=CallingConvention.StdCall)> _
Private Shared Sub abc(ByVal input as integer)
End Sub

The dll is in the same directory with my app and I have tried with the absolute reference like "c:\abc.dll".
How can i fix it? any idea?

thx.

Lert Pianapitham

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.homepage.ToString)

Wed, 18 Nov 2009 22:19:11 Z

This gives me an error.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.homepage.ToString)

End sub

It says that "System.NullReferenceException was unhandled

Message="Object reference not set to an instance of an object.""

I have a value in for the setting, it is http://acedrive.tk/

<?xml version="1.0" encoding="utf-16"?>

</ArrayOfString>

What's the issue?

VS2008 Inerop Conntrol Deployment problem

Tue, 03 Nov 2009 07:55:06 Z

Hi, I am trying to deploy my VS2008 InteropControl on a WinXP-3 machine. The SetUp goes OK, But registring the control - my VB6 proj does not recognize it !!! Tryed in several ways.

Following this article http://blogs.msdn.com/vbteam/archive/2008/03/05/interopforms-toolkit-visual-studio-2008-edition.aspx?CommentPosted=true#commentmessage
I put a rc.exe path in the Post-Build, but for some reason got an eror on it.

Now erasing the line does nothing, it stil is stucked there in the build proccess.

The Ouput View follows (I have a joined setup proj.which is not shown here).

Please your instructions how to deploy the control.

Thanks

adh

--------------------------------

------ Build started: Project: InteropControlOC_002, Configuration: Debug Any CPU ------

@echo.

IF EXIST "c:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\..\..\SDK\v3.5\Bin\rc.exe" ("c:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\..\..\SDK\v3.5\Bin\rc.exe" /r "F:\ADHFiles\Visual Studio 2008\Projects\InteropControlOC_002\InteropUserControl.rc") ELSE (IF EXIST "c:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\..\..\SDK\v2.0\Bin\rc.exe" ("c:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\..\..\SDK\v2.0\Bin\rc.exe"/r "F:\ADHFiles\Visual Studio 2008\Projects\InteropControlOC_002\InteropUserControl.rc") ELSE (IF EXIST "c:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\..\Tools\Bin\rc.exe" ("c:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\..\Tools\Bin\rc.exe"/r "F:\ADHFiles\Visual Studio 2008\Projects\InteropControlOC_002\InteropUserControl.rc") ELSE (IF EXIST "c:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\..\..\VC\Bin\rc.exe" ("c:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\..\..\VC\Bin\rc.exe"/r "F:\ADHFiles\Visual Studio 2008\Projects\InteropControlOC_002\InteropUserControl.rc") ELSE (@Echo Unable to find rc.exe, using default manifest instead))))

@echo.

Unable to find rc.exe, using default manifest instead

InteropControlOC_002 -> F:\ADHFiles\Visual Studio 2008\Projects\InteropControlOC_002\bin\Debug\InteropControlOC_002.dll

------ Skipped Build: Project: InteropControlOC_002_Setup, Configuration: Debug ------

Project not selected to build for this solution configuration

========== Build: 1 succeeded or up-to-date, 0 failed, 1 skipped ==========

ADH

Problems with Reg-Free Com

Wed, 30 Jul 2008 17:38:42 Z

I am having some very strange errors when trying to use an isolated component.

I have a windows service that uses an interop vb6 dll. In VS2008 I set the vb6 dll to isolated. Visual Studio generates all the necessary manifests. Since my service does not directly reference the com dll, it generates service.exe.manifest that contains references to other assemblies that do reference the com component. When I go to run the service, it will only work if I register the DLL on the machine. That is obviously not what I want to happen. I am getting the "No such interface supported" just as if I hadn't registered the component. I can't use sxstrace.exe since I am on XP and server 2003.

I created a small testing application that referenced the isolated dll directly instead of through other assemblies. All I did was instantiate one of the classes, but this didn't fail as it did earlier with the services. I compared the manifests generated by my test app and the service I am working on. They are identical except for assembly name.

Does anyone know why this might be happening? Is there anyway to debug to find out what's happening. I don't want to have to register the component on the production server.

I've read all the forum posts and articles I could find. There's no errors in the event log regarding the side by side activation like I've been told there should be. Did I forget to install something? The production machine as .net framework 3.5.

Here is the manifest for the service

<?xml version="1.0" encoding="utf-8"?> 
<assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> 
  <assemblyIdentity name="Service.exe" version="1.0.0.0" type="win32" /> 
  <dependency> 
    <dependentAssembly asmv2:dependencyType="install" asmv2:codebase="Native.ServiceLibrary.manifest" asmv2:size="1951"> 
      <assemblyIdentity name="Native.ServiceLibrary" version="1.0.0.0" type="win32" /> 
      <hash xmlns="urn:schemas-microsoft-com:asm.v2"> 
        <dsig:Transforms> 
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> 
        </dsig:Transforms> 
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /> 
        <dsig:DigestValue>9R6hxcgGtK3vOvbE5xBL/I+dCs8=</dsig:DigestValue> 
      </hash> 
    </dependentAssembly> 
  </dependency> 
  <dependency> 
    <dependentAssembly asmv2:dependencyType="install" asmv2:codebase="Native.BusinessObject.manifest" asmv2:size="8826"> 
      <assemblyIdentity name="Native.BusinessObject" version="1.0.0.0" type="win32" /> 
      <hash xmlns="urn:schemas-microsoft-com:asm.v2"> 
        <dsig:Transforms> 
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> 
        </dsig:Transforms> 
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /> 
        <dsig:DigestValue>IUjtYMgEeil/9uUl9Dy7KphlgDM=</dsig:DigestValue> 
      </hash> 
    </dependentAssembly> 
  </dependency> 
  <dependency> 
    <dependentAssembly asmv2:dependencyType="install" asmv2:codebase="Native.WebService.manifest" asmv2:size="1278"> 
      <assemblyIdentity name="Native.WebService" version="1.0.0.0" type="win32" /> 
      <hash xmlns="urn:schemas-microsoft-com:asm.v2"> 
        <dsig:Transforms> 
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> 
        </dsig:Transforms> 
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /> 
        <dsig:DigestValue>HjdAo0XQ1iOtzpDVk6XERI3D1Gg=</dsig:DigestValue> 
      </hash> 
    </dependentAssembly> 
  </dependency> 
</assembly> 

And here is the manifest of the assembly that actually contains the reference of the COM component. This is IDENTICAL save assembly name to my little test app that worked

<?xml version="1.0" encoding="utf-8"?> 
<assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> 
  <assemblyIdentity name="Native.BusinessObject" version="1.0.0.0" type="win32" /> 
  <file name="vb6Component.dll" asmv2:size="9900032"> 
    <hash xmlns="urn:schemas-microsoft-com:asm.v2"> 
      <dsig:Transforms> 
        <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> 
      </dsig:Transforms> 
      <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /> 
      <dsig:DigestValue>ImxPXo252XIWm9uMe3jJTyWRKmQ=</dsig:DigestValue> 
    </hash> 
    <typelib tlbid="{4df18f65-5af1-40f0-b10b-45ac3d330567}" version="1.0" helpdir="" resourceid="0" flags="HASDISKIMAGE" /> 
    <comClass clsid="{4770821c-caee-4c4a-8234-6d43b2072c08}" tlbid="{4df18f65-5af1-40f0-b10b-45ac3d330567}" progid="class1" /> 
    <comClass clsid="{2e37ea2c-ee70-4698-a562-4ec7bf1f408c}" tlbid="{4df18f65-5af1-40f0-b10b-45ac3d330567}" progid="class2" /> 
  </file> 
</assembly> 

I have changed the name of the assemblies and removed some of the classes for brevity. And just for reference, the windows service calls the ServiceLibrary assembly which calls the WebService assembly which callse the BusinessObject assembly which calls the vb6 COM component. The WebService assembly is not actually a web service, it's just a regular .net assembly that was named poorly.

Thanks

3rd Party Excel Menu Item Execution

Thu, 12 Nov 2009 15:14:38 Z

I'm using Visual Studio 2008 Profession and programming in Visual Basic. I have a 2003 Excel Spreadsheet provided by a 3rd party with a menu item (one level down) that when clicked generates a bunch of cells with SQL script based on information on other cells.

I've written code that does some error checking, correction of errors, and insertion of missing items by comparing a previous version with the current version of the spreadsheet. After all that is done I would like to execute the 3rd party menu item from within my Visual Basic code. Is there a way to do this?

Interacting with .Net Forms

Tue, 10 Nov 2009 00:56:56 Z

Can a vb6 project "see" a .net form?

In vb6 I've add this code to call a vb9 form (DBLocForm - which sets the My.Settings connection string for typed datasets):

    Private Sub DBLocactionClick_Click()
        On Error Resume Next
        Me.Hide()
        Unload(Me)
        DBPathTimer.enabled = True
        DBPathBoolean = True
        DBLocForm.SHOW()
    End Sub

    Private Sub DBPathTimer_Timer()
        If DBPathBoolean = True Then
            Dim frm As Form
            For Each frm In Forms
                If frm.Name = "DBLocForm" Then
                    Exit For
                Else
                    Second = Second + 1
                    If Second > 2 Then
                        Call Form_Load()
                        Me.Visible = True
                        DBPathBoolean = False
                        DBPathTimer.enabled = False
                    End If
                End If
            Next
        End If
    End Sub

This seems to work in debug but fails miserably in a live version. What are my options?

Unexpected exception occurred during upgrade engine operation

Tue, 22 Aug 2006 08:52:46 Z

Hi,

During a every conversion of a 'VB6 project' to 'VB 2005 Express', I'm always getting folowing error:

---------------------------
Visual Basic Upgrade Wizard error
---------------------------
Unexpected exception occurred during upgrade engine operation: Kan niet aan de bron binden (Exception from HRESULT: 0x8004000A (OLE_E_CANT_BINDTOSOURCE))
---------------------------
OK
---------------------------

My System: Windows 2000 SP4 (Clean Install) - Visual Basic 2005 Express ed.

Any ideas howto resolve this?

Thx.

pivotwizard fails with Office 2003

Wed, 18 Nov 2009 09:23:31 Z

I am calling Excel to hold a series of database data and then create a pivot
table from it (VB from Visual studio 2008 using office interop). Works fine
on my development and test boxes (both have Office 2007). The target system
has Office 2003 and fails on the pivot table wizard.

        'Create a Pivot Table - CAUSES an ERROR with Excel 2003 !
        xlSheet2 = xlBook.Sheets("Sheet2")
        xlSheet2.Name = "PivotTable"

        Dim pivotTable As PivotTable = Nothing
        Dim CourseList As PivotField = Nothing
        Dim NatList As PivotField = Nothing
        Dim NatSum As PivotField = Nothing
        Dim pivotTableName As String = "Nationality Analsys"

        ' Add a pivot table to the worksheet.
        Dim EndCell As String = "C" + RowNo.ToString
        xlBook.PivotTableWizard(XlPivotTableSourceType.xlDatabase, _
            xlSheet.Range("A1", EndCell), xlSheet2.Range("A1"),
pivotTableName, True, True, _
            True, True, , , False, False, XlOrder.xlDownThenOver, 0)

        ' Set variables for used to manipulate the Pivot Table.
        pivotTable = xlSheet2.PivotTables(pivotTableName)
        CourseList = pivotTable.PivotFields(1)
        NatList = pivotTable.PivotFields(2)
        NatSum = pivotTable.PivotFields(3)

         Format the Pivot Table.
        'pivotTable.Format(XlPivotFormatType.xlReport2)
        pivotTable.InGridDropZones = False

        ' Set a Row Field.
        CourseList.Orientation = XlPivotFieldOrientation.xlColumnField
        NatList.Orientation = XlPivotFieldOrientation.xlRowField
        NatSum.Orientation = XlPivotFieldOrientation.xlDataField

        ' Set a Value Field.
        NatSum.Orientation = XlPivotFieldOrientation.xlDataField
        NatSum.Function = XlConsolidationFunction.xlSum

-------

So it seems that Excel 2003 does not have the pivotwizard. The question is
what can I use instead and what would work on both Office 2003 and 2008?

Don C

handle a .net Com Class event in vb6 - not works

Fri, 13 Nov 2009 09:17:11 Z

i have the ComClassSearchCustomers class and interface IComClassSearchCustomersat .net which used to create a tlb file. The class raise an event inside new. After that i have a vb6 form Form1 which catch the event , but it never see the event. Any ideas?

Option Strict On
Option Explicit On
Imports System.Runtime.InteropServices

<Guid("BB86EB1C-6444-424f-B83B-A667561E06C3"), _
ComSourceInterfaces(GetType(IComClassSearchCustomers))> _
Public Class ComClassSearchCustomers

    Public Delegate Sub printReportEventHandler(ByVal codes As String)
    Public Event printReport As printReportEventHandler

       Public Sub New()
         MyBase.New()
         RaiseEvent printReport
    End Sub
End Class


Imports System.Runtime.InteropServices

<Guid("D8F7EC74-0EFC-4e43-9B59-4CF741DF616D"), _
InterfaceType(ComInterfaceType.InterfaceIsIDispatch)> _
Public Interface IComClassSearchCustomers
    <DispId(1)> _
            Sub printReport(ByVal codes As String)
End Interface

Public WithEvents Instance As Search.ComClassSearchCustomers

 Private Sub Form_Load()
 Set Instance = New Search.ComClassSearchCustomers
End Sub

Private Sub Instance_printReport(ByVal codes As String)
MsgBox ("raise")
End Sub

Visual Basic 2008 - change font in a created Word document

Thu, 12 Nov 2009 18:11:22 Z

I'm writing a program that will read from an Excel spreadsheet - reading state names and cities in the state. I want to write to the Word document. I know how to create a Word document in VB8, but I can't figure out how to change fonts. For example, I want to create a list with the state name in a large font, then change the font and list the city names. Then when I encounter another state I increase the font.

Maine             'I want to make this a size 16 font
Bar Harbor     'The city names would be a size 10 font
Bangor
Michigan        'Now back to a size 16 font
Ann Arbor     ' Size 10 font for the city names
Lansing

Is it possible to flip-flop font size and if so can you give me an idea.

How to create a dll that can be referenced in VBA or vb6

Sun, 15 Nov 2009 20:57:27 Z

I am trying to create a Com Class dll in VB.Net 2008 which will be accessable from VBA and VB6.

I have choosen Class Library.
Then added a New COM Class
I deleted the original Class1 .vb

I added my code.
I added <Assembly: ClassInterface(ClassInterfaceType.AutoDual)> to my Com Class. It already had a ComClass entry
I made sure "Register for COM interopp" was checked in the project>properties>Compile screen.

After a build I move the .dll, .tlb and the snk to a server.

I would like to leave the dll on the server rather than install it on every workstation (but I could put it on every workstation if that is my problem).
Since I am also testing on the server I use RegAsm to register the assembly.

I have tried both

regasm M:\email\sendemail.dll /codebase M:\email\sendemail.dll
and

regasm M:\email\sendemail.dll /tlb:M:\email\sendemail.tlb /codebase M:\email\sendemail.dll

The second one overwrites the .tlb created by visual studio.

I even dragged the .dll into the C:\windows\assembly directory and unregistered the assembly.

Regardless of what I have tried, I cannot add the dll as a reference in Excel 2003.

The message I receive is:
"Can't add a refernce to the specied file"

I can add the .tld file. When I add the .tlb file I can see the properties and methods. But when I run the code I get ActiveX component cannot create object. (this is the error message I get when using the VS version of the.tlb. The message is different when I use the .tlb which is generated by the RegAsm.)

I have read many many google results but still nothing that has gotten me going.

It can't be this difficult. What am I missing???

thanks,
pat

Here is the code. I have removed all of the properties except for one and I have stripped everything out of the method, except the one line. I hope this helps.

Imports System.Net
Imports System.Net.Mail
Imports System.Runtime.InteropServices
'
<Assembly: ClassInterface(ClassInterfaceType.AutoDual)>
<ComClass(SendEmailClass.ClassId, SendEmailClass.InterfaceId, SendEmailClass.EventsId)> _
'
Public Class SendEmailClass
'
#Region "COM GUIDs"
    ' These GUIDs provide the COM identity for this class
    ' and its COM interfaces. If you change them, existing
    ' clients will no longer be able to access the class.
    Public Const ClassId As String = "187d8992-b211-44f7-9bf0-9be98129905c"
    Public Const InterfaceId As String = "2ca24656-528b-42a2-bed0-a1452d70c0de"
    Public Const EventsId As String = "e8f8d4e7-ee4d-47e8-8b30-765111c27ec0"
#End Region
'
    ' A creatable COM class must have a Public Sub New()
    ' with no parameters, otherwise, the class will not be
    ' registered in the COM registry and cannot be created
    ' via CreateObject.
    Public Sub New()
        MyBase.New()
    End Sub
'
    Private ToStringM As String
'
    Public Property ToAddressString() As String
        Get
            Return ToStringM
        End Get
        Set(ByVal Value As String)
            ToStringM = Value
        End Set
    End Property

    Public Sub SendMail()
        Dim mail As New Mail.MailMessage
        mail.To.Add(ToStringM)

End Sub
End Class

IsDate function migration issue

Fri, 13 Nov 2009 20:09:32 Z

Our application was recently migrated from VB 6.0 to VB .NET. I am having an issue with the IsDate function working differently in .NET. I found references that indicate that there is a IsDate6 function that works the same as the VB 6 function. I would appreciate it if someone could tell me where to find this function or what should replace it?

Run Time error

Thu, 12 Nov 2009 03:14:36 Z

HI! am ashkar ...

i hve a problem in my computer ..when i open "my computer" or "My documents" in desktop shortcuts or start menu program it doesn't shows the dialog box..but it shows a "winbug" box and shows a messege like below,

{ run-time error'-2147024894(80070002)':

Invalid root in registry key"HKCU\SOFTWARE\Microsoft\...}

Hope you all can understand my Question..Am waiting for reply ..

Advance thanks.!

VB 2008 Can't see some properties of VB 6 OCXs

Thu, 12 Nov 2009 07:10:48 Z

I have a large library of graphical control OCXs created under VB 6. I can import them into VB 2008 projects and for the most part they work perfectly except that some properties are not seen by VB 2008. For example, the "caption" property of one control works fine while the same property of another control is invisible to VB 2008. These properties not only do not show up in the Solution explorer, but they cannot be referenced in a program or an error occurs. For the most part they are string properties such as "Caption", "FilePath", "Password 1", etc. I tried renaming them to less common names with ne effect. I even tried recompiling the objects in VB6 with most the other properties eliminated and they still do not show up.

Is there any way of getting these to work without going through a full translation?

C#.net user control in VB6

Fri, 01 Jun 2007 06:32:55 Z

I have created a simple usercontrol in c# . It consist of three textboxes.

I have written a method in usercontrol to set the values in these textboxes

public partial class Win : UserControl

{

public Win()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

textBox3.Text = textBox1.Text + textBox2.Text;

}

public void CalVal()

{

textBox1.Text = "My";

textBox2.Text = "Name";

textBox3.Text = "Neeraj";

}

It is successfully registered as COM component .

When i use it in VB6 i am not able to set the values in these textboxes

Dim objControlNew As Try.Win

Private Sub Command2_Click()

Dim str As String
Dim strnew As String

Set objControlNew = New Try.Win

Me.Controls.Add objControlNew, "dotnet"
Me.Controls("dotnet").Visible = True
objControlNew.CalVal
End Sub

I am just calling the method , values are set from usercontrol , but i am not able to see the values in the textboxes.

Please help if anyone know the solution

VB6 Code To VB.NET

Mon, 09 Nov 2009 21:30:18 Z

Can someone please help me converting this code from VB6 To VB.NET?

Private Sub cmdCreateLog_Click()

  Dim lngLocation As Long
  Dim strLine     As String
  
  Open "c:\test.pdf" For Binary As #1   ' Open file just created.
  Open "c:\pdfTest.txt" For Output As #2
  
  Do While lngLocation < LOF(1)   ' Loop until end of file.
     strLine = Input(1, #1)    ' Read character into variable.
     lngLocation = Loc(1)   ' Get current position within file.
     Print #2, lngLocation & "     " & Replace(Replace(strLine, vbLf, "line feed"), vbCr, "carriage return") & vbCrLf;

  Loop
  Close #1   ' Close file.
  Close #2

  End

End Sub

John

Sending an Open Connection to the Interop Control ??

Sun, 08 Nov 2009 18:00:41 Z

In my Introp Control I need to get data from My SQL Database.
It is a too big wait (much more than in the VB6 prg!).
Could I send to the iCtrl an already open SQL.Connection?
(I tried, but failed ?!)
Thanks

ADH

No members available when using .NET assembly in Excel VBA

Sat, 14 Nov 2009 12:54:16 Z

Hello,

I created a .Net-DLL including a class which I wanted to use in Excel-VBA. I can reference the .tlb-file in VBA and create a new instance of the class. But I can neither access any members of it nor do I see any properties or methods of the class in the vba-object explorer.

Here is what I have done:

1. Written a simple test-class in VB.Net:

Imports System.Runtime.InteropServices

Public Class clsPerson
    Private _name As String
    Private _age As Integer

    'Needed for COM-interoperability
    Public Sub New()
    End Sub

    <ComVisible(True)> Public Property Name() As String
        Get
            Name = _name
        End Get
        Set(ByVal value As String)
            _name = Name
        End Set
    End Property

    <ComVisible(True)> Public Property Age() As Integer
        Get
            Age = _age
        End Get
        Set(ByVal value As Integer)
            _age = value
        End Set
    End Property

    Public Function Description() As String
        Return Me.Name & " ist " & Me.Age & " Jahre alt."
    End Function

End Class

2. Checked "Make the Assembly visible to COM" in the Assembyinformation-popup-window of the project-properties..

3. Checked "Register for COM-Interop" in the compile-settings of the project-properties.

4. Built the project somewhere.

5. In Excel-VBA-Editor edited a reference to the newly built .tlb-file.

6. Wrote following test-code in VBA

Sub Test()

Dim p As New clsPerson
p.Name = "f"

End Sub

The clsPerson-Instance gets created, but the line p.Name throws an automation error.

Any idea what goes wrong? Any ideas are welcome.

Thx a lot for your help!

P.S.: Just got the VBA-Editor to show the members by setting the "COM-class"-Property the .NET-Class in Visual Studio to "True". Anyway, an automation-error is still thrown when trying to set a value, eg. for the age-property of the person-class in vba.

Activex Control

Mon, 09 Nov 2009 16:47:58 Z

Hi all,

I am implementing vb.net application to monitor internet accessing. When user click on any browser it should prompt to login page. After entering the credentials it should allow user to access inter net. This is very urgent please response to this.

Regards,

Y.JeevanRao

Increasing Memory Usage with Interop Controls in ActiveXControls

Wed, 28 Oct 2009 13:55:49 Z

Using an interop control inside a VB6 ActiveX Control results in ever-increasing memory use as the form is loaded and unloaded. This is part of a complex upgrade of a larger app with many forms and controls. We cannot simply eliminate the ActiveX controls in a single step.

What seems to be happening is that the OCX remains loaded until the VB6 app ends. The Terminate Event in the ActiveX control does not fire when the form is unloaded. If the Interop control in the ActiveX control is replaced with a VB control, i.e. TextBox, the Terminate Event is fired.

I have sample code to repro, not sure how to upload it here.

Any help or suggestions would be greatly appreciated. Thanks.

Prove that memory use with the stand-alone interop control is ok
    a) In VB.Net, create an interop control, drop a textbox on the control, name the control InteropTextBox1 and build it
    b) Place InteropTextBox1 on a VB6 form. Add code to load/unload the form in a loop for 500-1000 iterations.
    c) Build and run the VB6 app. In task manager, note the memory used is constant or grows only slightly

Observe the memory use increases with an ActiveX Control.
    a) Place InteropTextBox1 on a VB6 ActiveX control
    b) Add the ActiveX control to the VB6 form from step 1-b above, (replace InteropTextBox1 on the form)
    c) Build and run the VB6 app. in task manager, note the memory used steadily increases until VB6 freezes with an out of memory error.

Show that the Terminate Event Does not Fire when there is an Interop Control in the ActiveX control
    a) Add a message box in the UserControl_Terminate Event of the ActiveX control
    b) Add another form to the VB6 app, Form2. Set Form2 as the Startup Object. Add a CommandButton to Form 2. In the Command1_Click Event, add the code: Form2.Show, Unload Form2.
    c) Run the VB6 app. Click Command1 3x. Note that the Terminate event does not fire. Close the App, note that the Terminate event fires 3x.
    d) Remove InteropTextBox1 from the ActiveX control.
    e) Run the VB6 app. Click Command1 3x. Note that the Terminate event fires each time Form2 is unloaded.

Cannot create ActiveX component?

Tue, 10 Nov 2009 17:21:34 Z

<img>http://img69.imageshack.us/img69/6182/activex.jpg</img>

I am getting the following error:

'Cannot create ActiveX component.'

The code I have got so far: 'I get the error on 'Br = GetObject(, "InternetExplorer")' this line.

Imports System
Imports System.IO
Imports System.Uri
Imports System.IO.File
Imports System.Web
Imports System.Configuration
Imports System.Text
Imports Microsoft.VisualBasic
Imports System.Data
Imports SHDocVw

Public Class Form1

    Dim Br As InternetExplorer
    Dim m As Object


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Enabled = True
        Timer1.Interval = 1000

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        '  Try
        Br = GetObject(, "InternetExplorer")
        'Catch
        'End Try
        m = Type.Missing
        For Each ie In New ShellWindows()
            If (ie.LocationURL = "http://www.foo.com") Then
                ie.Navigate("http://www.bar.com", m, m, m, m, m)
            End If
        Next

    End Sub
End Class

Error Loading DLL

Tue, 26 May 2009 13:43:26 Z

Hi!

I have looked everywhere in net but none solved my issue. I have a project that was created in VB6+sql server 2000. I am trying to migrate it to VB.NET.
The project is made up of 3 sub projects. data access layer, business layer and presentation layer. I successfully migrated both DAL and BOL using VBupgrade.exe but when I tried to upgrade PL it complainted and said ensure it complies. originally i have vs installed in 2005 and not vb6. just to ensure that the project compiles fine I installed vb6. at times I also get error which is mentioned as in http://www.eggheadcafe.com/forumarchives/VisualBasiccom/Jan2006/post26072868.asp so I thought I should start from beginning and I opened all 3 vb6 project in vb6 environment. set the compatibily to project only and tried to compile first DAL, and then BL regenerated dll for each and when I tried to generate for PL it says access denied to overwrite existing DLL. i couldnt figure out why. now when I simply do "start with full compile in PL" I get error "Compile Error: Error loading DLL" which hits in class module as below
-----------------------------------------------------------------------------
'local variable(s) to hold property value(s)
Option Explicit

Public Function FGetErrAction(Response As Response, lngErrNo As Long, strErrSrc As String, strErrDsc As String) <--here error is thrown

    Dim strReturnAction     As String

    On Error GoTo FGetErrAction_Error

    strReturnAction = FDBFunctions(lngErrNo, strErrSrc, strErrDsc)

    'Response.Clear

    Response.Write strReturnAction

FGetErrAction_Exit:
    Exit Function

FGetErrAction_Error:

    Call FLogEvent(Err.Number, Err.Source, Err.Description)

    Response.Write conErrErr1

End Function
------------------------------------------------------------------
I have already spend more than 3 days not sure whats wrong.

could anyone help me please? I have tried searching for reference of function FGetErrAction but I cant see any reference. when i delete everything from this module the error hits at .bas module as below
Private Sub SOpenConnection(ByRef adoconErrors As ADODB.Connection, ByRef adoconErrLog As ADODB.Connection)
'
'Descr: Opens and returns ADO Errors and ErrLog database connection's
'
'Inputs:
'adoconErrors   - ADO connection
'adoconErrLog   - ADO connection
'
'process:     Opens ADO connection's

    Dim strConn         As String
    Dim strUsID         As String
    Dim strPass         As String
    Dim strDSN          As String

    On Error GoTo SOpenConnection_Error

    Set adoconErrors = CreateObject("ADODB.connection")

    adoconErrors.open conErrorsFileDsn, conErrUserId, conErrUserPwd

    Set adoconErrLog = CreateObject("ADODB.connection")

    adoconErrLog.open conErrLogFileDsn, conErrUserId, conErrUserPwd

    Exit Sub

SOpenConnection_Error:

    Err.Raise Err.Number, Err.Source, Err.Description

End Sub

I think its something to do with ADODB.connection but what should I do about it?

could any one please help?

Interop Debuging

Tue, 10 Nov 2009 00:51:25 Z

Is there anyway to debug forms created in vb9 when debugging the vb6 project?

how to make a vb6 app a childform of a .net application

Sat, 07 Nov 2009 04:17:57 Z

ok now i made and standard exe app in vb6

what i would like to do with it is make it part of a .net application

not sure how to explain this but by saying making it like dock with my .net app

i know it will have to do with api calll i think but dont know how to go about starting something like this

Error while executing httpwebrequest.getrequeststream.

Wed, 04 Nov 2009 10:46:20 Z

We migrated code from vb to vb.net. In vb msxml was used to make http requests and in .net we changed to httpwebrequest. With this new implementation an exception is thrown while executing httpwebrequest.getrequeststream.

The exception code is 10060 and the exception message is A connection attempt failed because the connected party did not properly respond after a period of time, or established connection failed because connected host has failed to respond

This exception occurs intermittently and not always.

Please find below the code snippet which i've used to achieve the result

Dim HttpRequest As HttpWebRequest

Dim HttpResponse As HttpWebResponse

Dim streamReader As StreamReader

Dim streamWriter As StreamWriter

HttpRequest = HttpWebRequest.Create(strUrl)

HttpRequest.Method = WebRequestMethods.Http.Post

HttpRequest.ContentType = "text/xml"

HttpRequest.Timeout = 999999999

HttpRequest.ContentLength = Str(Len(temp))

streamWriter = New StreamWriter(HttpRequest.GetRequestStream)

streamWriter.Write(temp)

streamWriter.Flush()

streamWriter.Close()

HttpRequest.GetRequestStream.Close()

HttpResponse = CType(HttpRequest.GetResponse, HttpWebResponse)

streamReader = New StreamReader(HttpResponse.GetResponseStream)

temp = streamReader.ReadToEnd

streamReader.Close()

HttpResponse.Close()

Please advice on a resolution

Thanks,
Anil

Can anyone Resolve this NullReferenceException?

Sat, 07 Nov 2009 13:16:21 Z

I'm pasting the whole code, for the ease of you, in this the bold line was giving continues error:

Option Explicit On
Option Compare Text

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports Microsoft.Office.Interop.Excel

Public Class TestForm

    Private Sub TestForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x() As Object = {2.648305, 4.934211, 7.04005, 9.014423, 11.09467, 13.0814, 15.06889, 17.08428}
        Dim y() As Object = {15, 30, 45, 60, 75, 90, 105, 120}
        Dim z(y.Length - 1) As Object
        Dim i, j, k As Integer
        Dim xstr, ystr, zstr As String
        Dim exApp As Microsoft.Office.Interop.Excel.WorksheetFunction
        Try
            For i = 0 To x.Length
                For j = 0 To y.Length
                    For k = 0 To z.Length
                        z(k) = exApp.Slope(y(j), x(i))
                    Next
                Next
            Next
            For i = 0 To x.Length
                xstr += x(i).ToString()
            Next
            For j = 0 To y.Length
                ystr += y(j).ToString()
            Next
            For k = 0 To z.Length
                zstr += z(k).ToString()
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        xLabel.Text = "X=" + xstr.ToString()
        yLabel.Text = "Y=" + ystr.ToString()
        zLabel.Text = "Z=" + zstr.ToString()
    End Sub
End Class

The Bold Line always gives the same error:
System.NullReferenceException was caught
Message="Object reference not set to an instance of an object."
Source="AdsorptionSimulator"
StackTrace:
       at ChemChart.TestForm.Button1_Click(Object sender, EventArgs e) in C:\ChemChart\ChemChart\Forms\TestForm.vb:line 39
InnerException:

Please Can Anyone Help me, I need the Code urgently.

Thanx in advance,

- Rajeev

toolstripbutton in interop usercontrol not releasing focus when vb6 shows modal dialog in response to click

Wed, 21 Jan 2009 23:05:10 Z

Hi, I have been able to create an interop UserControl in VS08 with the toolkit, and everything seems to work perfectly except this one minor issue:

my usercontrol has a ToolStripButton. on the click event of the ToolStripButton, i raise a custom event, ToolClicked. I handle this is VB6 code, and show a second form modally. When this second form appears, the first click anywhere on this form is ignored. I noticed that the ToolStripButton's border stays "hovered" or "focused" until after the first click on my modal form. One other thing that I noticed is that if I show a .Net form from VB6 code in response to the same ToolClicked event, it works fine.

repro steps:

1. in VS08, create new VB6 Interop UserControl project.

2. add a ToolStrip to the user control

3. add a ToolStripButton to the ToolStrip

4. in code for the UserControl, declare an event; Public Event ToolClick()

5. in the click event of the ToolStripButton, raiseevent the event; RaiseEvent ToolClicked()

6. build the project

7. in VB6, create a new Standand EXE project

8. in the Components dialog check the interop usercontrol

9. add a Form, Form1, and draw the control on the form

10. add another form, Form2, and add a button.

11. in the button's click event call Me.Hide

12. back on Form1, in code, select the ToolClicked event of the usercontrol

13. add the following code to show Form2 modally:

Dim frm As New Form2

frm.Show vbModal, Me

14. run the project, and click the button on the ToolBar.

15. notice that the first click on the button in Form2 is ignored, and after the first click the appearance of the ToolStripButton returns to "unfocused"

Error in Setup Proj. (.tlb)

Tue, 03 Nov 2009 11:16:47 Z

Error massage in Setup proj. for an InteropControl:
Please how can I find the reason of:

"Unable to create registration information for file named 'InteropControlOC.tlb"

Thanks, adh

ADH

Built-In Dialogs via Microsoft Excel Interop 11.0 Object Library

Mon, 08 Jan 2007 05:43:13 Z

Hi.

Im currently working on an Excel Add-in and I am wondering if its possible to bring up a built in dialog box to allow users to select cells, and then the selected cell references to be returned to my code. I have access to the Excel Interop 11.0 Object Library.

I have found the following code to display various built-in Excel dialog boxes, however the documentation is poor and I cant find the correct built in dialog, and if I did, have no idea how to access its return values to find what the user selected. Due to the porting to C# .NET code, the following function is a bit messy and I have no idea what parameters each type of built in dialog takes.

Microsoft.Office.Interop.Excel._Application ExcelApp = // Some code to access the underlying Excel API.

ExcelApp.Dialogs[ XlBuiltInDialog.<DialogTypeHere> ].Show( // Lots of parameters );

where <DialogTypeHere> is one of the choices from the XlBuiltInDialog enum.
You can see the choices here: http://msdn2.microsoft.com/en-us/library/microsoft.office.interop.excel.xlbuiltindialog(VS.80).aspx

the Show method has the following signiture:

bool Dialog.Show( object Arg1, object Arg2, object Arg3, ... object Arg29, object Arg 30 );

I am looking for a specific dialog that is often used all around Excel. The best way to descibe it would be the 'Insert Range Reference' dialog. It minimises the current form and allows the user to select a cell, then returning to the original form with the selected cells reference pasted into the corrosponding text box.

For an example, within Excel 2003 (and probably most other versions) go to Insert -> Name -> Define. Within that form, click the little box in the bottom right, next to the "Refers To:" text box. That then minimised the 'Define Name' form, allows the user to select a range, and then restores the form, with the selected range's reference inserted back into the "Refers To:" text box. Im looking for similar functionality for my own Form within Excel.

As there is a huge list of accessible built-in dialogs, I imagined this one would be easy to find. However, Im dubious to if its even possible, as I cant see how I would gain access to the selected range the user selected - the Show method simply returns a bool value. I could probably make my own, but it would not tie in as nicely with the original.

Any ideas, comments, or similar previous experience is greatly appreciated.

Cheers.

Tyson.

how do u get text from a listbox in a differnt application

Thu, 22 Oct 2009 04:43:41 Z

i know i would have to use apis but the only thing i can find for this is in vb6 or vc++ but nuttin for vb2008

i do know that LB_GETTEXT dont work

i do know how to find the window to the listbox, but just cant get the text from the listbox

Need some help about a vb6 program i made and starting it in vb2008

Fri, 06 Nov 2009 15:39:59 Z

i made a program in vb6 made it a standard Name.exe

now when i double click on it, it runs

and in vb2008 i try this

but when i try process.start("Name.exe") it says file not found

i am using vb6 and vb2008 on vista64

how to pass hwnd from VB6 code in VB.net library using Interop

Mon, 02 Nov 2009 22:41:29 Z

I need to pass a window handle (long) from VB6 client to a library written in VB.Net for some processing (using interop). I don't know how to make use of the hwnd from VB6 and get the correct window handle in .Net.

Please help!

btw, Im on VS 2008 SP1 and .Net framework 3.5 SP1

how to raise user events in VS 2005 (COM) sub-Winform, handle in VB6

Thu, 07 Jun 2007 13:08:30 Z

I am trying to raise a user-defined Event in a VB.NET 2005 COM Class

(sub)form and have my calling VB6 form handle it.

Code samples follow. In the VS 2005 code two events are coded identically -

when they are RAISEd in reaction to a Framework Event they WORK, but when they are RAISEd in response to by user action within the VB.NET 2005 Subform they do NOT:

===================================

' 1. Here are the Events, defined in the same fashion in the VS 2005 (sub)form

===================================

#Region "User-Defined Variables"

    Public Event ExitOBRpayerDialog()

    Public Event NetworkAvailabilityChanged( _

        ByVal IsAvailable As Boolean)

===================================

' 2. Here are the Event Handlers for the Subs that will Raise the Events

' to the calling VB6 form, both added in the VS 2005 (sub)form constructor

===================================

#Region " Windows Form Designer generated code "

    Public Sub New()

        MyBase.New()

        'This call is required by the Windows Form Designer.

        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

        AddHandler Me.FormClosing, AddressOf frmOBRpayer_FormClosing

        AddHandler My.Computer.Network.NetworkAvailabilityChanged, _

            AddressOf My_NetworkAvailabilityChanged

        AddHandler btnCustom.Click, AddressOf btnCustom_Click

     End Sub

===================================

3. Here are the VS 2005 Subs that are supposed to Raise the Events.

When the OS raises the My.Computer.Network.NetworkAvailabilityChanged

event, both User Events are raised by the first Sub below.  They BOTH

fire and are handled properly by the VB6 calling form!!!

When either of the other two Subs is executed it is because of a Form

Event, i.e. a user clicking a button (Form Close in the 2nd sub and

btnCustom in the second).  In this case, NEITHER User Event that is RAISED

gets back to the VB6 program and neither is handled!!!  The VB6 code for both Events is similar also, but I include it further below for completeness

anyhow.

WHY oh WHY cannot I fire my User Events with a form button click?  WHY does an Event raised by the OS work and a user action does not???  (BTW, the way the OS fires both events is when I pull the network cable out of my

workstation).

===================================

    Public Sub My_NetworkAvailabilityChanged(ByVal sender As Object, _

          ByVal e As _

          Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs)

        RaiseEvent ExitOBRpayerDialog()

        RaiseEvent NetworkAvailabilityChanged(e.IsNetworkAvailable)

        Application.DoEvents()

    End Sub

-----------------------------------------------------------------------------

    Public Sub frmOBRpayer_FormClosing(ByVal sender As Object, ByVal e As

System.Windows.Forms.FormClosingEventArgs)

        Dim crCloseReason As Windows.Forms.CloseReason

        Dim ev As New

Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs(False)

Try

            crCloseReason = CloseReason.UserClosing

            crCloseReason = e.CloseReason

            Select Case crCloseReason

                Case CloseReason.UserClosing

                    PayerCode = "71LA"

                    RaiseEvent ExitOBRpayerDialog()

            ' DOES NOT FIRE - why oh why?

                    Application.DoEvents()

                Case Else

                    PayerCode = "OOPS"

                    If OBRMode Then

                        RaiseEvent ExitOBRpayerDialog()

            ' DOES NOT FIRE - why oh why?

                        Application.DoEvents()

                    Else

                        RaiseEvent ExitOBRpayerDialog()

            ' DOES NOT FIRE - why oh why?

                        Application.DoEvents()

                    End If

            End Select

        Catch ex As Exception

            If exceptionPolicy.HandleException(ex) Then

Me.handle_Ignorable_Exception(ex)

        Finally

            Call My_NetworkAvailabilityChanged(Me, ev)

            ' DOES NOT FIRE even though the Sub is the one that RAISEs

bothEvents!

        End Try

    End Sub

-----------------------------------------------------------------------------

    Public Sub btnCustom_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)

        ' Does a custom form operation.  First removes any errors on the form,

        ' then restores the data at it looked before the last user Save.

        Dim ev As New

Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs(True)

Try

            Call My_NetworkAvailabilityChanged(Me, ev)

            ' DOES NOT FIRE even though the Sub is the one that RAISEs

bothEvents!

        Catch ex As Exception

            If exceptionPolicy.HandleException(ex) Then

Me.handle_Ignorable_Exception(ex)

        End Try

    End Sub

===================================

' 4. Here is the VB6 calling form code for handling the two User-Defined

Events

===================================

Option Explicit

Private WithEvents clsOBRPayer As frmOBRpayer

...

Private Sub Form_Load()

   ' Instantiate the object defined above as "With Events"

   ' Note that this object is NEVER reset to 'Nothing'.

   Set clsOBRPayer = New frmOBRpayer

...

   ' Here is where the .NET (sub) form is actually run

Public Sub cmdManipulatePayers_Click()

   Screen.MousePointer = vbHourglass

      With clsOBRPayer

         .Billing_Patient_ID = 902264244

         .Admit_ID = 1

         .Patient_First_Name = "Silly"

         .Patient_Last_Name = "Willy"

         .OBRMode = True

         .runForm

      End With

   Screen.MousePointer = vbDefault

 End Sub

-----------------------------------------------------

...

   ' Here are the Event Handlers for the two User-Defined events.  BOTH are

   ' handled and ONLY handled when the OS fires the

   ' My.Computer.Network.NetworkAvailabilityChanged event

-----------------------------------------------------

Private Sub clsOBRPayer_ExitOBRpayerDialog()

    ShowPayerCode

End Sub

Private Sub clsOBRPayer_NetworkAvailabilityChanged( _

        ByVal IsAvailable As Boolean)

    ShowAvailable IsAvailable

End Sub

Private Sub ShowPayerCode()

    Dim intReturnCode As Integer

    intReturnCode = MsgBox("PayerCode: [" & _

        clsOBRPayer.PayerCode & "], " & _

        "Application_Startup_Path: [" & _

        clsOBRPayer.Application_Startup_Path & "].")

End Sub

Private Sub ShowAvailable(IsAvailable As Boolean)

    MsgBox (IIf(IsAvailable, "Online", "Offline"))

End Sub

===================================

Help would be much appreciated!  Warm regards ... triunity