テキストを点滅させたい

このQ&Aのポイント
  • 現在、メインのASレイヤーにAS2.0を使用してtextbox_pageに外部テキストから読み込んだ変数を代入していますが、textbox_pageが含まれるグラフィックシンボルを点滅させたいと思っています。
  • テキストボックスをタイムラインで点滅させる方法やマスクレイヤーを使用してマスクの方を点滅させる方法を試しましたが、一旦ボックスが消えると消えたままになってしまいます。
  • 静止テキストやフォント埋め込みが不可能な状況でのテキストの点滅方法についてアドバイスをお願いします。
回答を見る
  • ベストアンサー

テキストを点滅させたい

現在、メインのASレイヤーに以下のAS2.0をいれています。 textbox_page.text = _global.text06; textbox_pageはダイナミックテキストです。 これに現在外部テキストから読み込ませた変数を代入してるのですが、 textbox_pageが含まれるグラフィックシンボルを点滅させたいと 思っています。 今のところ、 ・テキストボックスをタイムラインで点滅、メインASレイヤーで点滅の消えてるタイミングに再代入 ・テキストボックスにマスクレイヤーを追加してマスクの方を点滅(再代入なし) を試しましたが一旦ボックスが消えると消えたままになってしまいます。 他とのかねあいで静止テキストやフォント埋め込みが不可能な状況です。 アドバイスよろしくお願いします。 (MacX、Flash4.0/ver7/AS2)

  • Flash
  • 回答数1
  • ありがとう数0

質問者が選んだベストアンサー

  • ベストアンサー
  • atse
  • ベストアンサー率83% (36/43)
回答No.1

どのような状況で失敗しているか全体を把握しにくいので、単純に、 タイムラインによる推移は使わず、onEnterFrame を使い、 テキストの中身を変えるのがよいかと思います。 例: textbox_page.text = ""; _root.cnt = 0; _root.onEnterFrame = function() { if (_global.text06 != undefined) { this.cnt = (this.cnt + 1) % 20; if (this.cnt == 0) { textbox_page.text = textbox_page.text == "" ? _global.text06 : ""; } } };

