Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

schleife und/oder smiley funktioniert nicht
Autor: Anfaenger4life
Datum: 02.03.07 16:21
Hi in den folgenden code bekomm ich entweder die fehlermeldung dass das bild nicht stimmt oder das ein objekt erforderlich sei ??? ich weiss nicht weiter koennte mir einer helfen und sagen welches objekt da fehlt? desweiteren welche .ico dateien kann ich verwenden ich habe 16x16 32x32 256x256 mit 4, 8 und 32 bit ausprobiert .... Private Sub cmdUmrechnen_Click() Dim intgewicht As Integer, intidealgewicht As Integer Dim BMI As Integer intgroesse = txtgroesse.Text 'eingabe text bei groesse wird zur var intgroesse intidealgewicht = intgewicht - 100 'intidealgewicht ist das eingegebende gewicht -100 IdealGewicht.Caption = "zwischen " & intidealgewicht - intidealgewicht \ 10 & " und " & intidealgewicht + intidealgewicht \ 10 & "kg" 'die ausgabe ueber caption bekomm einen neuen wert zugewiesen undzwar intidealgewicht plus minus 10% und wird mit text verfeinert ausgegeben BMI = txtgewicht.Text / (txtgroesse.Text / 100) ^ 2 'der bmi wird aus der eingabe gewicht und groesse errechnet BMIausgabe.Caption = BMI 'der errechnete bmi wird ausgegeben 'nun sollte bei den verschiedenen ausgaben des bmi ein smile zu sehen sein je nach wert ein gute neutraler oder schlechter If BMI < 18 Then imgbewertung.Picture = LoadPicture _ ("C:\Programme\Microsoft Visual Studio\Common\Graphics\Icons\Misc\Facebad1616.ico") ElseIf BMI >= 18 And BMI <= 27 Then imgbewertung.Picture = LoadPicture _ ("C:\Programme\Microsoft Visual Studio\Common\Graphics\Icons\Misc\Facebad1616.ico") Else imgbewertung.Picture = LoadPicture _ ("C:\Programme\Microsoft Visual Studio\Common\Graphics\Icons\Misc\Facebad1616.ico") End If End Sub -------------------------------------------------------------------------- Private Sub Frame3_DragDrop(Source As Control, X As Single, Y As Single) End Sub --------------------------------------------------------------------------- Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub mfg greenhorn wenn ich nicht waere ....

schleife und/oder smiley funktioniert nicht	693	Anfaenger4life	02.03.07 16:21
Re: schleife und/oder smiley funktioniert nicht	364	heini1973	03.03.07 21:09
Re: schleife und/oder smiley funktioniert nicht	348	Anfaenger4life	04.03.07 14:14

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