VB Warned me for Coding Methord HELP !!

IT TAKES CRZY GOD DAMN TIME TO JUST SHOW FORM1 and 2, IT CRASHES IT TOO ! HELP ...........................

Quote:

System.InvalidOperationException was unhandled
Message=Collection was modified; enumeration operation may not execute.
Source=mscorlib
StackTrace:
at System.ThrowHelper.ThrowInvalidOperationException(ExceptionResource resource)
at System.Collections.Generic.List`1.Enumerator.MoveNextRare()
at System.Collections.Generic.List`1.Enumerator.MoveNext()
at Microsoft.VisualBasic.PowerPacks.ShapeCollection.Dispose(Boolean disposing)
at Microsoft.VisualBasic.PowerPacks.ShapeContainer.Dispose(Boolean disposing)
at System.ComponentModel.Component.Dispose()
at System.Windows.Forms.Control.Dispose(Boolean disposing)
at System.Windows.Forms.Form.Dispose(Boolean disposing)
at WindowsApplication1.Form2.Dispose(Boolean disposing) in C:\Users\Megh\documents\visual studio 2010\Projects\Snippet\Snippet\Form2.Designer.vb:line 13
at System.ComponentModel.Component.Dispose()
at System.Windows.Forms.Form.WmClose(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.CallWindowProc(IntPtr wndProc, IntPtr hWnd, Int32 msg, IntPtr wParam, IntPtr lParam)
at System.Windows.Forms.NativeWindow.DefWndProc(Message& m)
at System.Windows.Forms.Form.DefWndProc(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.ContainerControl.WndProc(Message& m)
at System.Windows.Forms.Form.WmSysCommand(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.CallWindowProc(IntPtr wndProc, IntPtr hWnd, Int32 msg, IntPtr wParam, IntPtr lParam)
at System.Windows.Forms.NativeWindow.DefWndProc(Message& m)
at System.Windows.Forms.Form.DefWndProc(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.ContainerControl.WndProc(Message& m)
at System.Windows.Forms.Form.WmNcButtonDown(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoCompo nentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.Run(ApplicationContext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
at WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
at System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean ignoreSyncCtx)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()
InnerException:

here is my files

--------------------- form1.vb (startup form) ----------------------
vb Code:
Public Class Form1
 
    '----------------------------------------------------------------------
    Public Function IsConnectionAvailable() As Boolean        ' Returns True if connection is available
 
        ' check if hotflask.com is avilable 
        Dim objUrl As New System.Uri("http://www.google.com/")
        ' Setup WebRequest
        Dim objWebReq As System.Net.WebRequest
        objWebReq = System.Net.WebRequest.Create(objUrl)
        Dim objResp As System.Net.WebResponse
        Try
            ' Attempt to get response and return True
            objResp = objWebReq.GetResponse
            objResp.Close()
            objWebReq = Nothing
            Return True
        Catch ex As Exception
            ' Error, exit and return False
 
            objWebReq = Nothing
            Return False
        End Try
 
    End Function
 
    '----------------------------------------------------------------------
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        If IsConnectionAvailable() = False Then
            Form2.Show()
            Me.Visible = False
 
        Else
 
            Form2.Show()
            Form2.Visible = False
            
        End If
 
 
    End Sub
End Class
--------------------- form2.vb -------------------------------
vb Code:
Public Class Form2
 
    Public Function IsConnectionAvailable() As Boolean        ' Returns True if connection is available
 
        ' check if hotflask.com is avilable 
        Dim objUrl As New System.Uri("http://www.google.com/")
        ' Setup WebRequest
        Dim objWebReq As System.Net.WebRequest
        objWebReq = System.Net.WebRequest.Create(objUrl)
        Dim objResp As System.Net.WebResponse
        Try
            ' Attempt to get response and return True
            objResp = objWebReq.GetResponse
            objResp.Close()
            objWebReq = Nothing
            Return True
        Catch ex As Exception
            ' Error, exit and return False
 
            objWebReq = Nothing
            Return False
        End Try
 
    End Function
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Size = New Size(516, 216)
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.Size = New Size(516, 216) Then
 
            Me.Size = New Size(516, 527)
            Button1.Text = "Hide Information"
 
        ElseIf Me.Size = New Size(516, 527) Then
 
            Me.Size = New Size(516, 216)
            Button1.Text = "Show information"
 
 
 
        End If
 
    End Sub
 
    Private Sub Button1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.SizeChanged
 
    End Sub
 
    Private Sub Form2_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
            End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
 
    End Sub
End Class
MY EVENT FILE ___________________________________________
vb Code:
Imports System.Net
 
Namespace My
 
    Partial Friend Class MyApplication
 
 
        Public Function IsConnectionAvailable() As Boolean        ' Returns True if connection is available
 
            ' Replace [url]www.yoursite.com[/url] with a site that
            ' is guaranteed to be online - perhaps your
            ' corporate site, or microsoft.com
            Dim objUrl As New System.Uri("http://www.google.com/")
            ' Setup WebRequest
            Dim objWebReq As System.Net.WebRequest
            objWebReq = System.Net.WebRequest.Create(objUrl)
            Dim objResp As System.Net.WebResponse
            Try
                ' Attempt to get response and return True
                objResp = objWebReq.GetResponse
                objResp.Close()
                objWebReq = Nothing
                Return True
            Catch ex As Exception
                ' Error, exit and return False
 
                objWebReq = Nothing
                Return False
            End Try
 
       End Function
 
        Private Sub MyApplication_NetworkAvailabilityChanged(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged
            If IsConnectionAvailable() = False Then
 
                Form2.Visible = True
                Form1.Visible = False
 
            ElseIf IsConnectionAvailable() = True Then
 
                Form2.Visible = False
                Form1.Visible = True
 
            End If
 
        End Sub
 
    End Class
 
End Namespace

Re: VB Warned me for Coding Methord HELP !!

Hey,

Have you tried stepping through your code in the debugger? Which line of code it taking a long time to execute?

I would suspect that it is this line:

Code:

objResp = objWebReq.GetResponse

But it would be good to confirm.

Also, can you provide some details as to what exactly you are trying to achieve? Why are you making the request in the first place?

Gary

Re: VB Warned me for Coding Methord HELP !!

Quote:

I would suspect that it is this line:

Code:

objResp = objWebReq.GetResponse

But it would be good to confirm.

That line is within a try..catch block that should prevent an unhandled exception I'd have thought.

Re: VB Warned me for Coding Methord HELP !!

Hey,

You are correct. However, I was referring to the long time of execution that the OP was referring to, not specifically the unhandled exception.

Gary