Click here to Skip to main content
12,754,745 members (34,661 online)

Visual Basic

 
AnswerRe: Web interface to access application Pin
waner michaud26-Feb-13 4:19
memberwaner michaud26-Feb-13 4:19 
AnswerRe: Web interface to access application Pin
waner michaud26-Feb-13 6:40
memberwaner michaud26-Feb-13 6:40 
GeneralRe: Web interface to access application Pin
Sandeep Mewara26-Feb-13 6:52
mvpSandeep Mewara26-Feb-13 6:52 
GeneralRe: Web interface to access application Pin
waner michaud26-Feb-13 7:54
memberwaner michaud26-Feb-13 7:54 
AnswerRe: Web interface to access application Pin
Eddy Vluggen26-Feb-13 10:25
mvpEddy Vluggen26-Feb-13 10:25 
QuestionListbox String to RichTextbox. Help Please! Pin
Janko199322-Feb-13 18:14
memberJanko199322-Feb-13 18:14 
AnswerRe: Listbox String to RichTextbox. Help Please! Pin
Richard MacCutchan23-Feb-13 0:21
mvpRichard MacCutchan23-Feb-13 0:21 
AnswerRe: Listbox String to RichTextbox. Help Please! Pin
TnTinMN24-Feb-13 14:24
memberTnTinMN24-Feb-13 14:24 
You appear to have extracted all the relevant information for the message, but the only thing you are storing in the ListBox items collection is the from and and subject parts as a single string.

ListBox1.Items.Add(strFrom & ", " & strSubject)

I would suggest that instead of storing this string, that you instead define a class to hold the relevant information.

Something like this:
Public Class MessageItem
   Public From As String
   Public Body As String
   Public Subject As String
   Public Sub New(ByVal From As String, ByVal Subject As String, ByVal Body As String)
      Me.From = From
      Me.Body = Body
      Me.Subject = Subject
   End Sub
      Public Overrides Function ToString() As String
         Return From & ", " & Subject
      End Function
End Class


Instead of adding items directly to the ListBox, you bind the ListBox to a List(of MessageItem). Define this list at the form level like this:

Private Messages As New List(Of MessageItem)

In the FormLoad event handler, place this statement:

ListBox1.DataSource = Messages

The ToString Function defined in the class will provide the text displayed for the item in the ListBox.

Now in your button_click handler, replace this code:
'call the functions to get the various parts out of the email
                strFrom = mailMess.ParseEmail(strMailContent, "From:")
                strSubject = mailMess.ParseEmail(strMailContent, "Subject:")
                strToo = mailMess.ParseEmail(strMailContent, "To:")
                strBody = mailMess.ParseBody()
 
                'add email details to the list box
                ListBox1.Items.Add(strFrom & ", " & strSubject)


with this:

Dim msg As New MessageItem(mailMess.ParseEmail(strMailContent, "From:"), _
                           mailMess.ParseEmail(strMailContent, "Subject:"), _
                           mailMess.ParseBody())

Messages.Add(msg)


Also replace ListBox1.Items.Clear() with Messages.Clear()

Now in your ListBox1_SelectedIndexChanged method you can set the textbox text with something like this:

RichTextBox1.Text = CType(ListBox1.SelectedItem, MessageItem).Body
GeneralRe: Listbox String to RichTextbox. Help Please! Pin
Gray_Ang3l24-Feb-13 14:29
memberGray_Ang3l24-Feb-13 14:29 
QuestionActive Directory Users OU Pin
dsj4122-Feb-13 9:14
memberdsj4122-Feb-13 9:14 
AnswerRe: Active Directory Users OU Pin
Dave Kreskowiak22-Feb-13 9:45
mvpDave Kreskowiak22-Feb-13 9:45 
GeneralRe: Active Directory Users OU Pin
dsj4124-Feb-13 12:20
memberdsj4124-Feb-13 12:20 
GeneralRe: Active Directory Users OU Pin
Dave Kreskowiak25-Feb-13 11:31
mvpDave Kreskowiak25-Feb-13 11:31 
GeneralRe: Active Directory Users OU Pin
dsj4126-Feb-13 1:14
memberdsj4126-Feb-13 1:14 
GeneralRe: Active Directory Users OU Pin
dsj415-Mar-13 2:43
memberdsj415-Mar-13 2:43 
QuestionVolume Button in Text to Speech Convertor Pin
sanju_na21-Feb-13 23:05
membersanju_na21-Feb-13 23:05 
QuestionHttpwebrequest + Socks5 Pin
mathisderaltefuchs20-Feb-13 22:49
membermathisderaltefuchs20-Feb-13 22:49 
AnswerRe: Httpwebrequest + Socks5 Pin
Richard MacCutchan21-Feb-13 0:00
mvpRichard MacCutchan21-Feb-13 0:00 
QuestionHow can we read lengthy datas in Win Forms - more height than 780 in single page by scroll? Pin
Paramu197320-Feb-13 7:19
memberParamu197320-Feb-13 7:19 
AnswerRe: How can we read lengthy datas in Win Forms - more height than 780 in single page by scroll? Pin
Eddy Vluggen20-Feb-13 7:39
mvpEddy Vluggen20-Feb-13 7:39 
GeneralRe: How can we read lengthy datas in Win Forms - more height than 780 in single page by scroll? Pin
Paramu197320-Feb-13 19:50
memberParamu197320-Feb-13 19:50 
GeneralRe: How can we read lengthy datas in Win Forms - more height than 780 in single page by scroll? Pin
Eddy Vluggen21-Feb-13 8:03
mvpEddy Vluggen21-Feb-13 8:03 
QuestionMaximize MDIParent and MDIChild control Pin
kurja-kurdoh19-Feb-13 7:41
memberkurja-kurdoh19-Feb-13 7:41 
AnswerRe: Maximize MDIParent and MDIChild control Pin
Simon_Whale19-Feb-13 22:58
memberSimon_Whale19-Feb-13 22:58 
QuestionDisable local accounts Pin
douglas.s.johnson@l-3com.com19-Feb-13 6:57
memberdouglas.s.johnson@l-3com.com19-Feb-13 6:57 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.


Advertise | Privacy | Mobile
Web02 | 2.8.170217.1 | Last Updated 22 Feb 2017
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid