[RESOLVED] How can I transfer a listbox selected item to a textbox

[tommygrayson]

Hi all!

I need help getting the value of a selected listbox and transfer it to a textbox.text. I tried everything but seems that I am only getting frustrated.

There's something definitely worng with my code:

Imports System.Web.Mail
 
Public Class WebForm1
    Inherits System.Web.UI.Page
 
#Region " Web Form Designer Generated Code "
 
    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
 
    End Sub
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents ListBox1 As System.Web.UI.WebControls.ListBox
    Protected WithEvents ListBox2 As System.Web.UI.WebControls.ListBox
    Protected WithEvents ListBox3 As System.Web.UI.WebControls.ListBox
 
    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object
 
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub
 
#End Region
 
    Public Sub AutoGen(ByRef EmailMessage As String)
        Dim RanInteger As Integer
        Randomize()
        RanInteger = Int((3 - 1 + 1) * Rnd() + 1)
        Select Case RanInteger
            Case 1
                EmailMessage = "Dear Mr. Yehhui," & _
                               "<br>" & _
                               "<br> USCNC has cheap and efficient products! Please visit our site!" & _
                               "<br>" & _
                               "<br> <a href=""\\server\public\IT Folder\Ian Paul\Ian\a.htm"">[url]http://localhost/autoemail/a.htm[/url] </a> "
            Case 2
                EmailMessage = "Dear Yehhui," & _
                               "<br>" & _
                               "<br> We, at USCNC, have a huge selection of IT products at our disposal." & _
                               "<br>" & _
                               "<br> Please click to this link." & _
                               "<br>" & _
                               "<br> <a href=""\\server\public\IT Folder\Ian Paul\Ian\a.htm"">[url]http://localhost/autoemail/a.htm[/url] </a> "
            Case 3
                EmailMessage = "Mr. Yehhui," & _
                               "<br>" & _
                               "<br> Want to buy a cool computer but short of cash?" & _
                               "<br>" & _
                               "<br> Then we have the solution for you." & _
                               "<br>" & _
                               "<br> USCNC have a lot of cool computers at affordable prices." & _
                               "<br>" & _
                               "<br> Want to know more?" & _
                               "<br>" & _
                               "<br> Please click this link." & _
                               "<br> <a href=""\\server\public\IT Folder\Ian Paul\Ian\a.htm"">[url]http://localhost/autoemail/a.htm[/url] </a> "
        End Select
    End Sub
 
    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim AutoEmail As New MailMessage
        Dim EmailMessage As String
        Dim ad As ListItem
        Dim ae As Integer
        Dim x As String
        AutoGen(EmailMessage)
        ad = ListBox1.Items.Item(ae)
        MsgBox(ad)
        AutoEmail.To = ListBox1.SelectedValue
        AutoEmail.From = "[email protected]"
        AutoEmail.Subject = "Test subject from VB.NET"
        AutoEmail.BodyFormat = MailFormat.Html
        AutoEmail.Body = EmailMessage
        AutoEmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", "25")
        System.Threading.Thread.Sleep(200)
        SmtpMail.SmtpServer = "192.168.11.11"
        System.Threading.Thread.Sleep(200)
        SmtpMail.Send(AutoEmail)
    End Sub
 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New DataSet
        Dim g As New DataSet
        Dim h As New DataSet
        Dim b As New OleDb.OleDbDataAdapter
        Dim d As New OleDb.OleDbDataAdapter
        Dim f As New OleDb.OleDbDataAdapter
        Dim c As New OleDb.OleDbConnection
        c.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\phil\wa.mdb;Persist Security Info=true"
        c.Open()
        b.SelectCommand = New OleDb.OleDbCommand("SELECT Fname + ' ' + [Emailadd] as expr1 FROM Table1 ;", c)
        d.SelectCommand = New OleDb.OleDbCommand("SELECT Fname + ' ' + EmailS as expr2 FROM Table2 ;", c)
        f.SelectCommand = New OleDb.OleDbCommand("SELECT Product FROM Table3 ;", c)
        b.Fill(a)
        d.Fill(g)
        f.Fill(h)
        ListBox1.DataSource = a
        ListBox1.DataTextField = "expr1"
        ListBox1.DataValueField = "expr1"
        ListBox1.DataBind()
        ListBox2.DataSource = g
        ListBox2.DataTextField = "expr2"
        ListBox2.DataValueField = "expr2"
        ListBox2.DataBind()
        ListBox3.DataSource = h
        ListBox3.DataTextField = "Product"
        ListBox3.DataValueField = "Product"
        ListBox3.DataBind()
        c.Close()
    End Sub
 
End Class