下記の続編です。
ページサイズやツールバーをなしにするのであれば、
Window.OpenのJavaScriptを埋め込んで遷移させたりもできます。
下記のソースの改変版になりますが、ご参考になれば幸いです。
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub GridView1_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) _
Handles GridView1.RowCreated
' データ行以外の場合
If Not e.Row.RowType = DataControlRowType.DataRow Then
Exit Sub
End If
' Linkボタンに行番号引数を付与
Dim row As GridViewRow = e.Row
Dim linkButton As LinkButton = CType(row.Cells(0).FindControl("LinkButton1"), LinkButton)
linkButton.CommandArgument = e.Row.RowIndex
' LinkボタンにJavaScriptを埋め込み
Dim scriptSource As String
scriptSource = "javascript:window.open('NextPage.aspx', 'newWindow', 'width=300, height=300, menubar=no, toolbar=no, scrollbars=yes');"
linkButton.OnClientClick = scriptSource
End Sub
Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) _
Handles GridView1.RowCommand
Dim grid As GridView = TryCast(sender, GridView)
If grid Is Nothing Then
Exit Sub
End If
If e.CommandName = "NextPage" Then
Dim index As Integer = Convert.ToInt32(e.CommandArgument)
Context.Session("Clickされた行") = e.CommandArgument
Context.Session("項目1") = CType(grid.Rows(index).FindControl("Column1"), Label).Text
Context.Session("項目2") = CType(grid.Rows(index).FindControl("Column2"), Label).Text
End If
End Sub
End Class
お礼
ご回答有難う御座います。 なるほど・・・ もう少しkero_mioさんのご回答くださったものを 参考にして 頑張ってみます!