カードがめくられるように数値を表示する
2011年5月17日(火)
ロジックコードを記述する
リスト1 (MainPage.xaml.vb）
01 | Option Strict On |
02 |
03 | タイマーに関するクラスの含まれる、System.Windows.Theading名前空間を読み込みます。 |
04 | Imports System.Windows.Threading |
05 | Partial Public Class MainPage |
06 | Inherits UserControl |
07 |
08 | Public Sub New() |
09 | InitializeComponent() |
10 | End Sub |
11 | 加算される変数noをメンバ変数として宣言します。 |
12 | Dim no As Integer = 0 |
13 |
14 | ■ページが読み込まれた時の処理 |
15 | 新しいDispatcherTimerのインスタンスであるmyTimerオブジェクトを生成します。DispatcherTimerクラスは指定した時間の間隔で処理されるタイマーを表すクラスです。 |
16 | タイマー間隔が経過すると発生するTickイベント時に、myTimer_Tickプロシージャを指定します。 |
17 | Intervalプロパティでは、タイマーの間隔を指定します。ここでは1秒間隔でmyTimer_Tickプロシージャが実行されます。Startメソッドでタイマーを実行します。 |
18 | Private Sub MainPage_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded |
19 | Dim myTimer As New DispatcherTimer |
20 | AddHandler myTimer.Tick, AddressOf Me.myTimer_Tick |
21 | myTimer.Interval = TimeSpan.FromSeconds(1) |
22 | myTimer.Start() |
23 | End Sub |
24 |
25 | ■タイマー間隔が経過した時の処理 |
26 | Math.Min関数で、変数noの値が60より小さい場合は、変数noの値を1ずつ加算します。変数noの値が60になった時は0で初期化します。 |
27 | 各TextBlockのTextプロパティに加算されるnoの値と、さらに1が加算された値を指定します。 |
28 | カードがめくられた時は、表示されている値より、さらに1が加算された値が表示されるようになります。背面に配置されたTextBlockには、前面に配置されたTextBlockのTextの値より+1された値が表示されます。 |
29 | コントロールは最後に配置されているコントロールの方が前面に配置されます。 |
30 | Gridの上方に配置されていたTextBlockコントロールは、TextBlock1がTextBlock2の背面、TextBlock2がTextBlock1の前面に配置されます。 |
31 | また、Gridの下方に配置されていたTextBlockコントロールは、TextBlock3がTextBlock4の背面、TextBlock4がTextBlock3の前面に配置されます。 |
32 | よって背面に配置されているTextBlock1とTextBlock3にはTextBlock2とTextBlock4の値より+1された値が表示されるようにします。 |
33 | 00、01、02…、の表示にするため、ToStringに”00”の書式を指定しています。 |
34 | myNumberは、local:TimerBaseSilverlightControlに付けた名前です。 |
35 | BeginメソッドでStoryboard1を開始します。 |
36 | Private Sub myTimer_Tick(ByVal sender As Object, ByVal e As EventArgs) |
37 | no = Math.Min(no + 1, 60) |
38 | If no = 60 Then no = 0 |
39 | myNumber.TextBlock1.Text = (no + 1).ToString("00") |
40 | myNumber.TextBlock2.Text = no .ToString("00") |
41 | myNumber.TextBlock3.Text = (no + 1).ToString("00") |
42 | myNumber.TextBlock4.Text = no.ToString("00") |
43 | myNumber.Storyboard1.Begin() |
44 | End Sub |
45 | End Class |
｢カードがめくられるように数値を表示する｣サンプルプログラム
連載バックナンバー
Think ITメルマガ会員登録受付中
Think ITでは、技術情報が詰まったメールマガジン「Think IT Weekly」の配信サービスを提供しています。メルマガ会員登録を済ませれば、メルマガだけでなく、さまざまな限定特典を入手できるようになります。
