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. |
