Outlining Shortcuts
My new best friends.
CTRL M, CTRL L - Collapse/expand all properties/methods toggle
CTRL M, CTRL M - Collapse/expand selected property/method toggle
Milkman Counter
It is only appropriate that I add a counter to countdown the time until the Milkman is gone and on the street! The team members that should have stayed on the project left, but the ones that suck and soured the project are still on the project. Nice.
Once the counter reaches zero, I am sure many people will rejoice and partake in acts of merriment. When is the other moron leaving the project? Yes, I am referring to the derelict project manager. Here morons, a parting picture just for you.
Another One Bites The Dust
Last Friday, I was the recipient of a misdirected IM. First thought was WTF now! It was our homeboy Naveen. I learned that it was his last day at work. We did not get a chance to go to lunch, drinks, or the temple.
So, I want to post this and give Nman a shout out. Keep checking the blog and post damnit, else Scooter will put the smack down on you! I checked your status and you are an author, so you should have no excuse.
Good luck on your next project. Also, I am treating the team to movie night in two weeks, let us know if you can go. Peace out!
Declaring an array in VB
This is probably painfully obvious to most developers, but not to me! I was trying to declare an array of objects in VB by using the following syntax:
Dim oArray as Object()()
I was thinking this would give me an uninitialized multidemionsal array, but I kept getting the following error that left me mystified at the end of the day on Friday.
Number of indices exceeds the number of dimensions of the indexed array.
Thankfully after plenty of drinking and rock band over the weekend, I was able to come in this morning and realize that the real way you declare a multidimentional array in VB.NET is as such:
Convoluted Code
Honestly, what does this function do?
Private Function VarN( _
ByRef VarName As String, _
Optional ByRef Value As Object = Nothing) _
As Object
On Error Resume Next
Static aVarName() As Object
Static aVarValue() As Object
Dim iFound As Integer
Dim ret As Object
If IsNothing(Value) Then
iFound = aFind(aVarName, VarName)
If iFound > -1 Then
ret = aVarValue(iFound)
End If
ElseIf Left(VarName, 1) "~" Then
If VarName = "A" Then
ret = VB6.CopyArray(aVarName)
ElseIf VarName = "B" Then
ret = VB6.CopyArray(aVarValue)
ElseIf VarName = "C" Then 'clear memvars
Erase aVarName
Erase aVarValue
End If
Else
iFound = aFind(aVarName, VarName)
If iFound = -1 Then
aAdd(aVarName, VarName)
aAdd(aVarValue, Value)
Else
aVarName(iFound) = VarName
aVarValue(iFound) = Value
End If
End If
Return ret
End Function