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