本文整理汇总了VB.NET中System.Web.UI.WebControls.CreateUserWizard.Answer属性的典型用法代码示例。如果您正苦于以下问题:VB.NET CreateUserWizard.Answer属性的具体用法?VB.NET CreateUserWizard.Answer怎么用?VB.NET CreateUserWizard.Answer使用的例子?那么, 这里精选的属性代码示例或许可以为您提供帮助。
在下文中一共展示了CreateUserWizard.Answer属性的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: New
' 导入命名空间
Imports System.Web
Imports System.Web.UI.WebControls
Imports System.Security.Permissions
Namespace Samples.AspNet.VB.Controls
<AspNetHostingPermission(System.Security.Permissions.SecurityAction.Demand, _
Level:=AspNetHostingPermissionLevel.Minimal)> _
<AspNetHostingPermission(System.Security.Permissions.SecurityAction.InheritanceDemand, _
Level:=AspNetHostingPermissionLevel.Minimal)> _
Public Class CustomCreateUserWizard
Inherits CreateUserWizard
Public Sub New()
Me.MailDefinition.BodyFileName = "MailFile.txt"
Me.MailDefinition.From = "userAdmin@your.site.name.here"
End Sub
Protected Overloads Sub OnSendingMail(ByVal e As MailMessageEventArgs)
e.Message.Subject = "New user on Web site."
' Replace placeholder text in message body with information
' provided by the user.
e.Message.Body.Replace("<%PasswordQuestion%>", Me.Question)
e.Message.Body.Replace("<%PasswordAnswer%>", Me.Answer)
MyBase.OnSendingMail(e)
End Sub
End Class
End Namespace