The Weird and The Wonderful

Private Sub GetControls(Byval obj as Control, ByRef list as List (Of Control))

For each ctl as Control in obj.Controls
   If ctl.Controls.Count > 0
      GetControls(obj, list)
      list.Add(ctl)
   Else
      list.Add(ctl)
   End If
Next ctl

End Sub

Public Sub Save()
' Some code here

If canSave(Me) Then
   SaveNew()
End If

' Some more code here
End Sub

Private Function canSave(ByVal obj as Control) As Boolean
Dim bool as Boolean = True

For each ctl as Control in obj.Controls
   If ctl.Controls.Count > 0
      canSave(ctl)
      If TypeOf ctl is CompanyControl Then
         Dim cctl As CompanyControl = ctl
         If cctl.Mandatory AndAlso cctl.Value = "" Then
            bool = False
         End If
      End If
   Else
      If TypeOf ctl is CompanyControl Then
         Dim cctl as CompanyControl = ctl
         If cctl.Mandatory AndAlso cctl.Value = "" Then
            bool = False
         End If
      End If
   End If
Next ctl

Return bool

End Function

private IAlertDocument CompareObjectAsIAlertDocumentOrNullIfNotCastable(object compareObject) {
    return compareObject as IAlertDocument;
}

string GetAStringThatRepresentsTheObjectPassedAsAnObjectParameterSoItWorksForAnyObject(object obj)
{
    return obj.ToString();
}

Public Class πRateSapient
Implements gr1d.API.Agent.IPirate1

...

Public Sub Tick(ByVal agentUpdate As Gr1d.Api.Agent.IAgentUpdateInfo) Implements ...
 ' Logic here
End Sub

Public Module Logic

<Extension()>
Public Sub Tick(ByVal agent As πRateSapient, ByVal update As Agent.IAgentUpdateInfo)
 ' Logic here
End Sub

Public Class πRateSapient
Implements gr1d.API.Agent.IPirate1

...

Public Sub Tick(ByVal agentUpdate As Gr1d.Api.Agent.IAgentUpdateInfo) Implements ...
 Me.Tick(agentUpdate)
End Sub

Don't forget to rate my post if it helped!

"He has no enemies, but is intensely disliked by his friends."
"His mother should have thrown him away, and kept the stork."
"There's nothing wrong with you that reincarnation won't cure."
"He loves nature, in spite of what it did to him."

modified on Wednesday, December 22, 2010 6:05 AM

fileName = ""

If Len(fileName) = 0 Then
    fileName = Left(DBEngine.Workspaces(0).Databases(0).Name, i) & "REF"
End If