Quellcode in VB 6 @CODEKICKER

Quellcode in VB 6

                    Wie kann in Visual Basic 6 ein Quellcode eines modalen Befehls aussehen, der für jeden Wochentag einen anderen kurzen Text hervorruft.
                    
                

13.09.2009

Bohnet

Was meinst du damit? Was soll mit dem anderen 'kurzen Text' passieren?

– gfoidl 13.09.2009

1 Antwort

Ich bin mir nicht sicher was Du unter einem "modalem Befehl" verstehst. Ich schreibe einfach ein Codeschnipsel rein, der den Text einer Textbox entsprechend ändern könnte. Das brauchst Du dann nur durch ein Event aufrufen lassen (etwa ein OnChange auf eine Textbox die das Datum beinhaltet) und schon kann irgendwo ein entsprechender Text ausgegeben werden.

Dim datum as Date
Dim wochentag as String

datum = "01.01.2000"

Select Case Weekday(datum) 
    Case vbMonday
        wochentag = "Montag"

    Case vbSunday, vbSaturday
        wochentag = "Wochenende"

    Case Else
         'fehlerbehandlung()'
End Select

eineTextBox.Text = "Heute ist " & wochentag