Visual Basic

Michael Schäuble wrote:

Dim actNode as TreeNode = TreeView.SelectedNode

Private Sub TreeView1_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) _
Handles TreeView1.BeforeExpand
    Dim actNode As TreeNode = e.Node
    ...
End Sub

Michael Schäuble wrote:

I haven't dared to mess with the "e.-Stuff" yet...

Caio Kinzel Filho wrote:

Is your return type of getCurrentDayOfWeek(), DayOfWeek?

Caio Kinzel Filho wrote:

In which point did you try getCurrentDayOfWeek(dayShortName) in the debugger?

Private Function getCurrentDayOfWeek(ByVal dayName As String) As DayOfWeek
    Select Case dayName
        Case "su"
            getCurrentDayOfWeek = DayOfWeek.Sunday
        Case "mo"
            getCurrentDayOfWeek = DayOfWeek.Monday
        Case "tu"
            getCurrentDayOfWeek = DayOfWeek.Tuesday
        Case "we"
            getCurrentDayOfWeek = DayOfWeek.Wednesday
        Case "th"
            getCurrentDayOfWeek = DayOfWeek.Thursday
        Case "fr"
            getCurrentDayOfWeek = DayOfWeek.Friday
        Case "sa"
            getCurrentDayOfWeek = DayOfWeek.Saturday
    End Select
    Return getCurrentDayOfWeek
End Function

MsgBox(getlabel(DayOfWeek.Sunday, 1))
MsgBox(getlabel(getCurrentDayOfWeek("su"), 1))

Function getlabel(ByVal day As DayOfWeek, ByVal calendarRow As Integer) As String
    Select Case day  'Get a label name
        Case DayOfWeek.Sunday
            Select Case calendarRow
                Case 1
                    Return "Sunday"
            End Select
        Case DayOfWeek.Monday
            Select Case calendarRow
                Case 1
                    Return "Monday"
            End Select
        Case DayOfWeek.Tuesday
            Select Case calendarRow
                Case 1
                    Return "Tuesday"
            End Select
    End Select
End Function

.SetApartmentState(ApartmentState.STA)

.SetApartmentState(ApartmentState.STA)

Public Delegate myDelegate()

Form1.TextBox1.Invoke(New myDelegate(AddressOf CheckTextBox1), New Object() {})

Public Sub ChecktextBox1()
     IF Form1.TextBox1.Text = "ABC..." Then
         'Do something
     End If
End Sub

reportThread = New Thread(AddressOf ProcessReport)
With reportThread
    .Priority = ThreadPriority.AboveNormal
    .IsBackground = True
    .Start()
End With

With frmDiscoveryII
    Select Case True
        Case .rbReportJourneySummary.Checked
             ...
        Case .rbReportIdle.Checked
             ...

Sub WHATEVER
frmDiscoveryII.rbReportJourneySummary.Invoke(New myDelegate(AddressOf ProcessReport), New Object() {})
frmDiscoveryII.rbReportIdle.Invoke(New myDelegate(AddressOf ProcessReport), New Object() {})
ProcessReport
END SUB

Dave Kreskowiak wrote:

previous versions of VB were not OOP compliant. They allowed you to get into vary bad practices, which VB.NET now, thankfully, prevents you from using since it's now completely object oriented.