Archiv für die Kategorie „Codesnippets“

Slimbox2 mit Kommentarlink versehen

Donnerstag, 28. Juni 2012

Die letzten Tage habe ich hier eine neue Galerie hinzugefügt. Dort kommen von mir geschossene Bilder rein. Durch ein Uploadscript ist sogar das Hochladen vom Smartphone aus möglich. Dafür sind ganz paar Stunden Arbeit draufgegangen, welche sich aber letztendlich gelohnt haben. Das aber nur am Rande.

Um meine SQL Fähigkeiten wieder etwas aufzufrischen und zu vertiefen, wollte ich unbedingt eine Kommentarfunktion für die einzelnen Bilder in die Slimbox implementieren. Da bietet sich doch der Einsatz von Datenbanken förmlich an.

Die Bilder der einzelnen Galerien werden mit der kleinen Javascript Bibliothek Slimbox2 in eine Einzelansicht gezoomt, wobei der Hintergrund abgedunkelt wird und man komfortabel die Galerie durchklicken kann. Nun musste ich mir Gedanken machen wie ich die benötigten Information, wie den Namen des Bildes und das dazugehörige Album auslesen und weiterverarbeiten kann.

Kommentarlink unterhalb des Bildes

Schnell stieß ich bei meinem Vorhaben auf verschiedene Probleme. In der gezoomten Ansicht konnte ich nirgendwo einen nützlichen Link setzen, um die Kommentarfunktion sinnvoll zu verwenden. Ich konnte zwar einen Link einbinden, jedoch wollten sich die Variablen $album und $bildname nicht übertragen lassen. Der Trick liegt in dem title-Attribut des link Tags, welcher auf das große Bild verlinkt. Dieser Titel erscheint nämlich in der Einzelansicht unter dem jeweiligem Bild. Wenn dieser Titel nun wiederum mit einem Link ausgestattet ist, komm ich meinem Ziel schon näher.

(weiterlesen…)

Tut: Userform auto open VBA

Freitag, 6. August 2010

In diesem kleinen Tutorial will ich den Weg zeigen, das Verhalten einer UserForm in einer Excel Arbeitsmappe dahingehend zu beeinflussen, dass sich diese nach dem Öffnen der Excel Datei im Vordergrund öffnet und die Tabelle sich in den Hintergrund minimiert.

Zuerst wechselt Ihr mit Alt+F11 in den VBA Editor und legt euch eine UserForm sowie ein Modul an. In das Modul kopiert Ihr folgenden Code:

[code lang="vb" htmlscript="false" light="false"]
Public Sub Auto_open()
Set kls.xlApp = Application
Application.WindowState = xlMinimized
UserForm1.Show
[/code]

(weiterlesen…)