ASP.NET Webアプリケーションにおけるカスタムコントロールの作成方法について
質問
すべての返信
-
SurferOnWwwさま
返信ありがとうございます。
まず最初に、
> コントロールのインスタンスがユーザーの PC に存在する Windows Forms アプリと、コントロールのインスタンスはサーバーにしかなく（それもユーザーがブラウザを見ているときは消去されてます）ユーザーの PC にあるのはサーバーが送信した html, css, javascript だけという Web Forms アプリの違いを認識してますか？
と質問されれば、正直、まだしっかりとは理解できていません。
実のところ、Webフォームアプリケーションの開発は初めてで、
基礎的なところも、まだまだ足りていないものと思っています。
故に、
> > 、「Windowsフォームアプリケーション」にて作成したアプリをWebアプリケーション化
> ということは考えもしないと思うのですが・・・
との考えにも行きつきませんでした。
それはつまり、Windowsフォームでは、すべてクライアントで処理するに対して、
Webフォームはサーバーで処理するため、通信やメモリなどの関係上、
WindowsフォームアプリケーションをWeb化することは適切ではないということでしょうか？
WindowsフォームをWeb化するという話は別として、
新たにWebフォームアプリケーションをつくるという話として進めさせてください。
サンプルコードを投稿してくださいとのことでしたので、
以下、作成したコードの抜粋部分を投稿させていただきます。
○○○ファイル構成○○○
ソリューション
┣CommonUILibプロジェクト（継承コントロールやカスタムコントロールを定義する）
┃┣BaseControlsフォルダ
┃┃┣AppBaseComboBox.vb（DropDownListを継承し作ったコントロール）
┃┃┗AppBaseInpAll.vb（TextBoxを継承し作ったコントロール）
┃┣BaseControlsフォルダ
┃┃┣WebCustomControl2.vb（TextBoxとDropDownListを含むカスタムコントロール）
┃┃┗WebCustomControl3.vb（AppBaseInpAllとAppBaseComboBoxを含むカスタムコントロール）
┗UserControls調査プロジェクト（スタートアッププロジェクト）
┗WebForm1.aspx（カスタムコントロールを表示したい画面
○○○ソースコード○○○
AppBaseComboBox.vbファイル-----------------------
Public Class AppBaseComboBox
Inherits DropDownList
Public Sub New()
MyBase.New()
End Sub
※その他、DropDownListへデータバインドするメソッドなど
End Class
--------------------------------------------------
AppBaseInpAll.vbファイル-----------------------
Public Class AppBaseInpAll
Inherits TextBoxPublic Sub New()
MyBase.New()
End Sub
※その他、書式設定のプロパティなど
End Class
--------------------------------------------------
WebCustomControl2.vbファイル-----------------------
Public Class WebCustomControl2
Inherits WebControl<Bindable(True), Category("Appearance"), DefaultValue(""), Localizable(True)>
Property Text() As String
Get
Dim s As String = CStr(ViewState("Text"))
If s Is Nothing Then
Return String.Empty
Else
Return s
End If
End GetSet(ByVal Value As String)
ViewState("Text") = Value
End Set
End PropertyProtected Overrides Sub RenderContents(ByVal writer As HtmlTextWriter)
writer.Write("<asp:TextBox ID = ""TextBox1"" runat=""server"" Width=""40px""></asp:TextBox>")
writer.Write("<asp:DropDownList ID = ""DropDownList1"" runat=""server""></asp:DropDownList>")
End SubEnd Class
--------------------------------------------------
WebCustomControl2.vbファイル-----------------------
Public Class WebCustomControl3
Inherits WebControl<Bindable(True), Category("Appearance"), DefaultValue(""), Localizable(True)> Property Text() As String
Get
Dim s As String = CStr(ViewState("Text"))
If s Is Nothing Then
Return String.Empty
Else
Return s
End If
End GetSet(ByVal Value As String)
ViewState("Text") = Value
End Set
End PropertyProtected Overrides Sub RenderContents(ByVal writer As HtmlTextWriter)
writer.Write("<%@ Register assembly= ""CommonUILib"" Namespace=""CommonUILib.BaseControls"" tagprefix=""cc1"" %>")
writer.Write("<cc1:AppBaseInpAll ID=""AppBaseInpAll1"" runat=""server"" Width=""30px""></cc1:AppBaseInpAll>")
writer.Write("<cc1:AppBaseComboBox ID=""AppBaseComboBox1"" runat=""server""></cc1:AppBaseComboBox>")
End SubEnd Class
--------------------------------------------------
WebForm1.aspxファイル-----------------------
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="WebForm1.aspx.vb" Inherits="UserControls調査.WebForm1" %><%@ Register Assembly="CommonUILib" Namespace="CommonUILib" TagPrefix="cc1" %><!DOCTYPE html><html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
標準コントロールでつくったカスタムコントロール<br />
→<cc1:WebCustomControl2 ID="WebCustomControl21" runat="server" />←<br />
<br />
継承コントロールでつくったカスタムコントロール<br />
→<cc1:WebCustomControl3 ID="WebCustomControl31" runat="server" />←<br />
<br />
</div>
</form>
</body>
</html>
--------------------------------------------------
WebForm1.aspx.vbファイル-----------------------
※このVBファイルには、まだ何も記述していません
Public Class WebForm1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class
--------------------------------------------------
目標としているのは、以下のようなコントロールです
（参考として、ユーザーコントロールで作成したデザインを載せています）
画面のaspxファイル編集画面です
この時点ですでに、継承コントロールでつくったカスタムコントロールが表示されません。
また、標準コントロールでつくったカスタムコントロールを２つ以上貼るとID重複によりエラーになります。
（WebCustomControl2.vbファイルのRenderContentsにて書いたHTMLにて、
TextBoxのIDを固定書きしているのが原因と思われます。
ゆくゆくは、この事象も解決しないといけないと思っています）
実行した際のIEです
カスタムコントロールは両方とも表示されません。
また、頻繁に以下のエラー画面が表示されます。
（上記のIEの画像は、稀にうまくいったときの画面です。
これについてもエラーになる理由がわかりません）
お詳しい方にとっては、わけのわからないコーディングに見えてしまうと思いますが、
何卒、引き続きのご指導のほどよろしくお願いします。
-
SurferOnWwwさま
ご返信ありがとうございます。
最初に、
エラーを解決せず、ただ質問だけをしてしまったこと、反省しております。以後、気を付けます。
また、Webフォームアプリケーションをつくる上で、サーバー側とクライアント側では動きが別であることを理解し、今後の開発を行っていこうと思います。
本題ですが、
自分の書いていたコードでは根本的に間違っており、その理由もご説明していただき、ありがとうございます。
また、教えていただいたサイトを元に、つくってみたところ、理想としているものにかなり近づくことができました。
以下、新たに作成したコードです。
CodeSelectComboBase.vbファイル-----------------------
（新たに作成したカスタムコントロールのクラスです）
Public Class CodeSelectComboBase
Inherits WebControl
Private oblTextBox As BaseControls.AppBaseInpAll = New BaseControls.AppBaseInpAll
Private oblComboBox As BaseControls.AppBaseComboBox = New BaseControls.AppBaseComboBox
Protected Overrides Sub CreateChildControls()
Dim cs As ClientScriptManager = Page.ClientScript
'リテラル（固定文字列）の設定
Dim tableStart As Literal = New Literal
tableStart.Text =
"<table cellspacing='0' cellpadding='0'>" +
"<tr><td valign='middle'>"
Me.Controls.Add(tableStart)
'テキストボックスの設定
'Dim oblTextBox As BaseControls.AppBaseInpAll = New BaseControls.AppBaseInpAll
oblTextBox.ID = "MyTextBox1"
Me.Controls.Add(oblTextBox)
'コンボボックスの設定
'Dim oblComboBox As BaseControls.AppBaseComboBox = New BaseControls.AppBaseComboBox
oblComboBox.ID = "MyComboBox1"
Me.Controls.Add(oblComboBox)
'リテラル（固定文字列）の設定
Dim tableEnd As Literal = New Literal
tableEnd.Text = "</td></tr></table>"
Me.Controls.Add(tableEnd)
MyBase.CreateChildControls()
End Sub
Public Sub subComboSetting()
'ドロップダウンリストへのデータ設定
'（AppBaseComboBoxで設定したメソッドを読み出し、データの設定をする）
End Sub
End Class
'-----------------------------------------------------IEの画面です
ドロップダウンリストへのデータ設定などは、ページのロードイベント等で、CodeSelectComboBaseクラスの自作のメソッドを呼び出すことで解決することができそうです。
ただ、現状で、１点困っていることは、VisualStudioにてWebフォームのデザインをする際に、作成したカスタムコントロールが表示されないことです。教えていただいたように、カスタムコントロールのクラス内で書いたHTMLは、ブラウザにとって有効なHTMLコードであるので、逆にVisualStudio側では無効なHTMLとなってしまったのでしょうか？
ともあれ、ここまで作成することができ、非常に助かりました。
ありがとうございました。
