Let you scroll text in a label that is still fixed. It's easy and you will have the possibility to just add the sourcecode to a new project.
code: Can't Copy and Paste this? Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
'**************************************
' Name: !!Scrolling text. (The Label is fixed)
' Description:Let you scroll text in a label that is still fixed. It's easy and you will have the possibility to just add the sourcecode to a new project.
' By: Martin Tonek
'
' Returns:A scrolling text
'
' Assumes:Do NOT Edit to much or ju may corrupt the code.. se following instructions.
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=2896&lngWId=1'for details.'**************************************
'Put the code below in notepad and name it to form1.frm
'
'
'
'>>Mark from here<<
VERSION 5.00
Begin VB.Form Form1
BackColor=&H80000007&
Caption ="(c)1999 Mr Slade, please visit me at http://hem.passagen.se/tonek/vb"
ClientHeight=2205
ClientLeft =60
ClientTop=345
ClientWidth =6120
ControlBox =0'False
LinkTopic="Form1"
ScaleHeight =2205
ScaleWidth =6120
StartUpPosition =3 'Windows Default
Begin VB.Timer Timer1
Interval=500
Left=0
Top =0
End
Begin VB.Label Label1
Alignment=1 'Right Justify
BackStyle=0 'Transparent
BeginProperty Font
Name="Garamond"
Size=11.25
Charset =0
Weight =400
Underline=0'False
Italic =0'False
Strikethrough=0'False
EndProperty
ForeColor=&H0080C0FF&
Height =255
Left=840
TabIndex=0
Top =840
Width=4335
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'// Let you make scrollable text in a label without moving the label.. its fixed...
'// ----------------
'// Got it from: http://hem.passagen.se/tonek/vb
'// Author : Martin Tonek
'// Date of upload : July/15/1999
'// ----------------
'// Remember that this code only function with the assigned fonts,fontssize and
'// labelwidth. It will look more nicer when using ths font that have a fixed
'// width then a font like arial. Also the labelwidth was set for 41 letters so
'// when changing the font you have to change labelwidth or/and settings for
'// letters.
'//
'// CAUTION!! Change the source code and the code can fail!!
'//
'// AddMezz (c)1998 EzySoft, All rights reserved
Dim s As Integer
Dim dta As String
Private Sub Form_Load()
'// Centering the form
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
'// Change Label and Timer prefs
Label1.Caption = ""
Timer1.Enabled = True
Timer1.Interval = 100
Label1.Width = 4335
Label1.Font = "Courier New"
Label1.Font.Size = 9
Label1.Font.Bold = True
End Sub
Private Sub Timer1_Timer()
'// put your text here in dta string
dta = "Mr Slade made IT - please visit http://hem.passagen.se/tonek/vb for updates and other avalible sources! (c)1999 Mr Slade" & Space$(41)
s = s + 1
Label1.Caption = Mid(dta, 1, s)
If Len(Label1.Caption) >= 42 Then Label1.Caption = Right(Label1.Caption, 41)
If s = Len(dta) Then
Label1.Caption = ""
s = 0
End If
End Sub
sub cmdButton_click()
sTxt$ = "scrolling label's are cool"
do
doevents
do until iK% = 500
doevents
iK% = iK% + 1
loop
sTxt$ = right$(stxt$,len(sTxt$)-1) & left$(sTxt$,1)
text1.text = sTxt$
end sub
(If this comment was disrespectful, please report it.)
Whoa dude great code! hey i made it so it scrolls the forms caption heres the code
dta = "PUT YOU'R MESSAGE HERE" & Space$(41) s = s + 1 frmEdit.Caption = Mid(dta, 1, s) If Len(frmEdit.Caption) >= 42 Then frmEdit.Caption = Right(frmEdit.Caption, 41)
If s = Len(dta) Then frmEdit.Caption = "" s = 0 End If
just rename the frmEdit to you'r form name than's for that code it's great best text effect ive ever saw! (If this comment was disrespectful, please report it.)
Can anyone help me to get a label to scroll DOWN | using the VScrollBar?? V If anyone can help please put a comment here ore e-mail me (Shoalinwestsider@hotmail.com) thanx (If this comment was disrespectful, please report it.)
hey, how would i edit this code so i can have 2 alternating messages, like it types 'hello' and then erases it, then types 'welcome' and then erases it, going back and forth?? if ya can help me, e-mail me this bit of code at wedgetaileagle@yahoo.com thanx (If this comment was disrespectful, please report it.)
hey, how do i make it so it has 2 alternating messages, eg, it types 'hello' then it erases it ans types 'welcome' ??? please e-mail me at wedgetaileagle@yahoo.com is you can help me thanx (If this comment was disrespectful, please report it.)
to eagle4, just use a timer set for about 1000 to 2500, depending on how fast you want it to go. Then in your program make a flag, like: Private Flag1 as integer 'then in the timer do: if Flag1=0 then label1.caption="Hello" Flag1=1 elseif Flag1=1 then label1.caption="Welcome" Flag1=0 end if (If this comment was disrespectful, please report it.)
How does this code works if i have 10 spaces after eachother? - then the LEN(42) wouldnt work like in your code... no, what you have to do is set the LABEL.AUTOSIZE to false...then give it a big width, THEN change the caption to any you want, and set the AUTOSIZE to TRUE again.. Then keep stripping of the last character and refrehs the label till the width will become smaller then a certain ammount you defined... its hard to explain but easy to program (If this comment was disrespectful, please report it.)
ReSubmittion :) (If this comment was disrespectful, please report it.)
9/12/2004 7:43:25 PM:
yo dis could of been done alot better =)) But if any programers wanna talk to me my yahoo name is lll_encrypted_420_lll but over all its a ight code (If this comment was disrespectful, please report it.)
Good of u Keep it up. pls, How can i Saved checked data from treeview control in database. Thanks (If this comment was disrespectful, please report it.)
its very good (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
8/11/1999 9:00:00 AM: 
