Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

anim gif?
Autor: Gamer20
Datum: 23.04.03 17:03
Dies ist nur ein Teil meines Codes mit mehreren Unterteilungen. MIr geht es darum das ich 1.gif sich animieren läst. nur wie füge ich es ein? Der Code dafür ist ja sehr lang. statt imgBewertung.Picture = LoadPicture(ICON_PFAD & "1.gif") wie müßte der Code lauten? Pro unterteilung wird in einem Label ein bestimmtes Bild angezeigt! Private Sub cmdUmrechnen_Click() If optMännlich.Value = True Then If intBMI < 21 Then intgewicht2 = (21 * (txtGrösse.Text / 100) ^ 2) - intGewicht lblübergewicht.Caption = "Du hast " & intgewicht2 & _ "...... " imgBewertung.Picture = LoadPicture(ICON_PFAD & "1.gif") Select Case intgewicht2 Case Is < 5 lbltip.Caption = "......" Case 6 To 10 lbltip.Caption = " ..... " Case Is > 11 lbltip.Caption = "....." Case Else ElseIf intBMI >= 21 And intBMI <= 25 Then lblübergewicht.Caption = " Du hast Idealgewicht!" lbltip.Caption = "......." imgBewertung.Picture = LoadPicture(ICON_PFAD & "2.gif") usw...... End Select

anim gif?

338

Gamer20

23.04.03 17:03

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen