当我单击按钮时,如何在 vb 中创建弹出警报消息?
这是我的页面加载代码,如下所示:
Imports System.Net.Mail
Imports System.IO
Imports System.Text
Public Class locker
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Request.IsAuthenticated Then
WelcomeBackMessage.Text = "Welcome back!"
AuthenticatedMessagePanel.Visible = True
AnonymousMessagePanel.Visible = True
Else
AuthenticatedMessagePanel.Visible = False
AnonymousMessagePanel.Visible = True
End If
Dim ident As FormsIdentity = CType(User.Identity, FormsIdentity)
Dim authTicket As FormsAuthenticationTicket = ident.Ticket
WelcomeBackMessage.Text = "Welcome, " & User.Identity.Name & "!"
End Sub
Protected Sub send_Click(sender As Object, e As EventArgs) …Run Code Online (Sandbox Code Playgroud)