Anzeigen von Bildern III

Anzeigen von Bildern programmieren, Set-Funktion, Image
Const Pfad = "Pfad zu den Bild-Dateien" 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. Bild wird entladen.
End Select
End Sub

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.