関連するQ&A

  • テキストボックス内の簡単な計算

    はじめまして、よろしくお願いいたします。 エクセル(2003)のマクロで質問です。 いくつか複数のテキストボックスが配置されています。 加算など簡単な計算をテキストボックス内で計算させていおいて、 最終的にボタンで、それら各々のテキストボックスに対応させた エクセルのシートのセルに代入させようとしています。 さて、テキストボックス内で簡単な計算をさせるため、 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Text = Evaluate(TextBox1.Text) End Sub Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2.Text = Evaluate(TextBox2.Text) End Sub Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox3.Text = Evaluate(TextBox3.Text) End Sub … とさせましたが、 何も入力がないテキストボックスは そのままなにもしなくていいよ、とさせたいですのですが、 上記のままだと、何もない(値が入力されていない) テキストボックスに到達すると 止まります。 何も入力がないテキストボックスは 何もしなくていいよ、は どうしたらよいでしょうか? 誠に不勉強で恐縮ですが ご教授願います。

  • visual basicのテキストボックスについて

    ビジュアルベーシックでカレンダーを作ろうと考えてます。 日付のところをテキストボックスに数字を入れて、カレンダーに見立てようとしています。 でも、そのテキストボックスに値を代入するとき、一つ一つに textbox1.text=1 textbox2.text=2・・・・ と書いていくのはすごくメンドくさく、非効率的です。 今、自分が考えている解決方法は、javascriptにでてくるdocument.forms[0].elements[a].valueのようなテキストボックスなどの名前を指定しなくても値を代入する方法です。 でも、ビジュアルベーシックにこのような操作が可能なのかわかりません。 知っている方がいたら是非教えてください。

  • VBAのコンボボックスで選んだものによって、違う数字を代入させたい

    VBAのコンボボックスで選んだものによって、違う数字を代入させたい お知恵をお貸しください。 現在、EXCEL2007のVBAにて、ちょっとしたVBAを作成しています。 コンボボックスには14項目を設定しています。 そのコンボボックスで選んだものによって下のコードの@マーク部に違う数字を代入させたいのですが、どうしたらいいのでしょうか? (例) ----コンボボックス---- あ い う え お か き ・ ・ ・ コンボボックスは14項目あり、コンボボックス内の「う」を選ぶと、5が代入され下のコードの@部分に5が入ります こんな風にコンボボックス内の選ぶものによって違う数字が代入される。 Dim a As Date Dim b As Long a = TimeSerial(CInt(TextBox5.Text), CInt(TextBox6.Text), 0) - TimeSerial(CInt(TextBox3.Text), CInt(TextBox4.Text), 0) Label6.Caption = Hour(a) + Minute(a) / 60 Label7.Caption = (Hour(a) + Minute(a) / 60) * @

  • テキストボックスの値を変数に代入したい。

    テキストボックスの値を変数に代入したいのですが、どういうコードを書けばいいですか? 例えばTextBox1の値を変数xに代入したいのですが。

  • 特定のtextを getURL のhtml へ代入してジャンプする方法

    「001.html」「002.html」「003.html」「004.html」の4つの「html」を事前に作りました。 テキスト入力で作成した3つのボックス「s1・s2・s3」とダイナミックテキストで作った「s4」ボックス、それにボタンシンボル「GO」を配置しました。 ボタンシンボル「GO」につぎのようなASを書きました。  on(release){    s4.text=s1.text+s2.text+s3.text;    getURL("○○.html","_top")  } 「s4.text=s1.text+s2.text+s3.text;」で作成したテキストが「001」だった場合には「○○.html」に「001.html」と代入されて、そのURLへジャンプさせたいのですが、うまく代入できません。 array・for などを使うようなんですが、スクリプトの書き方を教えて頂けますでしょうか?

    • ベストアンサー
    • Flash
  • エクセルのユーザーフォームにあるテキストボックスへの値代入

    エクセルのユーザーフォームにあるテキストボックスへの値代入 お世話になります. エクセルのシートの入力を,ユーザーフォームを使って入力させています. 新規の場合は空欄のフォームがでるのですが,既存の列を編集するには編集用のフォームで行っています. フォームにはテキストボックスが15個(Textbox1からTextbox15まで)あり,Textbox1はCells(*,1)Textbox2はCells(*,2)というふうにセルの列との関連付けがあります. この規則性を上手く使おうと,For Nextを使っていきたいのですが, Dim r As Integer Dim i As Integer Dim t As String r = ActiveCell.Row For i = 1 To 15 t = "TextBox" & i t = Cells(r, i).Value Next i と,ここまで入力をしてみたものの,値の代入がうまくいきません. MsgboxでCells(r, i)の動きは確認できているので,おそらく,TextBox & iのところが原因と思われますが・・・ どのように修正すればよろしいでしょうか?教えてください.

  • テキストボックスの表示について

    visual basic2010を使用しています。 コンボボックスAの選択が1~4だった時、コンボボックスB、C、Dの選択された結果を、ボタンクリックを経てテキストボックスに表示させるにはどうすればいいでしょうか? If ComboBox1.Text = "1" Then TextBox1.Text = (ComboBox2.Text) TextBox1.Text = (ComboBox3.Text) TextBox1.Text = (ComboBox4.Text) ElseIf ComboBox1.Text = "2" Then TextBox2.Text = (ComboBox2.Text) TextBox2.Text = (ComboBox3.Text) TextBox2.Text = (ComboBox4.Text) ElseIf ComboBox1.Text = "3" Then TextBox3.Text = (ComboBox2.Text) TextBox3.Text = (ComboBox3.Text) TextBox3.Text = (ComboBox4.Text) Else TextBox4.Text = (ComboBox2.Text) TextBox4.Text = (ComboBox3.Text) TextBox4.Text = (ComboBox4.Text) End If 実行した結果、ComboBox4のみの結果がテキストボックスに表示されてしまいました。 '変数を使った場合 If ComboBox2.Text = "1" Then Dim st As String st = (ComboBox3.Text),(ComboBox4.Text),(ComboBox5.Text) textbox1.Text = st ElseIf ~~~~~~~~~~^ こちらは「ステートメントの終わりを指定してください」と出て動作しませんでした。 以上、宜しくお願い致します。

  • VB で、テキストボックスをコピーする方法 {至急お願いいたします}

    VB で、テキストボックスをコピーする方法 {至急お願いいたします} 今、VisualBasic(以下、VB) で、ソフトを作っていますが、テキストボックスの中身をクリップボードにコピーしたいです コピーしたいのは、 textbox9です。 clip.SetDataObject(TextBox1.Text) でやってみるとエラーを起こしてしまいます・・・ どうすると、テキストボックスの中身をコピーできるでしょうか? 尚、現在、VBの2008無料版と2010の無料版でやっています メインは、2010ですので・・・

  • 複数のテキストボックスのカンマ処理

    現在、ユーザーフォームに60個のテキストボックスを設置しています。 数値入力されるとカンマが付くようコードを書いているのですが、まとめて処理できるようなコードはないでしょうか? 現在… Private Sub TextBox1_Change() TextBox1.Text = Format(TextBox1.Text, "#,##0") End Sub Private Sub TextBox2_Change() TextBox2.Text = Format(TextBox2.Text, "#,##0") End Sub Private Sub TextBox3_Change() TextBox3.Text = Format(TextBox3.Text, "#,##0") End Sub これを60個 試しにfor~Nextで書いてみましたが、失敗しました。 Dim c As Integer For c = 1 To 60 Controls("TextBox" & c).Text = Format("TextBox" & c.Text, "#,##0") Next End Sub ご存知の方、お力を貸してください。 ウィンドウズ7のエクセル2013を使用しています。

  • テキストボックスやラベルのクリア

    下のように ボタンクリックして、新しくフォーム出て、テキストボックスに入ってた値がフォーム2で表示できますが。 今度はなかの値をクリアしたい場合はどうしたらいいですか。     Dim f As New Form2 f.Owner = Me f.Show() f.Label1.Text = TextBox1.Text f.TextBox1.Text = TextBox1.Text