Advanced-Computer
Computer

Registrieren FAQ Mitgliederliste Suchen Advanced-Computer Foren-Übersicht

Advanced-Computer Foren-Übersicht -> Visual Basic ->

Bestellsystem
Neues Thema eröffnen  Neue Antwort erstellen Vorheriges Thema anzeigen :: Nächstes Thema anzeigen 
Bestellsystem
BeitragVerfasst am: 30.10.2006, 22:40 Antworten mit Zitat
inachor
Administrator


Geschlecht: Geschlecht:männlich
 
Anmeldungsdatum: 07.10.2006
Beiträge: 25
Wohnort: Wien


Hier mal eine Basis von einem Onlinebstellsystem, kann noch je nach Thema verändert werden is nur ne Basis funktioniert aber und man kann wenn mans als website stellt auch Aufträge geben und diese werden dann zu einem server oder als e-mail gesendet. Das war mal ne arbeit

Code:
Public Class Form1
    Inherits System.Windows.Forms.Form

    Public Sub New()
        MyBase.New()

     
        InitializeComponent()


    End Sub

   
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox
    Friend WithEvents Button1 As System.Windows.Forms.Button

   
    Private components As System.ComponentModel.Container

   
    <System> Private Sub InitializeComponent()
        Me.Label4 = New System.Windows.Forms.Label
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.Button1 = New System.Windows.Forms.Button
        Me.ListBox1 = New System.Windows.Forms.ListBox
        Me.GroupBox2 = New System.Windows.Forms.GroupBox
        Me.CheckBox3 = New System.Windows.Forms.CheckBox
        Me.CheckBox2 = New System.Windows.Forms.CheckBox
        Me.CheckBox1 = New System.Windows.Forms.CheckBox
        Me.ComboBox1 = New System.Windows.Forms.ComboBox
        Me.RadioButton1 = New System.Windows.Forms.RadioButton
        Me.RadioButton3 = New System.Windows.Forms.RadioButton
        Me.RadioButton2 = New System.Windows.Forms.RadioButton
        Me.PictureBox2 = New System.Windows.Forms.PictureBox
        Me.PictureBox1 = New System.Windows.Forms.PictureBox
        Me.PictureBox6 = New System.Windows.Forms.PictureBox
        Me.PictureBox5 = New System.Windows.Forms.PictureBox
        Me.PictureBox4 = New System.Windows.Forms.PictureBox
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.PictureBox3 = New System.Windows.Forms.PictureBox
        Me.GroupBox2.SuspendLayout()
        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox1.SuspendLayout()
        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
       
        Me.Label4.Location = New System.Drawing.Point(205, 141)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(134, 16)
        Me.Label4.TabIndex = 6
        Me.Label4.Text = "Peripheriegeräte (nur 1)"
       
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(8, 8)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(248, 32)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "Der Online-Shop"
       
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.Location = New System.Drawing.Point(5, 48)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(334, 53)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "Statten Sie Ihr Büro aus, indem Sie die benötigten Produkte mithilfe von Optionsf" & _
            "eldern, Kontrollkästchen, einem Listenfeld und einem Kombinationsfeld auswählen." & _
            " "
 
        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label3.Location = New System.Drawing.Point(451, 48)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(148, 24)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "Bestellte Produkte"
       
        Me.Button1.Location = New System.Drawing.Point(208, 345)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(80, 24)
        Me.Button1.TabIndex = 14
        Me.Button1.Text = "Beenden"
       
        Me.ListBox1.Location = New System.Drawing.Point(208, 160)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.Size = New System.Drawing.Size(120, 69)
        Me.ListBox1.TabIndex = 5
       
        Me.GroupBox2.Controls.Add(Me.CheckBox3)
        Me.GroupBox2.Controls.Add(Me.CheckBox2)
        Me.GroupBox2.Controls.Add(Me.CheckBox1)
        Me.GroupBox2.Location = New System.Drawing.Point(8, 256)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(168, 104)
        Me.GroupBox2.TabIndex = 4
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Büroausstattung (0-3)"
       
        Me.CheckBox3.Location = New System.Drawing.Point(16, 72)
        Me.CheckBox3.Name = "CheckBox3"
        Me.CheckBox3.Size = New System.Drawing.Size(130, 16)
        Me.CheckBox3.TabIndex = 2
        Me.CheckBox3.Text = "Kopierer"
       
        Me.CheckBox2.Location = New System.Drawing.Point(16, 46)
        Me.CheckBox2.Name = "CheckBox2"
        Me.CheckBox2.Size = New System.Drawing.Size(130, 16)
        Me.CheckBox2.TabIndex = 1
        Me.CheckBox2.Text = "Taschenrechner"
       
        Me.CheckBox1.Location = New System.Drawing.Point(16, 24)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(130, 16)
        Me.CheckBox1.TabIndex = 0
        Me.CheckBox1.Text = "Anrufbeantworter"
       
        Me.ComboBox1.DropDownWidth = 120
        Me.ComboBox1.Location = New System.Drawing.Point(208, 271)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(120, 21)
        Me.ComboBox1.TabIndex = 7
        Me.ComboBox1.Text = "Zahlungsmethode"
       
        Me.RadioButton1.Checked = True
        Me.RadioButton1.Location = New System.Drawing.Point(16, 24)
        Me.RadioButton1.Name = "RadioButton1"
        Me.RadioButton1.Size = New System.Drawing.Size(130, 16)
        Me.RadioButton1.TabIndex = 0
        Me.RadioButton1.TabStop = True
        Me.RadioButton1.Text = "PC"
       
        Me.RadioButton3.Location = New System.Drawing.Point(16, 72)
        Me.RadioButton3.Name = "RadioButton3"
        Me.RadioButton3.Size = New System.Drawing.Size(130, 16)
        Me.RadioButton3.TabIndex = 2
        Me.RadioButton3.Text = "Laptop"
       
        Me.RadioButton2.Location = New System.Drawing.Point(16, 48)
        Me.RadioButton2.Name = "RadioButton2"
        Me.RadioButton2.Size = New System.Drawing.Size(130, 16)
        Me.RadioButton2.TabIndex = 1
        Me.RadioButton2.Text = "Macintosh"
       
        Me.PictureBox2.Location = New System.Drawing.Point(532, 88)
        Me.PictureBox2.Name = "PictureBox2"
        Me.PictureBox2.Size = New System.Drawing.Size(80, 56)
        Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox2.TabIndex = 9
        Me.PictureBox2.TabStop = False
       
        Me.PictureBox1.Location = New System.Drawing.Point(432, 88)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(80, 56)
        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox1.TabIndex = 8
        Me.PictureBox1.TabStop = False
       
        Me.PictureBox6.Location = New System.Drawing.Point(532, 271)
        Me.PictureBox6.Name = "PictureBox6"
        Me.PictureBox6.Size = New System.Drawing.Size(80, 64)
        Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox6.TabIndex = 13
        Me.PictureBox6.TabStop = False
       
        Me.PictureBox5.Location = New System.Drawing.Point(432, 271)
        Me.PictureBox5.Name = "PictureBox5"
        Me.PictureBox5.Size = New System.Drawing.Size(80, 64)
        Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox5.TabIndex = 12
        Me.PictureBox5.TabStop = False
       
        Me.PictureBox4.Location = New System.Drawing.Point(532, 173)
        Me.PictureBox4.Name = "PictureBox4"
        Me.PictureBox4.Size = New System.Drawing.Size(80, 64)
        Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox4.TabIndex = 11
        Me.PictureBox4.TabStop = False
       
        Me.GroupBox1.Controls.Add(Me.RadioButton3)
        Me.GroupBox1.Controls.Add(Me.RadioButton2)
        Me.GroupBox1.Controls.Add(Me.RadioButton1)
        Me.GroupBox1.Location = New System.Drawing.Point(8, 125)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(168, 104)
        Me.GroupBox1.TabIndex = 3
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Computer(erforderlich)"
       
        Me.PictureBox3.Location = New System.Drawing.Point(432, 173)
        Me.PictureBox3.Name = "PictureBox3"
        Me.PictureBox3.Size = New System.Drawing.Size(80, 64)
        Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox3.TabIndex = 10
        Me.PictureBox3.TabStop = False
       
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(624, 381)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.PictureBox6)
        Me.Controls.Add(Me.PictureBox5)
        Me.Controls.Add(Me.PictureBox4)
        Me.Controls.Add(Me.PictureBox3)
        Me.Controls.Add(Me.PictureBox2)
        Me.Controls.Add(Me.PictureBox1)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.ListBox1)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Form1"
        Me.Text = "Online-Shop"
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
        PictureBox1.Image = System.Drawing.Image.FromFile _
          ("c:\vb05sfs\kap03\Eingabesteuerelemente\pcomputr.bmp")
        'Einträge in ein Listenfeld einfügen:
        ListBox1.Items.Add("Weitere Festplatte")
        ListBox1.Items.Add("Drucker")
        ListBox1.Items.Add("Satellitenschüssel")
       
        ComboBox1.Items.Add("US-Dollar")
        ComboBox1.Items.Add("Scheck")
        ComboBox1.Items.Add("Euro")
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile _
          ("c:\vb05sfs\kap03\Eingabesteuerelemente\pcomputr.bmp")
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile _
          ("c:\vb05sfs\kap03\Eingabesteuerelemente\computer.bmp")
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile _
          ("c:\vb05sfs\kap03\Eingabesteuerelemente\laptop1.bmp")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Programm wird durch Klicken auf Beenden beendet.
        End
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       
        Select Case ListBox1.SelectedIndex
            Case 0
                PictureBox3.Image = System.Drawing.Image.FromFile _
                  ("c:\vb05sfs\kap03\Eingabesteuerelemente\Festplatte.bmp")
            Case 1
                PictureBox3.Image = System.Drawing.Image.FromFile _
                  ("c:\vb05sfs\kap03\Eingabesteuerelemente\Drucker.bmp")
            Case 2
                PictureBox3.Image = System.Drawing.Image.FromFile _
                  ("c:\vb05sfs\kap03\Eingabesteuerelemente\SatSchüssel.bmp")
        End Select
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
       
        If CheckBox1.CheckState = 1 Then
            PictureBox2.Image = System.Drawing.Image.FromFile _
              ("c:\vb05sfs\kap03\Eingabesteuerelemente\Anrufbea.bmp")
            PictureBox2.Visible = True
        Else
           
            PictureBox2.Visible = False
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.CheckState = 1 Then
            PictureBox4.Image = System.Drawing.Image.FromFile _
              ("c:\vb05sfs\kap03\Eingabesteuerelemente\Rechner.bmp")
            PictureBox4.Visible = True
        Else
            PictureBox4.Visible = False
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.CheckState = 1 Then
            PictureBox6.Image = System.Drawing.Image.FromFile _
              ("c:\vb05sfs\kap03\Eingabesteuerelemente\Kopierer.bmp")
            PictureBox6.Visible = True
        Else
            PictureBox6.Visible = False
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
       
        Select Case ComboBox1.SelectedIndex
            Case 0
                PictureBox5.Image = System.Drawing.Image.FromFile _
                  ("c:\vb05sfs\kap03\Eingabesteuerelemente\dollar.bmp")
            Case 1
                PictureBox5.Image = System.Drawing.Image.FromFile _
                  ("c:\vb05sfs\kap03\Eingabesteuerelemente\Scheck.bmp")
            Case 2
                PictureBox5.Image = System.Drawing.Image.FromFile _
                  ("c:\vb05sfs\kap03\Eingabesteuerelemente\Eurosack.bmp")
        End Select
    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub

    Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click

    End Sub

    Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click

    End Sub

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click

    End Sub

    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

    End Sub
