well tnx to senior SamOscarBrown i finally found what i need for my project:thumb:
i tried to figure out how do i combine my code with the scrolling code i got a hedek
this is the code for the scrooling names that sam did
this is the code i had before
its very hard (for me) to think how can i combine this code with sam's code
never done this before never saw some one do this
i need in the scroll to show only the name and the age thats it.
if someone knows how can it be done.
not easy anyway
i tried to figure out how do i combine my code with the scrolling code i got a hedek
this is the code for the scrooling names that sam did
Code:
Private Sub Form_Load()
Text1.Text = "Producer - Sam" & vbCrLf
Text1.Text = Text1.Text & "Stunt Man 1 - Bobbles" & vbCrLf
Text1.Text = Text1.Text & "Stunt Man 2 - Diletante" & vbCrLf
Text1.Text = Text1.Text & "Stunt Man 3 - DataMiser" & vbCrLf
Text1.Text = Text1.Text & "Stunt Man 4 - Doogle" & vbCrLf
Text1.Text = Text1.Text & "Stunt Man 5 - Bonnie West" & vbCrLf
Text1.Text = Text1.Text & "Camera Man 1 - Si_the_Geek" & vbCrLf
Text1.Text = Text1.Text & "Camera Man 2 - Jggtz" & vbCrLf
Text1.Text = Text1.Text & "Camera Man 3 - Max187Boucher" & vbCrLf
Text1.Text = Text1.Text & "Camera Man 4 - Techgnome" & vbCrLf
Text1.Text = Text1.Text & "Sam Played by Alfred Hitchcock" & vbCrLf
Text1.Text = Text1.Text & "Salsa Played by Paul Newman" & vbCrLf
Text1.Text = Text1.Text & "JmsRickland Played by Himself" & vbCrLf
Text1.Text = Text1.Text & "Nightwalkere Played by John Wayne" & vbCrLf
Text1.Text = Text1.Text & "Magic.Ink Played by Magic Johnson" & vbCrLf
Text1.Text = Text1.Text & "Thanks to Warner Brothers" & vbCrLf
Text1.Text = Text1.Text & "Color by Technicolor" & vbCrLf
Dim myParas As Variant 'determine how many lines in the listbox
myParas = Split(Text1, vbNewLine)
Text1.Height = Form1.TextHeight("A") * UBound(myParas) + 1
End Sub
Private Sub Timer1_Timer()
If Text1.Top <= -Text1.Height Then
Text1.Top = Picture1.Height
Else
Text1.Top = Text1.Top - 2
End If
End SubCode:
Option Explicit
Public UseMenu As Boolean
Private Sub Form_Activate()
Me.WindowState = 2
If UseMenu Then
Set rs = CN.Execute("SELECT * FROM Customers WHERE DAY(DateBirth) = DAY(#" & MyDate(Now) & "#) " & _
"AND MONTH(DateBirth) = MONTH(#" & MyDate(Now) & "#)")
If Not rs.EOF Then
LsVw.ListItems.Clear
While Not rs.EOF
Set itm = LsVw.ListItems.Add(, , LsVw.ListItems.Count + 1, , "cake")
itm.Bold = True
itm.SubItems(1) = rs!FullName
itm.SubItems(2) = Year(Now) - Year(rs!DateBirth)
itm.SubItems(3) = rs!Cellular
itm.SubItems(4) = rs!Email
rs.MoveNext
Wend
End If
End If
End Sub
Private Sub Form_Load()
Me.WindowState = 2
End Subnever done this before never saw some one do this
i need in the scroll to show only the name and the age thats it.
if someone knows how can it be done.
not easy anyway