auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Anzeigen von Bildern III

Anzeigen von Bildern programmieren, 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
.

Mehr Tipps: Zinssatz berechnen IV

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt