Hmm,

Het is misschien niet helemaal wat je wilt (tekens afbreken na x tekens 'automatisch', maar misschien heb je dit al geprobeerd:

Code vbCrLf

Code

strMessage = "Hallo TweakWindows.nl" &  vbCrLf & "Hoe is het?"
MsgBox strMessage

Oké dat had ik al geprobeerd sorry maar het probleem is dat ik niet weet hoelang de tekst is en wat de tekst is omdat hte uit een xml gelezen word. En overigens is dat voor een nieuwe regel volgensmij.

Wil je de code eens plaatsen die je hebt om de tekst uit te lezen uit het XML bestand, dan zal ik daar een aanpassing in maken zodat de tekst wordt afgebroken.

Oké hier de code. Dit laad niet het nieuws uit een rss maar twitterberichten maar het is de zelfde code.

Code

       Dim twitterfeed As New XmlDocument
        On Error GoTo 6
        twitterfeed.Load("http://search.twitter.com/search.rss?q=from:Simlicious")
        Dim tweettext As XmlNodeList = twitterfeed.GetElementsByTagName("description")
        ''Tweet1tekst is een label en is ook de tekst die ik dus na x aantal tekens wil veranderen naar ...
        Tweet1tekst.Text = tweettext(1).InnerText

Is Tweet1tekst een textbox? Als dat zo is dan kun je heel simpel de property "Multiline" op true zetten, dan past hij het namelijk zelf aan. En als het een label is dan wordt het het volgende:
Ik heb de code hier geschreven dus je moet zelf, indien noodzakelijk, de fouten er nog even uithalen. en ik werk meestal in C# en niet in VB maar als het goed is zou het moeten werken.

Code


dim strTweet as string
strTweet = tweettext(1).InnerText

if strTweet.length > 100 then
dim intLineBrakes as int = (tweettext(1).InnerText.length / 100)
dim intLineBrakesRound as int = intLinebrakes.Remove(1, (intLineBrakes.length - 1)
dim intCurLineBrake as int = 1
while intCurLineBrake < intLineBrakesRound 
strTweet.insert((intCurLineBrake * 100), "\n")
intCurLineBrake = intCurLineBrake + 1
end while
end if



Quote van matthijsk op 22 Aug 2009 16:04

Is Tweet1tekst een textbox? Als dat zo is dan kun je heel simpel de property "Multiline" op true zetten, dan past hij het namelijk zelf aan. En als het een label is dan wordt het het volgende:
Ik heb de code hier geschreven dus je moet zelf, indien noodzakelijk, de fouten er nog even uithalen. en ik werk meestal in C# en niet in VB maar als het goed is zou het moeten werken.

Code


dim strTweet as string
strTweet = tweettext(1).InnerText

if strTweet.length > 100 then
dim intLineBrakes as int = (tweettext(1).InnerText.length / 100)
dim intLineBrakesRound as int = intLinebrakes.Remove(1, (intLineBrakes.length - 1)
dim intCurLineBrake as int = 1
while intCurLineBrake < intLineBrakesRound 
strTweet.insert((intCurLineBrake * 100), "\n")
intCurLineBrake = intCurLineBrake + 1
end while
end if



De code lijkt me goed maar hij kent int niet. Ik dacht dat je met int integer bedoelde maae dat werkt ook niet.
En inderdaad het is een label

int moet integer worden maar vervang dat label toch gewoon door een richtextbox en zet die op readonly is het probleem ook opgelost.

Quote van matthijsk op 22 Aug 2009 17:15

int moet integer worden maar vervang dat label toch gewoon door een richtextbox en zet die op readonly is het probleem ook opgelost.

Ja dacht ik ook aan maar dat gaat niet. De richtextbox moet dan transparant zijn en daar heb ik niks voor gevonden. Voor een label wel. En ik wil zoieso voor de tweet die je aanklikt een klein venstertje laten openen met de hele tweet.

Een richtextbox kan inderdaad niet transparant zijn, maar als je een venstertje wilt laten openen gebruik dan bijvoorbeeld MessageBox(tweettext(1).InnerText)

Na zelf lang vogelen heb ik het gevonden. Hier is mijn code.

Code


        Dim twitterfeed As New XmlDocument
        twitterfeed.Load("http://search.twitter.com/search.rss?q=from:Simlicious")
        Dim tweettext As XmlNodeList = twitterfeed.GetElementsByTagName("description")
''3 staat voor x aantal tekens
        Tweet1tekst.Text = tweettext(1).InnerText.Substring(0, 3) + "..."