End Class


Zuletzt bearbeitet von inachor am 31.10.2006, 19:04, insgesamt 2-mal bearbeitet
Benutzer-Profile anzeigen Private Nachricht senden ICQ-Nummer
Anzeige
BeitragVerfasst am: 30.10.2006, 22:40
Anzeige


 


BeitragVerfasst am: 30.10.2006, 22:43 Antworten mit Zitat
just4fun
Administrator


Geschlecht: Geschlecht:männlich
 
Anmeldungsdatum: 15.10.2006
Beiträge: 20
Wohnort: Wien


FUCK THE DEVIL HOLY GANGSTER SHIT

geil wärs wenns das programm auch zu saugen gäb Wink

_________________
scheiß auf windows
Benutzer-Profile anzeigen Private Nachricht senden ICQ-Nummer
BeitragVerfasst am: 30.10.2006, 22:56 Antworten mit Zitat
inachor
Administrator


Geschlecht: Geschlecht:männlich
 
Anmeldungsdatum: 07.10.2006
Beiträge: 25
Wohnort: Wien


jaja kommt eh, aber ftp server is immer noch down, dann kommen auch noch andere vb programme von mir hoch stell einfach alles on was ich progge.
Benutzer-Profile anzeigen Private Nachricht senden ICQ-Nummer
BeitragVerfasst am: 31.10.2006, 20:36 Antworten mit Zitat
inachor
Administrator


