Ideen für VBler

Dim rand As New Random()

Dim choices As Integer() = {1, 2, 3, 4, 5, 6}

Dim result As Integer() = rand.GetItems(choices, 3)

' Das Ergebnis ist ein Array mit drei zufälligen
' Elementen aus choices, also beispielsweise {2, 3, 6}.

Random.Shared.Shuffle(choices)

<Label ... Background="Cornsilk" /> 

lbl_Auswahl.Background = Brushes.AliceBlue

Function AlleFarbnamen() As Object()
  ' Alle benannten WPF-Farben (141 Stück)
  Return GetType(Brushes).GetProperties().
    [Select](Function(p) New With {
      Key .Brush = TryCast(p.GetValue(Nothing), Brush), 
      p.Name}).ToArray()
End Function

For Each f In 
    AlleFarbnamen()
  listbox1.Items.Add(
    f.Name.ToString & " (" & 
      f.Brush.ToString + 
      ")")
Next

Private Sub Listbox1_SelectionChanged(...) Handles 
  Listbox1.SelectionChanged
  Dim f As Object = AlleFarbnamen(
    listbox1.SelectedIndex)
  Textblock.Background = f.brush
  Label.Content = f.brush.ToString & " (" & 
    f.name.ToString & ")"
End Sub

Function BackColorOfTextblock(
  tbl as Textblock) as Color
  Return TryCast(tbl.Background, 
    SolidColorBrush).Color
End Function

Private Declare Function GetSysColor Lib "user32" (
  ByVal nIndex As Integer) As Integer
Function aktWindowsBackground() As Integer
  Return GetSysColor(1)
End Function

Function istSichtbar(c1 As Color, 
  Optional sw As Integer = 10) As Boolean
  Dim col As Integer = aktWindowsBackground()
  Dim r0 As Integer = col And &HFF
  Dim g0 As Integer = (col And &HFF00) >> 8
  Dim b0 As Integer = (col And &HFF0000) >> 16
  If Math.Abs(r0 - CInt(c1.R)) > sw And 
    Math.Abs(g0 - CInt(c1.G)) > sw And 
    Math.Abs(b0 - CInt(c1.B)) > sw Then
      Return True
  Else
    Return False  ' Windows-Hintergrund ist zu ähnlich
  End If
End Function

Sub DesktopInfo()
  Dim col As Integer = aktWindowsBackground()
  Dim r0 As Integer = col And &HFF
  Dim g0 As Integer = (col And &HFF00) >> 8
  Dim b0 As Integer = (col And &HFF0000) >> 16
  MsgBox("Desktop-Hintergrund." & vbCrLf &
    "Rot: " & r0.ToString & 
    " Grün: " & g0.ToString & 
    " Blau: " & b0.ToString & vbCrLf &
    "Hex-Wert: #FF" & Hex(r0) & Hex(g0) & 
    Hex(b0))
End Sub

If sInt.isOK Then SummeInt += sInt.Value
If sInt.Info.isNotEmpty Then 
  InfoLog += sInt.Info + vbCrLf
End If

Eingabe Double/Decimal-Value '3,14'. 
Ausgabe als Int: '3'.

Sub Main(args As String())
  Dim InfoLog As String = ""
  Dim SummeInt As Integer = 0
  Dim s As String = ""
  Do
    Console.WriteLine(vbCrLf + 
      "Bitte einen Int-Wert eingeben: ")
    s = Console.ReadLine()
    Dim sInt As eInt
    sInt = eString2Int(s)
    If sInt.isOK Then SummeInt += sInt.Value
    If sInt.Info.isNotEmpty Then 
      InfoLog += sInt.Info + vbCrLf
    End If
    Console.WriteLine("Neue Summe: " & 
      SummeInt.ToString)
  Loop Until s.StartsWith("end")
  Console.WriteLine(vbCrLf + vbCrLf + InfoLog)

Structure eInt
  Public isOK As Boolean
  Public Info As String
  Public Value As Integer
End Structure

