Protected Sub Page_PreInit(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreInit
Dim ThemeName As String = Request("DropDownList1")
If ThemeName <> String.Empty Then
Profile.color = ThemeName
End If
If Profile.color = "blue" Or Profile.color = "red" Then
Page.Theme = Profile.color
End If
End Sub
リスト4 Default.aspx.vb
(5) 実行
実行してみます。TextBox コントロールに適当な名前を入力し、さらにテーマを red に選択して [プロファイルの登録] ボタンを押すと、ページの背景色が赤系色になったはずです(図4)。