How to add a small picture to the listbox in asp.net?

arisutia

Can you add pictures? If you can, give me some code research, thank you!

shenmue024

Can't,
Unless you write a control of type listbox yourself.

Use tables.

akwarn

It's impossible to achieve with a single control.
This has to be implemented with divs! !!

arisutia

This function can't be done, and horizontal scrolling won't work either. . .
Thank you very much for the big brother and sister upstairs!

lovetifa

net_lover ([Chapter E of Mencius]) is feasible

arisutia

Imports System.Web.UI.WebControls.Unit
Imports System.Data.SqlClient
Imports System.Data

Partial Class _Default
    Inherits System.Web.UI.Page

    Public DBCommon As CommonDBClass'DB Connection System Common Value

    Private Const blankWidth = 6
    Private Const plusPic = "<img src='./image/plus.gif' />"
    Private Const minusPic = "<img src='./image/minus.gif' />"

    Dim dsRole As DataSet

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load



        Me.DBCommon = New CommonDBClass

        Dim strSql As String = "Select * From Table_Role Where 1 = 1"
        dsRole = Me.DBCommon.ADONETGetDataSetfromSQL(strSql)

        Me.DBCommon.Dispose()


        initRootNew("PanelN", "TableN", "DisplayN", "ImageN", Me.mainTable, 0)


    End Sub

   

   
    Private Function getIsEnd(ByVal strParent As String) As Integer
        Dim arrResult As ArrayList

        getChild(strParent, arrResult)
        Return arrResult.Count
    End Function

    'Add By ZhengJia On 2006/12/31
    Private Function getChildNew(ByVal intParent As Integer, ByRef arrResult As ArrayList) As Integer
        arrResult = New ArrayList
        Dim i As Integer
        Dim strTemp As String

        Dim drArray As DataRow()
        drArray = dsRole.Tables(0).Select("PARENT_ID = "+ intParent.ToString)

        For i = 0 To drArray.Length-1
            'strTemp = Trim(drArray(i)("NAME").ToString)
            'arrResult.Add(strTemp)
            arrResult.Add(drArray(i))
        Next

        Return 1

    End Function

    'Add By ZhengJia On 2006/12/31
    Private Function getIsEndNew(ByVal intParent As Integer) As Integer
        Dim arrResult As ArrayList

        getChildNew(intParent, arrResult)
        Return arrResult.Count

    End Function
    'Add By ZhengJia On 2006/12/31
    Private Function initRootNew(ByVal PanelName As String, _
                                 ByVal TblName As String, _
                                 ByVal DisplayName As String, _
                                 ByVal ImgName As String, _
                                 ByRef AtTblName As Table, _
                                 ByVal intParent As Integer) As Integer
        Dim tbl_Test As Table
        Dim tbl_Row As TableRow
        Dim tbl_Cell As TableCell
        Dim PanelTemp As New Panel
        Dim intI As Integer
        Dim arrChild As ArrayList
        Dim drTemp As DataRow
        'Dim strParent As String

        tbl_Test = New Table

        '亲によって、子ForをGet
        getChildNew(intParent, arrChild)

        For intI = 1 To arrChild.Count
            Dim intNextNum As Integer

            drTemp = arrChild(intI-1)

            'The end of the decision
            intNextNum = getIsEndNew(CInt(drTemp("ID").ToString()))

            initMeisaiNew(PanelName&intI.ToString, _
                       TblName&intI.ToString, _
                       DisplayName&intI.ToString, _
                       ImgName&intI.ToString, _
                       intNextNum, _
                       tbl_Test, _
                       arrChild(intI-1), _
                       intI)
        Next
        '************************************************* *******************************
        tbl_Test.ID = TblName
        tbl_Test.CssClass = "data4 font_size13 border_urdl"
        tbl_Test.CellPadding = 0
        tbl_Test.CellSpacing = 0
        tbl_Test.Width = Percentage(100)
        PanelTemp.ID = PanelName
        PanelTemp.Controls.Add(tbl_Test)

        tbl_Cell = New TableCell
        tbl_Row = New TableRow
        tbl_Cell.Width = Pixel(5)
        tbl_Row.Cells.Add(tbl_Cell)

        tbl_Cell = New TableCell
        tbl_Cell.Controls.Add(PanelTemp)
        tbl_Row.Cells.Add(tbl_Cell)

        tbl_Row.ID = DisplayName
        tbl_Row.Style.Item("display") = "block"

        AtTblName.Rows.Add(tbl_Row)
        Exit Function
