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
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