2

以前に支援を求めましたが、適切な質問をしたとは思いません。私はコーディングが初めてで、理由により、はい/いいえのドロップダウンとテキストボックスを持つフォームを備えたWebアプリを持っています。msgbox のコード ビハインドを作成できましたが、クライアント側で必要です。私が思っているほど複雑ではないことはわかっています。これは、サーバー側のメッセージ ボックスに使用したコード ビハインドです。

Protected Sub SubmitButton_Click(sender As Object, e As Event Args) Handles SubmitButton.Click
If CriticalList.Text = "Yes" THEN
 If TextBox13.Text <> "" THEN
   SqlDataSource1.Insert()
 Response.Redirect("FormsReport.aspx")
ELSE
  MsgBox("If critical, you MUST provide a reason.")
 End IF
ELSE
   SqlDataSource1.Insert()
  Response.Redirect("FormsReport.aspx")
End IF
End SUB

誰か、誰か、クライアント側のアラートのためにこれをどのように書くかについてのガイダンスを教えてもらえますか? できればコードビハインドで。

4

2 に答える 2

1 
Dim message As String = "If Critical, you MUST provide a reason."
Dim script As String = "<script type='text/javascript'> alert('" + message + "');</script>"

上記の修正はこのようになります

ClientScript.RegisterClientScriptBlock(Me.GetType(), "AlertBox", script)

アラート コードで単一の qouts を忘れないでください

于 2016-05-12T10:45:15.700 に答える
0

http://social.msdn.microsoft.com/Forums/en-US/7d156d49-ea9a-4f58-a17f-228c9470ee7a/display-a-message-box-in-a-vbnet-web-application

これは、上記のリンクにある回答の 1 つです。もちろん、コードに少し適応させる必要があります。

Dim message As String = "If Critical, you MUST provide a reason."
Dim script As String = "<script type='text/javascript'> alert(" + message + ");</script>"

ClientScript.RegisterClientScriptBlock(Me.GetType(), "AlertBox", script)

私はこのコードをテストしていないので、意図したとおりに動作するかどうかわかりません。テストしてください

于 2013-08-13T19:08:50.743 に答える