Public Function eString2Int(s As String) As eInt
  Dim erg As eInt
  ' Vorbelegen der Ergebnis-Variablen.
  erg.isOK = False 
  erg.Info = "" 
  erg.Value = Nothing
  ' Double wird von CInt automatisch gewandelt
  ' und dabei gerundet!
  ' Prüfen und eine Info fürs Log vorsehen
  If InStr(s, ".") Or InStr(s, ",") Then 
    erg.Info = "eString2Int: Info: Eingabe 
      Double-/Decimal-Value '" + s + "'."
  End If
  ' Den Eingabewert umwandeln, dabei isOK,
  ' Value und gegebenenfalls Info füllen.
  Try
    erg.Value = CInt(s)
    ' Falls es einen Hinweis gibt, diesen um den
    ' Eingabewert erweitern.
    If erg.Info.isNotEmpty Then 
      erg.Info += " Ausgabe als Int: '" + 
        erg.Value.ToString + "'."
    End If
  Catch ex As Exception
    erg.isOK = False
    erg.Info = "eString2Int: Fehler: '" + s + 
      "' lässt sich nicht in einen Integer " +
      "umwandeln."
  End Try
  Return erg
End Function

' Die Variable product ist eine Instanz eines 
' einfachen anonymen Typs.
Dim product = New With 
  {Key .Name = "paperclips", .Price = 1.29}

Dim numbers As New List(Of Integer) From {
  3, 5, 1, 4, 8, 6, 7, 2, 9, 6, 1}
numbers.Sort(Function(x, y) x.CompareTo(y))

Dim ListContent = 
  Function(n As List(Of Integer))
    Dim erg As String = ""
    For Each x In n
      erg += x.ToString
    Next
    Return erg
  End Function
MsgBox(ListContent(numbers))

MsgBox(
  Function(n As List(Of Integer))
    Dim erg As String = ""
    For Each x In n
      erg += x.ToString
    Next
    Return erg
  End Function.Invoke(numbers))

Function einVielfaches(n As Integer) As Func(
  Of Integer, Integer)
    Return Function(x) x * n
End Function

Dim Verdoppeln = 
  einVielfaches(2)
Dim DasDreifache = 
  einVielfaches(3)
MsgBox(Verdoppeln(5) 
  & " bzw. " & Das
  Dreifache(5))
' Ergebnis: 10 
    beziehungsweise 
    15

Function MachMal(
  innereFunktion As Func(Of Integer, Integer, Integer),
  a As Integer, b As Integer) As Integer
    Return innereFunktion(a, b)
End Function

Function Addiere(
  a as Integer, b as Integer) as Integer
    Return a + b
End Function

MsgBox(MachMal(AddressOf Addiere, 100, 34))

Dim Multipliziere =
  Function(a As Integer, b As Integer)
    Return a * b
  End Function
' und der Aufruf:
Dim aa = 24 
Dim bb = 13
MsgBox(MachMal(Multipliziere, aa, bb)

' Das D weist die Zahl als vom Typ Decimal aus
Dim Netto = {100D, 99.31D, 10.18D, 163.51D}
Brutto = Map(MakeBrutto, Netto, 19D)
' beziehungsweise als Umrechnung mit 7 Prozent
Brutto = Map(MakeBrutto, Netto, 7D)

Function Map(
    innereFunktion As Func(
    Of Decimal(),Decimal, Decimal()),
    arr As Decimal(), 
    m As Decimal) As Decimal()
  Return innereFunktion(arr, m)
End Function
...
Dim MakeBrutto = 
  Function(arr() As Decimal, MwSt As Decimal)
    Dim arr1(arr.Length - 1) As Decimal
    For i = 0 To arr.Length - 1
      arr1(i) = Math.Round(arr(i) + 
        (arr(i) * MwSt / 100), 2)
    Next
    Return arr1
  End Function

Netto = Map(MakeNetto, Brutto, 19D)
NettoSumme = Reduce(Summe, Netto)
USt19 = Map(GetUSt, Brutto, 19D)
SummeUSt19 = Reduce(Summe, USt19)

Function ApplyOperation(Of T)(
  items As IEnumerable(Of T), 
  operation As Func(Of T, T)) As IEnumerable(Of T)
    Return items.Select(operation)
End Function