学步园

我在做在一个多页面页面程序进行数据库的安装，第一页放用户协议，第二页放用户数据库设置。。翻页的时候依次隐藏

在调试的时候遇到了，凡是TextMode="Password"的textbox的值均为“”，其他文本框输入正常的问题，

找到原因了：
在分页面显示的时候，把密码输入框所在的Panel 的 Visible设置为false，密码的获取值就为“”了，之前看过关于把密码输入框隐藏不能获取值的问题，没想到这个也是同样的

Sub PageChange(ByVal pageid As Int16)

Panel_readme.Visible = False
Panel_set.Visible = False
Panel_install.Visible = False
Panel_finish.Visible = False

为了实现翻页又不丢失密码，使用了session在Panel_set.Visible = False之前把密码保存下来，这样就解决了上述问题

修改前全部代码如下：

Protected Sub CheckBox_Accpet_CheckedChanged(sender As Object, e As System.EventArgs) Handles CheckBox_Accpet.CheckedChanged<br /> If Me.CheckBox_Accpet.Checked Then<br /> Bt_Next.Enabled = True<br /> Else<br /> Bt_Next.Enabled = False<br /> End If<br /> End Sub</p> <p> Protected Sub Bt_Next_Click(sender As Object, e As System.EventArgs) Handles Bt_Next.Click<br /> Dim aa As Int16 = Val(Install_Step.Text)<br /> If aa >= 1 And aa <= 3 Then</p> <p> aa = aa + 1<br /> Install_Step.Text = aa<br /> End If<br /> PageChange(aa)</p> <p> End Sub</p> <p> Protected Sub Bt_Pre_Click(sender As Object, e As System.EventArgs) Handles Bt_Pre.Click<br /> Dim aa As Int16 = Val(Install_Step.Text)</p> <p> If aa >= 2 And aa <= 4 Then<br /> aa = aa - 1<br /> Install_Step.Text = aa<br /> End If<br /> PageChange(aa)</p> <p> End Sub</p> <p> Sub PageChange(ByVal pageid As Int16)</p> <p> Panel_readme.Visible = False<br /> Panel_set.Visible = False<br /> Panel_install.Visible = False<br /> Panel_finish.Visible = False<br /> Bt_Next.Text = "下一步"</p> <p> Panel_finish.Visible = False<br /> Select Case pageid<br /> Case 1</p> <p> Panel_readme.Visible = True</p> <p> Bt_Pre.Enabled = False<br /> Bt_Next.Enabled = True<br /> Case 2</p> <p> Panel_set.Visible = True</p> <p> Bt_Pre.Enabled = True<br /> Bt_Next.Enabled = True</p> <p> Case 3</p> <p> Panel_install.Visible = True</p> <p> Bt_Pre.Enabled = True<br /> Bt_Next.Enabled = True</p> <p> Case 4</p> <p> Panel_finish.Visible = True</p> <p> Bt_Pre.Enabled = False<br /> Bt_Next.Enabled = True<br /> Bt_Next.Text = "完 成"<br /> End Select<br /> End Sub</p> <p> Protected Sub Bt_db_Click(sender As Object, e As System.EventArgs) Handles Bt_db.Click<br /> Dim db_server, db_user, db_name, db_port, db_pwd As String<br /> Dim ad_username, ad_pwd As String<br /> If Not IsPostBack Then<br /> ad_pwd = AdminPWD.Text<br /> End If</p> <p> Bt_Next.Enabled = False</p> <p> db_server = DBserver.Text<br /> db_port = DBPort.Text<br /> db_pwd = DBPwd.Text<br /> db_user = DBUserName.Text<br /> db_name = DBName.Text<br /> ad_username = AdminUsername.Text<br /> ad_pwd = AdminPWD.Text<br /> Dim ConnStr As String<br /> ConnStr = String.Format("server={0};user={1};database={2};port={3};password={4};charset=gb2312", db_server, db_user, db_name, db_port, db_pwd)</p> <p> Dim Myconn As MySqlConnection = New MySqlConnection<br /> Myconn.ConnectionString = ConnStr</p> <p> 'Try</p> <p> Myconn.Open()</p> <p> '读取sql文件</p> <p> '打开sql文件<br /> ' Dim Sql As String = ""<br /> Dim FileName As String = Server.MapPath("sql.sql")<br /> Dim FileStream As StreamReader<br /> FileStream = File.OpenText(FileName)<br /> Dim OutsqlList As String = "" ' 输出到显示列表的字符串<br /> Dim table, sql As String<br /> While FileStream.Peek() <> -1<br /> table = FileStream.ReadLine()<br /> sql = FileStream.ReadLine()<br /> OutsqlList += "创建表：" & table & " 完成" & Chr(13) & Chr(10)<br /> SqlList.Text = OutsqlList<br /> '表写入数据库<br /> 'db.ExecuteNonQuery("")<br /> '更新管理员姓名，密码<br /> MySqlHelper.ExecuteNonQuery(Myconn, "update b_member set username='" & ad_username & "',pwd='" & GetMd5(ad_pwd, 32) & "'")</p> <p> End While<br /> FileStream.Close()</p> <p> Myconn.Close()<br /> Myconn.Dispose()</p> <p> Bt_db.Enabled = False<br /> Bt_Next.Enabled = True<br /> '写入configuration文件<br /> 'ConfigurationManager.ConnectionStrings("LocalMySqlServer").ConnectionString<br /> 'ConfigurationManager.ConnectionStrings.</p> <p> 'Catch ex As Exception<br /> ' SqlList.Text = "数据库配置信息错误，请重新配置"<br /> ' Bt_Pre.Enabled = True<br /> 'End Try<br /> End Sub