Geschlecht: Geschlecht:männlich
 
Anmeldungsdatum: 07.10.2006
Beiträge: 25
Wohnort: Wien


habe eigentlich alle befehle schon erklärt außer:

Kontrollkästchen = ChekBox, können mehrer Möglickeiten gewählt werden
RadioButton = RadioButton, es kann nur eine von mehreren Optioen gewählt werden
Gruppen = GroupBox ist ein Feld in dem mehrer Chek Bos oder RadioButton Elemente angeordnet werden können.
Listenfeld = ListBox, Eine Liste aus der eine Option gewählt werden kann
Dropdown Listenfeld = ComboBox ist eine List die sich ausfährt wenn man daruf klickt, um Platz zu sparen, es kann nur eine Option gewählkt werden

Um in eines der Beiden Möglichkeiten für Listenfelder Optionen hinzuzufügen muss man in den Quellcode des jeweiligen Objekts
ListBoxZahl.Items.Add("Wort")
Zahl.. Nummer des Listenfelds
Wort..die Option die hinzugefügt werden soll

der letzte unbekannte Rest = me. , ist nur eine Objektansprechung, wird weiter nur für Binäre Programmierungsoptioen und ASC II Programmieroptionen verwendet
Benutzer-Profile anzeigen Private Nachricht senden ICQ-Nummer
 
   
Bestellsystem
  Advanced-Computer Foren-Übersicht -> Visual Basic
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
 		Alle Zeiten sind GMT + 1 Stunde  
Seite 1 von 1  
  
  
 Neues Thema eröffnen  Neue Antwort erstellen  







Thema 670121-670160 | Thema 540881-540920 | Thema 172241-172280

Impressum | Datenschutz


Bei iphpbb.com bekommen Sie ein Kostenloses Forum mit vielen tollen Extras
Powered by phpBB 2.0.23 © 2001-2003 phpBB Group Style created by Vjacheslav Trushkin