Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » FAQ Visual Basic / VBA / VB.Net » VB6 - Objekte Clonen, Erstellen, Scrollen

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
000
04.08.2004, 02:15 Uhr
cOdexer



morgen leutz,

ich hatte langeweile und dachte mir ich poste euch maln bissel saftigen sorucecode der Objekte Clont, Erstellt und Scrollt


Visual Basic:
Private WithEvents PicBox As PictureBox
Private WithEvents CmdButton As CommandButton
Dim I%
Private Sub CmdButton_Click()
I = I + 1
' Objekte klonen
Load Text1(Text1.ubound + 1)
    With Text1(Text1.ubound)
        Set .Container = PicBox
          .Left = 0
            .Top = Text1(Text1.ubound - 1).Top + .Height
            .Visible = True
          .Text = CStr(I)
    End With
'---
    With VScroll1
        .Min = 0
        .Max = Text1.ubound * Text1(0).Height - PicBox.Height
    End With
End Sub
Private Sub Form_Load()
'Objekte erstellen
Set PicBox = Form1.Controls.Add("VB.PictureBox", "PicBox", Form1)
    With PicBox
       .Visible = True
         .Height = Me.Height / 4: .Width = Me.Width / 4
           .Top = 100: .Left = 100
        .BackColor = vbWhite
            With VScroll1
                .Left = PicBox.Width
                  .Top = PicBox.Top
                .Height = PicBox.Height
            End With
    End With
Set CmdButton = Form1.Controls.Add("VB.CommandButton", "CmdButton", Form1)
    With CmdButton
      .Visible = True
        .Height = 255: .Width = Me.Width / 4
          .Top = PicBox.Height + .Height
        .Left = PicBox.Left
      .Caption = "Clonen"
    End With
'---
'Obejkt in Container von PicBox laden
Set Text1(0).Container = PicBox
    With Text1(0)
        .Left = 0: .Top = 0
        .Width = PicBox.Width
    End With
End Sub
Private Sub Schließen_Click()
  Unload Me
  End
End Sub
Private Sub VScroll1_Change()
'Objekte scrollen
On Error Resume Next
Dim J%, L%
Text1(0).Top = -VScroll1.Value + Text1(0).Height
J = 1: L = 0
  Do
    If Err = 0 Then
        Text1(J).Top = Text1(L).Top + Text1(J).Height
        L = J
      Else: Err = 0
    End If
J = J + 1
Loop Until J > Text1.ubound
End Sub
Private Sub VScroll1_Scroll()
  VScroll1_Change
End Sub



wenns doch noch nachtleuchten bei euch gibt hab ich mal das file auf meinen armen server hochgeladen ich hoffe ihr habt fun!
-Download-

bei frage.. mailt mir einfach Helpline

@Addis and M0ddis..könt ihr das teil als SourceCode in den Forum hochstempeln? -thx

Dieser Post wurde am 26.09.2005 um 16:56 Uhr von Uwe editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ FAQ Visual Basic / VBA / VB.Net ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: