Hallo liebe b4a gemeinde,
ich stehe mal wieder ratlos da.
in meinem code ist ein gif eingebettet. bis jetzt lief das einwandfrei.
Nun habe ich die App ein wenig erweitert und jetzt gibt es eine Fehlermeldung beim strten des gifs.
Dim gifsymb1 As GifDecoder
Dim ivgifsymb1 As ImageView
Sub b5nahb_click
s1.Play(click, 1, 1, 1, 1, 4)
gifsymb1.DisposeFrames
gifsymb1.Load(File.DirAssets, "symb1.gif")
ivgifsymb1.BringToFront
gif
b5nah.Visible=False
b5nahs.Visible=True
symbol1=1
End Sub
Sub gif
ivgifsymb1.Visible=True
gifframesymb1 = 0
tgifsymb1.Interval = gifsymb1.Delay(gifframesymb1)
ivgifsymb1.Bitmap = gifsymb1.Frame(gifframesymb1)
tgifsymb1.Enabled = True
End Sub
Sub tgifsymb1_tick
ivgifsymb1.BringToFront
tgifsymb1.Enabled = False
gifframesymb1 = gifframesymb1 + 1
If gifframesymb1 >= gifsymb1.FrameCount Then
gifframesymb1 = 0
ivgifsymb1.Visible=False
Else
vielleicht könnt ihr mir helfen.
ich stehe mal wieder ratlos da.
in meinem code ist ein gif eingebettet. bis jetzt lief das einwandfrei.
Nun habe ich die App ein wenig erweitert und jetzt gibt es eine Fehlermeldung beim strten des gifs.
Dim gifsymb1 As GifDecoder
Dim ivgifsymb1 As ImageView
Sub b5nahb_click
s1.Play(click, 1, 1, 1, 1, 4)
gifsymb1.DisposeFrames
gifsymb1.Load(File.DirAssets, "symb1.gif")
ivgifsymb1.BringToFront
gif
b5nah.Visible=False
b5nahs.Visible=True
symbol1=1
End Sub
Sub gif
ivgifsymb1.Visible=True
gifframesymb1 = 0
tgifsymb1.Interval = gifsymb1.Delay(gifframesymb1)
ivgifsymb1.Bitmap = gifsymb1.Frame(gifframesymb1)
tgifsymb1.Enabled = True
End Sub
Sub tgifsymb1_tick
ivgifsymb1.BringToFront
tgifsymb1.Enabled = False
gifframesymb1 = gifframesymb1 + 1
If gifframesymb1 >= gifsymb1.FrameCount Then
gifframesymb1 = 0
ivgifsymb1.Visible=False
Else
vielleicht könnt ihr mir helfen.