ERR_FLAG:

    End Function
    'Add By ZhengJia On 2006/12/31
    Private Function initMeisaiNew(ByVal PanelName As String, _
                                    ByVal TblName As String, _
                                    ByVal DisplayName As String, _
                                    ByVal ImgName As String, _
                                    ByVal intNextNum As Integer, _
                                    ByRef AtTblName As Table, _
                                    ByVal drRole As DataRow, _
                                    ByVal intI As Integer) As Integer
        Dim tbl_Test As Table
        Dim tbl_Row As TableRow
        Dim tbl_Cell As TableCell
        Dim PanelTemp As New Panel
        Dim strSekisanMeisa As String

        tbl_Test = New Table
        tbl_Row = New TableRow
        tbl_Cell = New TableCell

        strSekisanMeisa = "<table class='font_size13' cellpadding='0' cellspacing='0'>"
        strSekisanMeisa = strSekisanMeisa&"<tr>"
        strSekisanMeisa = strSekisanMeisa&"<td>"

        If intNextNum> 0 Then
            strSekisanMeisa = strSekisanMeisa&"<a href='javascript:onClick=fn_Display("""&DisplayName&""");fn_ImageChange("""&ImgName&""");'> "&_
                                                "<img src='./image/minus.gif' id='"&ImgName&"'border='0'>"&_
                                                "</a> "&"<a href='GridView.aspx?name="&drRole("NAME").ToString()&"'target='GridView'>"&drRole("NAME").ToString ()&"</a>"

            'Else
            'strSekisanMeisa = strSekisanMeisa&"<a href='GridView.aspx?name="&drRole("NAME").ToString()&"'target='GridView'>"&drRole("NAME").ToString()&"</a>"
        End If

        strSekisanMeisa = strSekisanMeisa&"</td>"
        strSekisanMeisa = strSekisanMeisa&"</tr>"
        strSekisanMeisa = strSekisanMeisa&"</table>"



        If intNextNum> 0 Then
            '******ライン一*****************************
            tbl_Cell.Text = strSekisanMeisa
            tbl_Cell.ColumnSpan = 2
            tbl_Row.Cells.Add(tbl_Cell)
            tbl_Test.Rows.Add(tbl_Row)
            Dim intCur_ID = CInt(drRole("ID").ToString())
            '*******************************************
            initRootNew(PanelName&"_"&intI, _
                       TblName&"_"&intI, _
                       DisplayName, _
                       ImgName, _
                       tbl_Test, _
                       intCur_ID)

            tbl_Test.ID = TblName
            tbl_Test.Width = Percentage(100)
            tbl_Test.BorderWidth = Pixel(0)
            PanelTemp.ID = PanelName
            PanelTemp.Controls.Add(tbl_Test)

            tbl_Cell = New TableCell
            tbl_Row = New TableRow
            tbl_Cell.Controls.Add(PanelTemp)
            tbl_Row.Cells.Add(tbl_Cell)

            AtTblName.Rows.Add(tbl_Row)
        Else
            tbl_Cell.Text = strSekisanMeisa
            tbl_Row.Cells.Add(tbl_Cell)

            tbl_Row.ID = DisplayName
            tbl_Row.Style.Item("display") = "block"
            AtTblName.Rows.Add(tbl_Row)
        End If
        Exit Function
ERR_FLAG:
    End Function

End Class

arisutia

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>ツリーテスト</title>
    <style>
    .font_size13{
font-size:13px;
    }
    </style>
    <script language=javascript>
    <!--
    imagefile = new Array("./image/minus.gif", "./image/plus.gif");

//Portrait をキャッシュします
image = new Array(imagefile.length);
for(count = 0; count <(imagefile.length); count++){
image[count] = new Image();
image[count].src = imagefile[count];
}

function fn_ImageChange(id){
//alert(id);
strPath = window.document.images[id].src;
strImgName = strPath.lastIndexOf("/");

if(strPath.substring(strImgName+1) != "plus.gif"){
window.document.images[id].src = imagefile[1];
}else{
window.document.images[id].src = imagefile[0];
}
}

function fn_Display(id){
//alert(id);
if(document.all){
if(document.all(id).style.display == "block"){
document.all(id).style.display = "none";
}else if(document.all(id).style.display == "none"){
document.all(id).style.display = "block";
}
}else if(document.getElementById){
if(document.getElementById(id).style.display == "block"){
document.getElementById(id).style.display = "none";
}else if(document.getElementById(id).style.display == "none"){
document.getElementById(id).style.display = "block";
}
}
}
        //-->
    </script>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:Table ID="mainTable" runat="server" BorderStyle="Solid" BorderWidth="2px">
        </asp:Table>
    </div>
    </form>
</body>
</html>

arisutia

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient

Public Class CommonDBClass
    Implements IDisposable

#Region "パブリック列挙定数"
    '// DB connection status
    Public Enum DataBaseConnectStatus
        Connect = 0
        DisConnect = 1
    End Enum

    '// トランザクション practice status
    Public Enum DataBaseTranStatus
        Exist = 0
        NotExist = 1
    End Enum

#End Region

#Region "プライベート変数"
    '// ADO.NET
    Private MobjADONETCon As SqlConnection
    Private MintADONETTran As DataBaseTranStatus = DataBaseTranStatus.NotExist
    Private MobjADONETTran As SqlTransaction
#End Region

#Region "コンストラクタ＆デストラクタ"
    '// Newメソッド
    Public Sub New()
        Me.ADONETConnectDB()
    End Sub

    '//ADO.NET DB connection
    Private Sub ADONETConnectDB()

        Try
            Dim strConn As String = ""

            'strConn = "server="&Current.Session.Contents("DataSource").ToString&";"&_
            '"database="&Current.Session.Contents("DBN").ToString&";"&_
            '"uid="&Current.Session.Contents("UserN").ToString&";"&_
            '"pwd="&Current.Session.Contents("PassWD").ToString&";"&_
            '"connect timeout="&Current.Session.Contents("DBTIMEOUT").ToString&";"&_
            '"Connection Lifetime=20;Pooling='true';"&_
            '"max pool Size = "&Current.Session.Contents("MAXPOOL").ToString&";"&_
            '"min pool Size = "&Current.Session.Contents("MINPOOL").ToString&""

            Dim rootWebConfigDb As System.Configuration.Configuration
            rootWebConfigDb = System.Web.Configuration.WebConfigurationManager.OpenWebConfiguration("/"&Constants.APP_PROJECT_NAME)
            If (0 <rootWebConfigDb.AppSettings.Settings.Count) Then
                Dim customSetting As System.Configuration.KeyValueConfigurationElement
                customSetting = rootWebConfigDb.AppSettings.Settings(Constants.APP_DB_CONNECT)
                If Not (Nothing = customSetting.Value) Then
                    strConn = customSetting.Value
                End If
            End If

            Me.MobjADONETCon = New SqlConnection(strConn)
            Me.MobjADONETCon.Open()
        Catch ex As Exception

            'Throw New PImacsW.Common.DB.ConnectException("データベースに接続出ません.", ex)

        End Try

    End Sub
    '// Disposeメソッド
    Public Sub Dispose() Implements IDisposable.Dispose
        Me.Finalize()
        GC.SuppressFinalize(Me)
    End Sub

    '// Finalizeメソッド
    Protected Overrides Sub Finalize()

        '// DB cut off (ADO.NET)
        If Me.MobjADONETCon.State = ConnectionState.Open Then
            Me.MobjADONETCon.Close()
        End If
        If IsNothing(Me.MobjADONETCon) = False Then
            Me.MobjADONETCon.Dispose()
        End If

    End Sub
#End Region

#Region "パブリックプロパティ"

#Region "DB接続(ADO.NET)"

    '// DB connection (ADO.NET)
    Public Property ADONETDBConnecion() As SqlConnection
        Get
            Return Me.MobjADONETCon
        End Get
        Set(ByVal Value As SqlConnection)
            Me.MobjADONETCon = Value
        End Set
    End Property

#End Region

#Region "DB Connection Status (ADO.NET)"

    '// DB connection status (ADO.NET)
    Public ReadOnly Property ADONETDBConnectStatus() As DataBaseConnectStatus
        Get
            If Me.MobjADONETCon Is Nothing Then
                Return DataBaseConnectStatus.DisConnect
            Else
                Return DataBaseConnectStatus.Connect
            End If
        End Get
    End Property

#End Region

#Region "トランザクション実行會(ADO.NET)"

    '// トランザクション practice status (ADO.NET)
    Public ReadOnly Property ADONETDBTranStatus() As DataBaseTranStatus
        Get
            Return Me.MintADONETTran
        End Get
    End Property

#End Region

#Region "Getting by データセット (SQL)"

    '// Get データセット (SQL text)
    Public Function ADONETGetDataSetfromSQL(ByVal SQLStatement As String, _
                                            Optional ByVal TableName As String = "") As System.Data.DataSet

        Dim cmd As SqlCommand
        Dim ds As System.Data.DataSet
        Dim sqlDta As SqlDataAdapter

        Try

            If Me.MobjADONETCon.State <> ConnectionState.Open Then
                Me.MobjADONETCon.Open()
            End If

            sqlDta = New SqlDataAdapter(SQLStatement, Me.MobjADONETCon)

            If Me.MintADONETTran = DataBaseTranStatus.Exist Then
                sqlDta.SelectCommand.Transaction = Me.MobjADONETTran
            End If

            ds = New System.Data.DataSet
            If TableName = "" Then
                sqlDta.Fill(ds)
            Else
                sqlDta.Fill(ds, TableName)
            End If

            Return ds

        Catch ex As System.Data.SqlClient.SqlException
            Dim errorMessages As String
            Dim statusMessage As String
            Dim i As Integer

            statusMessage = "★Status: "

            If MobjADONETCon Is Nothing Then
                statusMessage = statusMessage&"DBと接続が存しない."
            Else
                statusMessage = statusMessage&"DBと接続が存する."

                If Me.MobjADONETCon.State = ConnectionState.Open Then
                    statusMessage = statusMessage&"OPEN Statusになる."
                Else
                    statusMessage = statusMessage&"CLOSE status になる."
                End If
            End If

            For i = 0 To ex.Errors.Count-1
                errorMessages += ControlChars.NewLine _
                              &"★Message: "&ex.Errors(i).Message&ControlChars.NewLine _
                              &"★Fuction: DBCommon.ADONETGetDataSetfromSQL "&ControlChars.NewLine _
                              &"★Number: "&ex.Errors(i).Number&ControlChars.NewLine _
                              &statusMessage&ControlChars.NewLine
            Next i

            Throw New Exception(errorMessages)
        Catch ex As Exception

            Dim errorMessages As String
            Dim statusMessage As String

            statusMessage = "★Status: "

            If MobjADONETCon Is Nothing Then
                statusMessage = statusMessage&"DBと接続が存しない."
            Else
                statusMessage = statusMessage&"DBと接続が存する."

                If Me.MobjADONETCon.State = ConnectionState.Open Then
                    statusMessage = statusMessage&"OPEN Statusになる."
                Else
                    statusMessage = statusMessage&"CLOSE status になる."
                End If
            End If

            errorMessages += ControlChars.NewLine _
                          &"★Message: "&ex.GetBaseException.Message&ControlChars.NewLine _
                          &"★Fuction: DBCommon.ADONETGetDataSetfromSQL "&ControlChars.NewLine _
                          &statusMessage&ControlChars.NewLine

            Throw New Exception(errorMessages)

        Finally

            If IsNothing(cmd) = False Then cmd.Dispose()
            If IsNothing(ds) = False Then ds.Dispose()
            If IsNothing(sqlDta) = False Then sqlDta.Dispose()

        End Try

    End Function

#End Region

kual500

Haha I got the code for Little Japan

cynolove

Write your own software and make customers cry!

~~~ >_< ~~~