プロが教えるわが家の防犯対策術!

ACCESS2003を使用している初心者です

画像検索のデータベースを作りまして、トップページをつっているのですがフォーム上に”扉の画像(BMP)”を2枚貼り付けて、その扉を左右に移動させて、扉を開いてログインするみたいなフォームを作りたいのですが可能でしょうか。
扉を横に動かすというプログラムをどうやったらいいのか・・・・

A 回答 (2件)

画像での例ではありませんが、フォームのタイマーイベントを利用します。


(時間での周期的実行の設定が楽です)

以下の例では、2つのラベルを左右に移動させるものです。
左側のラベル名:lab00  右側のラベル名:lab01
フォームデザイン時のプロパティ「タイマ間隔」は「0」にしておきます。


' タイマーイベント用処理カウンタ
'
Dim iCount As Integer


' タイマーイベント
'  5回ラベル移動後、フォームオープン
'
Private Sub Form_Timer()
  iCount = iCount + 1
  Select Case iCount
    Case 1 To 5
      Me.lab00.Left = Me.lab00.Left - 100
      Me.lab01.Left = Me.lab01.Left + 100
    Case Else
      Me.TimerInterval = 0
'      DoCmd.OpenForm "XX"
'      DoCmd.Close acForm, Me.Name, acSaveNo
  End Select
End Sub

' 初期設定/ラベル表示文字消去
'
Private Sub Form_Load()
  Me.lab00.Caption = ""
  Me.lab01.Caption = ""
End Sub

' 実行ボタンで、タイマー起動
'
Private Sub btn00_Click()
  iCount = 0
  Me.TimerInterval = 100
End Sub

この回答への補足

アドバイスありがとうございました。
扉を開くときに音を鳴らすことはできるのでしょうか?
作っているプログラムではふすまを開かせるのですが鼓のような『ポンポンポンポン』みたいな音が理想ですが・・・・

補足日時:2009/04/24 14:09
    • good
    • 0

Beep 音については、以下を参照ください。



http://oshiete1.goo.ne.jp/qa4886451.html


一般の警告音が使われるようです。
(試してみたらそうでした)
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


このQ&Aを見た人がよく見るQ&A