Kan ikke loope igennem min checkboxliste?

Det er jo lige efter bogen. Jeg kan bare ikke lige forstå hvorfor du bruger to variable - msg og message - hvad er pointen med det?

nu har jeg prøvet således

Private Sub SendMail(ByVal message As String)
            Dim s As String
            'Dim l As New Label
            s = "Valgte tilbud:<br/> "

            For i As Integer = 0 To CInt(chkOffers.Items.Count = -1)
                If chkOffers.Items(i).Selected Then
                    s = s & chkOffers.Items(i).Text & "<br/>"
                End If
            Next i

            message = "<div style=""font-family:verdana; font-size:11px; color:#000000;"">"
            message = message & "<h3>Mail fra telelet.dk, sendt af " & txtFirstName.Text.ToString & " " & txtLastName.Text.ToString & "</h3>"
            message = message & "____________________________________________________<br/><br/>"
            message = message & "<b>Fornavn:</b> " & txtFirstName.Text.ToString & "<br/>"
            message = message & "<b>Efternavn:</b> " & txtLastName.Text.ToString & "<br/>"
            message = message & "<b>Adresse:</b> " & txtAddress.Text.ToString & "<br/>"
            message = message & "<b>Postnummer:</b> " & txtZipCode.Text.ToString & "<br/>"
            message = message & "<b>Telefonnummer:</b> " & txtTelephoneNumber.Text.ToString & "<br/>"
            message = message & "<b>Mobiletelefonnummer:</b> " & txtCellNumber.Text.ToString & "<br/>"
            message = message & "<b>E-mailaddresse:</b> " & txtEmail.Text.ToString
            message = message & "<br/>____________________________________________________<br/><br/>"
            message = message & "<b>Besked:</b><br/>" & txtMsg.Text.ToString
            message = message & "<br/>____________________________________________________<br/><br/>"
            message = message & "<b>Antal lejligheder i boligforeningen:</b> " & ddlNumberOfApartments.SelectedItem.Value.ToString & "<br/>"
            message = message & "<b>Antal boligblokke i boligforeningen:</b> " & ddlNumberOfBlocks.SelectedItem.Value.ToString
            message = message & "<br/>____________________________________________________<br/><br/>"
            message = message & "<b>Ønsker tilbud på:</b><br/>"
            message = message & l.Text = s 'jeg må ikke smide en label ind her åbenbart?!?!
            message = message & "<br/>____________________________________________________<br/><br/>"
            message = message & "</div>"

            Dim oMail As New MailMessage

og det er her jeg vil smide min label ind:

message = message & l.Text = s

StringBuilder sb = new StringBuilder();

sb.Append("<b>Ønsker tilbud på:</b><br/>");

For i As Integer = 0 To chkOffers.Items.Count - 1
  If chkOffers.Items(i).Selected Then
      sb.AppendchkOffers.Items(i).Text & "<br/>");
  End If
Next

nu har jeg prøvet således:

---------------------------------------------------
Dim sb As New StringBuilder

sb.Append("<b>Ønsker tilbud på:</b><br/>")

For i As Integer = 0 To CInt(chkOffers.Items.Count = -1)
  If chkOffers.Items(i).Selected Then
      sb.Append(chkOffers.Items(i).Text & "<br/>")
  End If
Next i

Dim l As New Label
sb.Append(l.Text = sb.ToString)

Dim oMail As New MailMessage
oMail.To = "test@test.dk"
oMail.From = "domain.dk"
oMail.Subject = test           
oMail.BodyFormat = MailFormat.Html
oMail.Body = sb.ToString
------------------------------------------------------------------------

Den vil ikke....

den chechboxlisten returnere stadig en boolean værdi, som er false?!?!

har fjernet den label der, nu viser den bare ingenting...

chkOffers... hvilken type er det ?

aah... det er din løkke der er fucked !!

prøv at skriv

For i As Integer = 0 To chkOffers.Items.Count

svar, offcourse :/

yes det virker CF!

takker mange gange...

Hvorfor det?
Citat fra hjælpen:
Sub Check_Clicked(sender As Object, e As EventArgs)
          Message.Text = "Selected Item(s):<br><br>"
          Dim i As Integer
          For i = 0 To checkboxlist1.Items.Count - 1
            If checkboxlist1.Items(i).Selected Then
                Message.Text = Message.Text & checkboxlist1.Items(i).Text & "<br>"
            End If
          Next
      End Sub

hmmmmmmmmmm...

jeg ved det ikke, men det virker således:

For i As Integer = 0 To chkOffers.Items.Count
                If chkOffers.Items(i).Selected Then
                    sb.Append(chkOffers.Items(i).Text & "<br/>")
                End If
            Next i

thor.ostergaard>> hvis du nærlæser den oprindelige løkke han brugte, kan du se at han sætter Count til -1 (Count = -1), istedet for at aflæse den.