German screen update

Fox

Active Member
Licensed User
Longtime User
Hallo Leute!

Ich versuche gerade vergeblich nach einem Spinner ein bild neu zeichnen zu lassen jedoch wie schon erwähnt vergeblich. Hier der Code:

Sub spnChange_ItemClick (Position As Int, Value As Object)
DateIndex(1) = Position
If DateIndex(0) > Position Then
DateIndex(0) = Position
spnDate0.SelectedIndex = Position
End If
Calc
End Sub


Sub Calc
If auswertungmusic.Text <= 6 AND auswertungmusic.Text => 5 Then
ImageView1.Visible = True
lbl_middle.Visible = True
lbl_h1.Visible = True
lbl_date.Visible = True
lbl_time.Visible = True
lbl_Settings.Visible = True
ImageView1.Bitmap = LoadBitmap(File.DirAssets, "red.png")

Else If auswertungmusic.Text >= 6 AND auswertungmusic.Text <= 7 Then
ImageView1.Visible = True
ImageView1.Visible = True
lbl_middle.Visible = True
lbl_h1.Visible = True
lbl_date.Visible = True
lbl_time.Visible = True
lbl_Settings.Visible = True
ImageView1.Bitmap = LoadBitmap(File.DirAssets, "blue.png")
End sub

Vielleicht hat ja einer eine Idee wie ich es lösen kann.

Beste Grüße
 

klaus

Expert
Licensed User
Longtime User
Versuche ein mal am Ende zwischen End If und End Sub ImageView1.Invalidate einzufügen
B4X:
  [COLOR=darkgreen]End If[/COLOR]
[FONT=Courier New][COLOR=red]ImageView1.Invalidate[/COLOR][/FONT]
End Sub
In Deinem Code fehlt auch ein End If.
Und nach Else If auswertungmusic.Text >= 6 AND ...
reicht ein
ImageView1.Visible = True.

Beste Grüsse.
 

Fox

Active Member
Licensed User
Longtime User
hmmm selbe erfolg es will sich nicht verändern ist hier kein beispiel was ich mir mal anschauen könnte? Ich meine ich will nichts weiter machen als bei einem Spinner Change ein bild verändern. Im grunde ist es ja nichts anderes oder?
 

Fox

Active Member
Licensed User
Longtime User
Kannst Du dein Programm als zip Datei posten ?
Das währe einfacher Dir zu helfen.

Beste Grüsse.

also egal was ich mache ich kann wenn ich einen spinner habe einfach das bescheuerte bild nicht verändern... langsam ist es echt frustierend ich denke ich lege das einfach bei seite...

zum thema bild muss es eigentlich initialisiert werden oder sowas zuerst da ich einfach das bild über ....LoadBitmap..... lade mehr net...
 

klaus

Expert
Licensed User
Longtime User
Ich muss es nochmals sagen.
Poste Dein Programm !
Dann kann man helfen.
Nur sagen Ich hab ein Problem ohne dass man weiss was Du gemacht hast und wie ist nicht genug. Es ist unmöglich unter solchen Bedingugnen gezielt zu helfen. Zu oft liegt das Problem wo anders als wo der Hilfesuchende dachte, und da ist eben die ganze Umgebung unentbehrlich.

Ich verstehe nicht warum Du das Testprogramm nicht posten willst ?

Beste Grüsse.
 

CDPeter

Member
Licensed User
Longtime User
Hi,
also egal was ich mache ich kann wenn ich einen spinner habe einfach das bescheuerte bild nicht verändern... langsam ist es echt frustierend ich denke ich lege das einfach bei seite...
in dem Codefragment welches du gepostet hast wird in der Sub Calc nirgendwo ein Bezug auf den Spinner genommen, sondern der Inhalt von Textfeldern ausgewertet!?!? Des Weiteren besteht in der Sub spnChange_ItemClick kein Bezug zu den Imageviews oder den o.g. Textfeldern. So kann man leider nicht verstehen, wie du die Veränderung herbeiführen willst :(
LG von Peter
 
Top