在VB。NET中如何弹出警告框？

xz2839 2003-04-17 09:34:43

现准备根据不同的权限，设置相应的栏目，如果你没有权限时，则弹出对话框。告诉你“权限不够，不能进行操作！”请教一下，怎样才能做到这种效果？

...全文

387 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

xz2839 2003-04-21

打赏
举报

liujianjun:
按照上面的提示
编译器错误信息: BC30456: “vbokonly”不是“Microsoft.VisualBasic.MsgBoxStyle”的成员。

meattvb 2003-04-21

打赏
举报

message.show()

msgbox("",msgboxstyle.okonly,"")

就可以了！

maochilong 2003-04-21

打赏
举报

下面是源代码，是ASP程序，不是FORM，我开始的时候也以为是form编程

所以请大家多多帮忙
<%@ import namespace="system.data.sqlclient" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title></title>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<LINK href="../ioffice.css" type="text/css" rel="stylesheet">

</head>
<body bottomMargin="0" leftMargin="0" topMargin="0" rightMargin="0" MS_POSITIONING="GridLayout">
<form runat="server">
<asp:label runat="server" forecolor="red" id="msgview" style="Z-INDEX: 102; LEFT: 104px; POSITION: absolute; TOP: 16px" />
<table style ="width:100%;height=100%" cellpadding ="0" cellspacing="0" border="0">
<tr align = center"">
<td valign="middle" align ="center" height="3"></td>
</tr>
<tr>
<td valign="middle" align ="center" >
<table width="560" height="300" cellSpacing="0" cellPadding="0" border="0">
<tr>
<td>
<table widht="560" height="21">
<tr>
<td align ="left"><img src="../image/icon_msg.gif" border="0"></td>
</tr>
</table>
<div class="box" style="WIDTH: 100%; POSITION: relative; HEIGHT: 300px" ms_positioning="GridLayout">
<asp:label ID="label1" style="Z-INDEX: 101; LEFT: 24px; POSITION: absolute; TOP: 16px" runat="server" Height="20px" CssClass="tttable" Width="72px">发布人：</asp:label>
<asp:label runat="server" forecolor="red" id="nameview" style="Z-INDEX: 102; LEFT: 104px; POSITION: absolute; TOP: 16px" />

<asp:label ID="label2" style="Z-INDEX: 103; LEFT: 24px; POSITION: absolute; TOP: 48px" runat="server" Height="20px" CssClass="tttable" Width="72px">内　容：</asp:label>
<asp:textbox runat="server" textmode="Multiline" rows="10" cols="60" id="msg" style="Z-INDEX: 104; LEFT: 104px; POSITION: absolute; TOP: 48px" cssclass="box" />
<asp:RequiredFieldValidator Runat ="server" text="*" ControlToValidate ="msg" style="Z-INDEX: 105; LEFT: 550px; POSITION: absolute; TOP: 48px" ErrorMessage="内　　容必须填写!" Display=None InitialValue=""/>

<asp:imagebutton runat="server" style="Z-INDEX: 127; LEFT: 160PX; POSITION: absolute; TOP:230px" ImageUrl="../image/saveexit.gif" onclick="sendmsg" />
<asp:imagebutton runat="server" style="Z-INDEX: 129; LEFT: 320PX; POSITION: absolute; TOP:230px" ImageUrl="../image/exit.gif" onclick="exit1" />
</td>
</tr>
</table>
</tr>
</table>
<asp:ValidationSummary Runat=server
EnableViewState=False
ShowSummary=False
HeaderText="发布消息失败，请注意以下规则:"
ShowMessageBox=True
Font-Name=verdana
Font-Size=9pt>
</asp:ValidationSummary>
</form>

</body>
</html>

<script language="vb" runat="server">
sub page_load(sender as object,e as eventargs)
dim conn as sqlconnection
dim cmd as sqlcommand
dim rd as sqldatareader
dim sql as string
dim i as integer

conn = New SQLConnection(ConfigurationSettings.AppSettings("sqlconn"))
conn.Open()

sql = "select * from userinfo where " & "name='" & User.Identity.Name & "'"　 & " and grade='3' or " & "name='" & User.Identity.Name & "'"　 & " and grade='2' "
cmd=new sqlcommand(sql,conn)
rd=cmd.executereader()

if Rd.Read() then
nameview.text=User.Identity.Name
else
response.Redirect("../pass.aspx")
end if

end sub

sub exit1(sender as object,e as ImageClickEventArgs)
Response.Redirect("../pass.aspx")
end sub

sub sendmsg(sender as object,e as ImageClickEventArgs)
If Isvalid then
opendatabase()
response.Redirect("../pass.aspx")
end if
end sub

sub opendatabase()
dim conn as sqlconnection
dim adpt as SqldataAdapter
dim cmd as sqlcommand
dim sql as string
dim upname=User.Identity.Name

Conn = New SQLConnection(ConfigurationSettings.AppSettings("sqlconn"))
Conn.Open()

sql="insert into message (msg,upname) values(@msg,@upname)"
cmd=new sqlcommand(sql,conn)

cmd.parameters.add(new sqlparameter("@msg",sqldbtype.varchar,500))
cmd.parameters.add(new sqlparameter("@upname",sqldbtype.nvarchar,50))

cmd.parameters(0).value=msg.text
cmd.parameters(1).value=upname

cmd.executenonquery()

conn.close()
end sub
</script>