知识大全 11.6.1 Wrox United中的配置文件[3]

Posted 2022-07-16 知

篇首语：人生的旅程就是这样，用大把的时间迷茫，在几个瞬间成长。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 11.6.1 Wrox United中的配置文件[3]相关的知识，希望对你有一定的参考价值。

11.6.1 Wrox United中的配置文件[3] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

（）也需要将代码添加到FanClub aspx vb文件从而btnSaveChanges和btnCancelChanges按钮将具有事件处理程序在每次单击这些按钮时将运行相应的代码右击FanClub aspx 并且选择View Code命令然后添加如下突出显示的方法到FanClub aspx vb文件

Partial Class FanClub

Inherits System Web UI Page

Private Sub Page_Load(ByVal sender As Object ByVal e As System EventArgs) Handles Me Load

If Not Page IsPostBack Then

DisplayProfileProperties()

End If

End Sub

Sub btnCancelChanges_Click(ByVal sender As Object ByVal e As System EventArgs)

DisplayProfileProperties()

End Sub

Sub btnSaveChanges_Click(ByVal sender As Object ByVal e As System EventArgs)

Profile Name = CType(FCLoginView FindControl( txtName ) TextBox) Text

Profile Address = CType(FCLoginView FindControl( txtAddress ) TextBox) Text

Profile City = CType(FCLoginView FindControl( txtCity ) TextBox) Text

Profile County = CType(FCLoginView FindControl( txtCounty ) TextBox) Text

Profile PostCode = CType(FCLoginView FindControl( txtPostCode ) TextBox) Text

Profile Country = CType(FCLoginView FindControl( txtCountry ) TextBox) Text

Profile Mailings = CType(FCLoginView FindControl( cMailing ) CheckBox) Checked

Profile Email = CType(FCLoginView FindControl( txtEmail ) TextBox) Text

Profile MemberName = CType(FCLoginView FindControl( txtAlias ) TextBox) Text

Profile Theme = CType(FCLoginView FindControl( ThemeList ) DropDownList) SelectedValue

Server Transfer(SiteMap CurrentNode Url)

End Sub

Sub FCLoginView_ViewChanged(ByVal sender As Object ByVal e As System EventArgs)

DisplayProfileProperties()

End Sub

Private Sub DisplayProfileProperties()

Dim NameBox As TextBox = CType(FCLoginView FindControl( txtName ) TextBox)

If Not (NameBox Is Nothing) Then

CType(FCLoginView FindControl( txtName ) TextBox) Text = Profile Name

CType(FCLoginView FindControl( txtAddress ) TextBox) Text = Profile Address

CType(FCLoginView FindControl( txtCity ) TextBox) Text = Profile City

CType(FCLoginView FindControl( txtCounty ) TextBox) Text = Profile County

CType(FCLoginView FindControl( txtPostCode ) TextBox) Text = Profile PostCode

CType(FCLoginView FindControl( txtCountry ) TextBox) Text = Profile Country

CType(FCLoginView FindControl( cMailing ) CheckBox) Checked = Profile Mailings

CType(FCLoginView FindControl( txtEmail ) TextBox) Text = Profile Email

CType(FCLoginView FindControl( txtAlias ) TextBox) Text = Profile MemberName

CType(FCLoginView FindControl( ThemeList ) DropDownList) SelectedValue = Profile Theme

End If

End Sub

End Class

（）再次运行站点并且作为Lou登录密码为lou@ 转到Fan Club的主页您将看到页面底部中的内容

（）现在输入一些细节并且单击Save Changes按钮如果注销并且再次登录将看到己经保存该信息

cha138/Article/program/net/201311/15703