最後のページの後にページに移動してから、それをやめてください.

こんにちは.私は手紙を子供に教えるのを助けるための力を作っています.

スライド設定は次のとおりです.

1-7ラーニングスライド-彼らは1回だけ使用され、ゲームの前に手紙の音を教える/思い出させるために使われます.

8-22ゲームスライド-それらは、音声を再生する15のスライドを表示し、学生に複数の文字を表示してからの文字を選択します.

23. '誤った'スライド-悲しい顔.最後のスライドの後に次のスライドの後にそれらをまっすぐにかかります(最後のスライドが10の場合は、次に "次の"ボタンを押すとスライドさせる11)

24. 「正しい」スライド/スコア-彼らに15のスコアの顔を見せるために衰退する幸せな顔を表示します(彼らが1つの権利があるようになるたびに、彼らはこれまでに正しいと思っているものが見えます).

このコードを使用して、各ゲームスライドから「正しい」/「不正確な」スライド、スライド3/24:

sub lastplus()

スライド23と24

次の
スライドショーwindows (1).View
.ゴトスライド(.lastsLideViewed.SlideIndex + 1)

終了SUB

Sub Slide1Correct()

「各スライド8-22の正しい文字の形に接続されています.

スライド

SET OSLD= ActivePresentation.Slides.FindBySlideID(284)

osld.shapes( "score1")Visible= true

スライドショーwindows (1).View.gotoslide(24)

終了SUB

サブスライド1Wrong()
「各スライドの誤った文字形状に接続されている8-22
スライドショーwindows (1).View.gotoslide(23)

終了SUB

それから私はスライド22の後に "lastplus"を止める必要があるか、スライド22の後にボタンを無効にする必要があることを発見しました.それをする方法はありますか?これは私が試したものですが、それはうまくいきませんでした.カウントは増加するようには見えません-メッセージボックスには常にスライドの後に「count= 1」と表示されます.毎回それまたはSUBが再びゼロに始まる.どちらがよくわかりません.私はどこでもこの「LastPlus」のコードを見ましたので、それはかなり標準であると思いますが、私はそれをたくさんのスライドに制限したいと思うだろうと思ったでしょう.解決策や回避策はありますか?私は広く見えましたが、他の誰かがこの同じ質問をした場所が見つかりませんでした.

sub lastplus()

vbmsgboxResult

Long

ABCD<4の場合は

次の
スライドショーwindows (1).View
.ゴトスライド(.lastsLideViewed.SlideIndex + 1)
ABCD= ABCD + 1

msgresult= msgbox( "count="&abcd&""、vbapplicationmodal、 "help")

else

ABCD= 0

SUB

終了SUB

前もって感謝します！ :-))