Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0293: Eine scrollende Credits-Box erstellen

VB 5/6-Tipp 0293: Eine scrollende Credits-Box erstellen

 von Elmar Steinböck

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [2,52 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "cmdStart"
' Steuerelement: Timersteuerelement "Timer1"
' Steuerelement: Bildfeld-Steuerelement "Picture1"
' Steuerelement: Beschriftungsfeld "lblMove" auf Picture1
' Steuerelement: Schaltfläche "cmdOK"


'Autor: Elmar Steinböck
'E-Mail: elmar@activevb.de

Private Sub cmdOK_Click()
  Unload Me
End Sub

Private Sub cmdStart_Click()
  Timer1.Enabled = True
End Sub

'We colorize the Picturebox with a simple
'Subroutine without API-Calls !
Private Sub ShadePic(pic As PictureBox)
  Dim DS, DW, SM, sh
  Dim i As Integer
  
    'save the values before drawing...
    DS = pic.DrawStyle
    DW = pic.DrawWidth
    SM = pic.ScaleMode
    sh = pic.ScaleHeight
    
    pic.DrawStyle = vbInsideSolid
    pic.DrawWidth = 2
    pic.ScaleMode = vbPixels
    pic.ScaleHeight = 256
    For i = 0 To 255
      pic.Line (0, i)-(pic.Width, i + 1), _
                RGB(0, 0, 255 - i), B 'blue
    
    'change the RGB for all colors you want
    'i.e.: RGB(255, 0, 255-i) = red to magenta
    '      RGB(0, 255-i, 0) = green
    
    Next i
    
    'settings to default:
    pic.DrawStyle = DS
    pic.DrawWidth = DW
    pic.ScaleHeight = sh
    pic.ScaleMode = SM
End Sub

'Initialize picturebox and timer
Private Sub Form_Load()
  ShadePic Picture1
  Picture1.Visible = True
  Picture1.AutoRedraw = True
  Timer1.Interval = 100
End Sub

'Timer moves the label to the top
Private Sub Timer1_Timer()
  Dim MoveBy As Integer
   
    'Scalemode is Twips!
    If lblMove.Top > Me.ScaleHeight Then
      lblMove.Top = 0
    Else
      MoveBy = 20 '-20 direction =  top to bottom
    End If         '20 direction = bottom to top
    lblMove.Move lblMove.Left, lblMove.Top - MoveBy
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 3 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.