| Set-Funktion, Image |
| |
| |
| Const Pfad = "D:\graphics\icons\misc\" | Konstanten setzen. |
| Const Lustig = 0, Neutral = 1, Traurig = 2 | |
| |
| Private Sub Form_Load() | Beim Laden des Formulars wird die maximale Anzahl |
| txtNote.MaxLength = 1 | an Zeichen im Textfeld auf 1 gesetzt. |
| End Sub | |
| |
| Private Sub txtNote_Change() | Immer, wenn sich der Inhalt des Textfeldes ändert, |
| Select Case txtNote.Text | wird die Bewertung neu durchgeführt. |
| Case 1, 2: imgNote.Picture = Bild(Lustig) | |
| Case 3, 4: imgNote.Picture = Bild(Neutral) | |
| Case Else: imgNote.Picture = Bild(Traurig) | |
| End Select | |
| End Sub | |
| |
| Function Bild(Stimmung As Byte) As Picture | Diese Funktion erhält eine Bewertung und gibt ein Bild |
| Select Case Stimmung | in Form eines Picture-Objekts zurück (man beachte |
| Case Lustig: Set Bild = LoadPicture(Pfad & "Face03.ico") | den Rückgabewert der Funktion Set). |
| Case Neutral: Set Bild = LoadPicture(Pfad & "Face01.ico") | |
| Case Traurig: Set Bild = LoadPicture(Pfad & "Face04.ico") | |
| End Select | |
| End Function | |
| |
| Private Sub txtNote_KeyPress(KeyAscii As Integer) | In das Textfeld kann man nur die Ziffern 1 bis 6 eingeben. |
| txtNote.Text = "" | Alte Zahl wird entladen. |
| txtNote.SetFocus | Fokus wird gesetzt. |
| Select Case KeyAscii: Case 49 To 54 | Nur Zifferntasten 1 bis 6 sind erlaubt. |
| Case Else: KeyAscii = 0: imgNote.Picture = LoadPicture("") | Alle anderen Tasten zurückweisen. / Altes Bild wird |
| End Select | entladen. |
| End Sub | |
 | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| . |
| |
zurück