想了解一下控件的开发。请大家给我一个简单控件的例子。比如说自己写的DropDownlist

Question

谢谢。

Answer 1

http://www.codeproject.com/aspnet/combobox.asphttp://www.metabuilders.com/Tools/ComboBox.aspx

Answer 2

这是一个标题控件调用方法：
<%@ Register TagPrefix="title" Namespace="HxStudio.CTitle" Assembly="Title" %>
<title:Title id="Title1" title="欢迎光临" runat="server"></title:Title>源程序
注：这要新建项目生成DLL后，在你要需要的项目中引用
Title.vb
Imports System.Xml
Imports System.ComponentModel
Imports System.Web.UI<DefaultProperty("Text"), Designer(GetType(CTitleDesigner)), _
 ToolboxData("<{0}:CTitle runat=server></{0}:CTitle>")> _
Public Class Title
    Inherits System.Web.UI.WebControls.WebControl    Dim _title As String
    Dim _displayTitle As Boolean = True
    Dim _styles As String
    Dim _displayStyle As Boolean
    Dim _ForTitle As String '//标题前缀
#Region "属性集"    <Bindable(True), Category("Title"), DefaultValue(""), Description("副标题名称")> _
    Property Title() As String
        Get
            Return _title
        End Get        Set(ByVal Value As String)
            _title = Value
        End Set
    End Property    <Bindable(True), Category("Title"), DefaultValue(""), Description("是否显示副标题")> _
    Property DisplayTitle() As Boolean
        Get
            Return _displayTitle
        End Get        Set(ByVal Value As Boolean)
            _displayTitle = Value
        End Set
    End Property    <Bindable(True), Category("Title"), DefaultValue(""), Description("样式表路径属性")> _
    Property Styles() As String
        Get
            Return _styles
        End Get        Set(ByVal Value As String)
            _styles = Value
        End Set
    End Property    <Bindable(True), Category("Title"), DefaultValue(""), Description("显示显示样式")> _
    Property DisplayStyle() As Boolean
        Get
            Return _displayStyle
        End Get        Set(ByVal Value As Boolean)
            _displayStyle = Value
        End Set
    End Property    <Bindable(True), Browsable(False), Category("Title"), DefaultValue(""), Description("前缀标题")> _
    Property ForTitle() As String
        Get
            Return _ForTitle
        End Get        Set(ByVal Value As String)
            _ForTitle = Value
        End Set
    End Property
#End Region    Protected Overrides Sub onInit(ByVal e As EventArgs)
        Dim strPath As String = Me.Context.Request.PhysicalApplicationPath().ToString() & "web.config"
        Dim objDom As XmlDocument = New XmlDocument
        objDom.Load(strPath)
        Dim xmlNode As xmlNode = objDom.SelectSingleNode("//appSettings/add[@key='SiteName']")
        _ForTitle = xmlNode.Attributes("value").Value.ToString()
    End Sub    Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)
        If _displayTitle = True Then
            output.Write("<Title>" & _ForTitle & _title & "</Title>")
            output.Write(vbCrLf & vbTab & vbTab & "<meta name=" & Chr(34) & "Description" & Chr(34) & " content=" & Chr(34) & "最有名的网站" & Chr(34) & " />")
            output.Write(vbCrLf & vbTab & vbTab & "<meta name=" & Chr(34) & "Keywords" & Chr(34) & " content=" & Chr(34) & "电子商务网" & Chr(34) & " />")
            output.Write(vbCrLf & vbTab & vbTab & "<meta name=" & Chr(34) & "Keywords" & Chr(34) & " content=" & Chr(34) & "图书馆" & Chr(34) & " />")
        End If
        If _displayStyle = True Then
            output.Write(vbCrLf & vbTab & vbTab & "<Link  href=" & Chr(34) & "" & _styles & "" & Chr(34) & " type=" & Chr(34) & "text/css" & Chr(34) & " rel=" & Chr(34) & "stylesheet" & Chr(34) & " />")
        End If
    End SubEnd Class

Answer 3

public class UserControlB : System.Web.UI.UserControl
  {
   protected System.Web.UI.WebControls.TextBox TextBox1;
   protected System.Web.UI.WebControls.TextBox TextBox2;
   protected System.Web.UI.WebControls.Button Button1;
   protected System.Web.UI.WebControls.Button Button2;   protected System.Web.UI.WebControls.Label Label1;
   protected System.Web.UI.WebControls.Label Label2;  public System.Drawing.Color TextBgColor=Color.White;
  public System.Drawing.Color TextFtColor=Color.Red;
  public string UserName
{
get
{   
return TextBox1.Text;
}
set
{
TextBox1.Text=value;
}

}public string PassWord
{
get
{
return TextBox2.Text;
}
set
{
TextBox2.Text=value;
}

}

private void Page_Load(object sender, System.EventArgs e)
{
TextBox1.BackColor=TextBgColor;
TextBox2.BackColor=TextBgColor;TextBox1.ForeColor=TextFtColor;
TextBox2.ForeColor=TextFtColor;

}private void Button1_Click(object sender, System.EventArgs e)
{   
if(UserName==""||PassWord=="")
{
Response.Write("<script language='javascript'>alert('NO!');</script>");
return;
}

Item.Myconn tt=new Item.Myconn();

string sql="select 姓名,密码 from tabel1 where 姓名='"+UserName+"'and 密码='"+PassWord+"'";
SqlDataAdapter DA=new SqlDataAdapter(sql,tt.myconn);
DataTable DT=new DataTable();
DA.Fill(DT);
if(DT.Rows.Count>0)
{
Response.Write("<script language='javascript'>alert('OK!');</script>");

}
}
}

Answer 4

不知道你要的DropDownlist 要弄成什么样，我上面写的是一个注册控件，