KiP Bilderviewer

Verfügbare Informationen zu "KiP Bilderviewer"

Qualität des Beitrags:

Beteiligte Poster: moddok

Forum: BF-IR

Forenbeschreibung: build your Future

aus dem Unterforum: Gelöste Aufgaben

Antworten: 1

Forum gestartet am: Donnerstag 28.09.2006

Sprache: deutsch

Link zum Originaltopic: KiP Bilderviewer

Letzte Antwort: vor 17 Jahren, 5 Monaten, 17 Tagen, 18 Stunden, 2 Minuten

Alle Beiträge und Antworten zu "KiP Bilderviewer"

Re: KiP Bilderviewer

moddok - 06.11.2006, 09:59

KiP Bilderviewer
jo hier isser! perfekt geschrieben, und funktionierend!
vorrausgesetzt ihr habt die buttons so bennant wie ich, dann braucht ihr nur noch einfügen und fertig :rolleyes:


Code:
Private Sub About_Click()
img_1.Visible = False
img_2.Visible = False
img_3.Visible = False
img_4.Visible = False
img_thumb_1.Visible = False
img_thumb_2.Visible = False
img_thumb_3.Visible = False
img_thumb_4.Visible = False
lbl_written.Visible = True
img_pfeil_links.Visible = False
End Sub

Private Sub cmd_1_Click()
img_1.Visible = True
img_2.Visible = False
img_3.Visible = False
img_4.Visible = False
img_thumb_1.Visible = False
img_thumb_2.Visible = False
img_thumb_3.Visible = False
img_thumb_4.Visible = False
lbl_written.Visible = False

End Sub

Private Sub cmd_2_Click()
img_1.Visible = False
img_2.Visible = True
img_3.Visible = False
img_4.Visible = False
img_thumb_1.Visible = False
img_thumb_2.Visible = False
img_thumb_3.Visible = False
img_thumb_4.Visible = False
lbl_written.Visible = False
End Sub

Private Sub cmd_3_Click()
img_1.Visible = False
img_2.Visible = False
img_3.Visible = True
img_4.Visible = False
img_thumb_1.Visible = False
img_thumb_2.Visible = False
img_thumb_3.Visible = False
img_thumb_4.Visible = False
lbl_written.Visible = False
End Sub

Private Sub cmd_4_Click()
img_1.Visible = False
img_2.Visible = False
img_3.Visible = False
img_4.Visible = True
img_thumb_1.Visible = False
img_thumb_2.Visible = False
img_thumb_3.Visible = False
img_thumb_4.Visible = False
lbl_written.Visible = False
End Sub

Private Sub cmd_anzeigen_Click()
If opt_1.Value = True Then
    img_1.Visible = True
    img_2.Visible = False
    img_3.Visible = False
    img_4.Visible = False
    img_thumb_1.Visible = False
    img_thumb_2.Visible = False
    img_thumb_3.Visible = False
    img_thumb_4.Visible = False
ElseIf opt_2.Value = True Then
    img_1.Visible = False
    img_2.Visible = True
    img_3.Visible = False
    img_4.Visible = False
    img_thumb_1.Visible = False
    img_thumb_2.Visible = False
    img_thumb_3.Visible = False
    img_thumb_4.Visible = False
ElseIf opt_3.Value = True Then
    img_1.Visible = False
    img_2.Visible = False
    img_3.Visible = True
    img_4.Visible = False
    img_thumb_1.Visible = False
    img_thumb_2.Visible = False
    img_thumb_3.Visible = False
    img_thumb_4.Visible = False
ElseIf opt_4.Value = True Then
    img_1.Visible = False
    img_2.Visible = False
    img_3.Visible = False
    img_4.Visible = True
    img_thumb_1.Visible = False
    img_thumb_2.Visible = False
    img_thumb_3.Visible = False
    img_thumb_4.Visible = False
End If
End Sub

Private Sub cmd_end_Click()
End
End Sub

Private Sub cmd_thumbs_Click()
img_thumb_1.Visible = True
img_thumb_2.Visible = True
img_thumb_3.Visible = True
img_thumb_4.Visible = True
img_1.Visible = False
img_2.Visible = False
img_3.Visible = False
img_4.Visible = False
img_pfeil_links.Visible = False
lbl_written.Visible = False
End Sub

Private Sub img_pfeil_links_Click()
img_thumb_1.Visible = True
img_thumb_2.Visible = True
img_thumb_3.Visible = True
img_thumb_4.Visible = True
img_1.Visible = False
img_2.Visible = False
img_3.Visible = False
img_4.Visible = False
img_pfeil_links.Visible = False
lbl_written.Visible = False
End Sub

Private Sub img_thumb_1_Click()
img_1.Visible = True
img_2.Visible = False
img_3.Visible = False
img_4.Visible = False
img_thumb_1.Visible = False
img_thumb_2.Visible = False
img_thumb_3.Visible = False
img_thumb_4.Visible = False
img_pfeil_links.Visible = True
lbl_written.Visible = False
End Sub

Private Sub img_thumb_2_Click()
img_1.Visible = False
img_2.Visible = True
img_3.Visible = False
img_4.Visible = False
img_thumb_1.Visible = False
img_thumb_2.Visible = False
img_thumb_3.Visible = False
img_thumb_4.Visible = False
img_pfeil_links.Visible = True
lbl_written.Visible = False
End Sub

Private Sub img_thumb_3_Click()
img_1.Visible = False
img_2.Visible = False
img_3.Visible = True
img_4.Visible = False
img_thumb_1.Visible = False
img_thumb_2.Visible = False
img_thumb_3.Visible = False
img_thumb_4.Visible = False
img_pfeil_links.Visible = True
lbl_written.Visible = False
End Sub

Private Sub img_thumb_4_Click()
img_1.Visible = False
img_2.Visible = False
img_3.Visible = False
img_4.Visible = True
img_thumb_1.Visible = False
img_thumb_2.Visible = False
img_thumb_3.Visible = False
img_thumb_4.Visible = False
img_pfeil_links.Visible = True
lbl_written.Visible = False
End Sub



viel spaß

---

Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken

<a href="http://www.iphpbb.com/foren-archiv/18/1120000/1119800/kip-bilderviewer-22452715-59588-60.html" target="_blank">KiP Bilderviewer</a>

---

Weitere Beiträge aus dem Forum BF-IR

Mein Desktop [ALLE GUCKEN!] - gepostet von moddok am Mittwoch 04.10.2006

---

Ähnliche Beiträge wie "KiP Bilderviewer"

KIP - Kiste (Freitag 06.10.2006)
KiP Rechteckrechner - moddok (Montag 09.10.2006)
KiP Taschenrechner (verbessert ^^) - moddok (Freitag 06.10.2006)
KiP Taschenrechner - moddok (Freitag 29.09.2006)
KiP die zweite :) - moddok (Dienstag 10.10.2006)