Visual Basic

Member 13017730 wrote:

s anything wrong in function declaration?

Public Class cfgFiles
	Inherits SortedList(Of String, cfgFile)

	Private Shared files As New SortedList(Of String, cfgFile)

	Public Overloads Shared Sub Add(ByVal fileName As String)
		files.Add(fileName, New cfgFile(fileName))
	End Sub

	Public Overloads Shared Sub Remove(ByVal fileName As String)
		Dim ff As cfgFile = files(fileName)
		ff.Dispose()
		files.Remove(fileName)
	End Sub

	Public Overloads Function GetEnumerator() As IEnumerator(Of cfgFile)
		Return files.GetEnumerator
	End Function

	Public Property SelectedItem As cfgFile
	Default Public Overloads Property Item(index As Integer)
		Get
			SelectedItem = files(index)
			Return SelectedItem
		End Get
		Set(value)	' as cfgFile?
			files(index) = value
		End Set
	End Property

End Class

Friends

    Passing more information on the problem for better understanding.
    See the routine below it is very simple, however I'm getting intermittent error in my application.
    Searching the error I got the link below, but checking my process I did not find anything related to the item resize.
    If anyone has any other information that can help me in this matter thank you for the attention.

Private Sub cmdExit_Click()
   On Error GoTo TryCathError
   Unload Me
   Exit Sub
TryCathError:
   Dim s_dsMsg As String
   s_dsMsg = "Error :{" & Err.Number & "}" _
      & vbNewLine & Err.Description
     
   MsgBox s_dsMsg, vbCritical, "Error"
End Sub

link ===> msdn.microsoft.com/en-us/library/aa243662(v=vs.60).aspx 

There is an Unload statement in the Resize event of a Data, Form, MDIForm, or PictureBox control. 
Remove the Unload statement from the event.

Quote:

Eddy Vluggen / Grupo

I'm programming with vb 6, the error I passed is code 365

Unable to unload within this context

Quote:

How sad, but thank you for your attention.

nei2009 wrote:

I'm programming with vb 6

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]