Hallo,
Bin eher Hobbyprogrammierer und benütze derzeit die
VB.NET 2008 Express
Edition. Leider krieg ich Initialisierungen nicht richtig hin; vielleicht
sind die in der Version 2008 kniffliger als in der 2005-er, in der vor
wenigen Jahren einiges auf die Beine gebracht habe.
Habe eine Form mit einer Listbox. Diese will ich mit bestimmten Daten
(Kalender-Daten) füllen; das würde auch funktionieren. Aber ich will diese
jedes Mal in einer – tja – Variable speichern. Das gelingt mir nicht.
Genauer gesagt, habe ich eine Structure definiert (mit der Absicht, so was,
wie [viel] früher „Type“ zu verwenden), die dann im weiteren Programmverlauf
verschiedentlich Verwendung finden soll.
Structure Tageseintrag
Public tDatum As Date
Public Zuweisung(,) As Boolean
…
End Structure
..., und ein
Public eTag(70) As Tageseintrag
Button5 sollte den erwähnten Vorgang auslösen
Public Sub Button5_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button5.Click
Dim xTag As Date
xTag = Now.AddDays(30)
xTag = New Date(Year(xTag), Month(xTag), 1)
xTag = xTag.AddDays(-1)
Dim z As Integer = 0
For x = 1 To 96
xTag = xTag.AddDays(1)
If Weekday(xTag) = 1 Or (Weekday(xTag) = 7 And xTag.Day < 8)
Then
eTag(z).tDatum = xTag
z = z + 1
ListBox1.Items.Add(Format(xTag, "dd.MM.yyyy, dddd"))
End If
Next
End Sub
Der Erfolg scheitert leider an der Zeile:
eTag(z).tDatum = xTag
Wenn ich die ausblende füllt sich die Listbox1 brav. Ich möchte aber den
eTag(z).tDatum füllen!!
Tja, wohl Anfänger-Problem. Irgendwas mach ich falsch; aber was?
Anselm