Übung 5

<BODY BGCOLOR="#C0C0C0"> <TABLE border=0 Width=100%> <TR> <td Width=24% rowspan=3 colspan=4 bgcolor="#C0C0C0"> </td> <TD Width=6% valign="MIDDLE" align="center" rowspan=3 bgcolor="#41DD4C"><FONT size="6" face="Verdana" color="#FFFFFF">5</FONT></TD> <td Width=60% rowspan=3 colspan=10 bgcolor="#C0C0C0"> </td> <TD Width=10% bgcolor="#C0C0C0"> </td> </TR> <tr> <TD bgcolor="#C0C0C0"> </td> </TR> <tr> <TD bgcolor="#C0C0C0"> </td> </TR> </TABLE> <BR> <H1>Übung: Erstellen und Verwenden von Steuerelementen-Datenfelder (Arrays)</H1> <P><img src="graphics/line_rainbow.gif"></P> <BR> <P>Häufig ist es nützlich, eine Reihe gleicher Steuerelemente-Arten zu erstellen, die über den Namen des Steuerelementes und einer Indexzahl angesprochen werden können. Dadurch ist es möglich:</P> <UL> <LI><P><B>daß sich eine Anzahl gleicher Steuerelemente den Programmcode teilen.</B> Zum Beispiel: man hat eine Reihe Textfelder, und möchte jene hervorheben, auf der sich gerade die Maus befindet. Dies kann dadurch erreicht werden, indem die Textfelder als ein Steuerelemente-Datenfeld (Array) erstellt werden, und im Programmcode der MouseMove-Methode eingetragen wird, daß die aktuelle Textbox hervorgehoben wird (und die zuvor hervorgehobene wieder zurückgesetzt wird). Mit einem Steuerelemente-Datenfeld reagieren alle Objekte, die darin enthalten sind, auf den Programmcode, es muß also nur einmal ein Code geschrieben werden, und nicht für jedes der beinhalteten Steuerelemente separat.</P> <LI><P><B>daß eine Reihe Steuerelemente etwas tun, bei dem die Funktion (oder der Programmcode) auf die jeweilige Position im Steuerelemente-Datenfeld verweist.</B> Zum Beispiel, im Rechner-Programm wurden die Schaltflächen für die Zahlen 0 bis 9 als Datenfeld angelegt. Sie benutzen den gleichen Code, und der Index bezog sich auf die jeweilige Zahl "0" bis "9", die auf der Schaltfläche stand.</P> </UL> <HR> <H3>Erstellen eines Steuerelemte-Datenfeldes</H3> <P>Dies läßt sich einfach bewerkstelligen. Erstellen Sie das erste Steuerelement in der üblichen Art und Weise aus der Werkzeugsammlung. Angenommen, es wäre ein Textfeld mit Namen <TT>Text1</TT>. Wählen Sie jetzt <TT>Text1</TT> (durch Clicken) an und wählen Sie<i> Kopieren</i> aus dem <i>Bearbeiten</i>-Menü. Wählen Sie dann <i>Einfügen</i> aus dem gleichen Menü. VB wird eine Dialogbox zeigen, in welcher es feststellt, daß es schon ein Steuerelement mit diesem Namen gibt, und fragt, ob man ein Steuerelemente-Datenfeld erstellen möchte; clicken Sie auf JA.</P> <CENTER><IMG BORDER=0 SRC="graphics/ueb_5_0.jpg"></CENTER> <P>Ein neues Textfeld wird am linken oberen Rand der Form erscheinen, es kann von dort an die gewünschte Position gezogen werden. Wenn Sie das Eigenschaften-Fenster anschauen, werden Sie feststellen, daß es dort zwei Textfelder gibt, mit den Namen <TT>Text1(0)</TT> und <TT>Text1(1)</TT>; das erste Element eines Steuerelemente-Datenfeldes erhält die Indexzahl 0. Erstellen Sie acht weitere Textfelde auf diese Art, und beachten Sie ihre unterschiedlichen Indizes.</P> <H3>Verwenden eines Steuerelemte-Datenfeldes</H3> <P>Das Wichtigste, was bei einem Verweis auf ein Steuerelemente-Datenfeld zu beachten ist, ist der Index. Um sich an solche Datenfelder zu gewöhnen, folgt ein kleines Beispiel für die oben erstellten Textfelder.</P> <H3>Oberfläche</H3> <P>Setzen Sie die Forecolor-Eigenschaft aller Textfelder auf gelb. Markieren Sie dafür alle zehn Textfelder (einen Bearbeitungsrahmen um alle ziehen), und setzen Sie die Farbe im Eigenschaften-Fenster.</P> <CENTER><IMG BORDER=0 SRC="graphics/ueb_5_1.jpg"></CENTER> <BR> <H3>Ablauf</H3> <P>Schreiben Sie diesen Code hinter die Click-Methode der oberen Schaltfläche (Ausführen):</P> <B><PRE> <FONT COLOR="#23238E">Sub</FONT> cmdAusführen_Click <FONT COLOR="#23238E">()</FONT> <FONT COLOR="#23238E">Dim</FONT> i <FONT COLOR="#23238E">As Integer</FONT> <FONT COLOR="#23238E">For</FONT> i = 0 <FONT COLOR="#23238E">To</FONT> 9 text1(i).BackColor <FONT COLOR="#23238E">= QBColor(</FONT>i<FONT COLOR="#23238E">)</FONT> text1(i).Text <FONT COLOR="#23238E">=</FONT> i <FONT COLOR="#23238E">Next</FONT> i <FONT COLOR="#23238E">End Sub</FONT> </PRE></B> <P>Starten Sie das Programm und vergewissern Sie sich, ob Sie verstanden haben, was das Programm macht.</P> <HR> <H3>Aufgaben</H3> <OL> <LI><P>Behalten Sie die Oberfläche bei, aber löschen Sie die Ausführen-Schaltfläche. Fügen Sie ein Panel unterhalb den Textfeldern ein, das Symbol in der Werkzeugsammlung für dieses Steuerelement ist <IMG SRC="graphics/panel.jpg">. (Sollte es nicht aufscheinen, muß über das Menü <i>Extras</i>, Eintrag <i>Zusatzsteuerelemente</i> <b>Threed32.ocx</b> hinzugeladen werden. Setzen Sie die Backcolor-Eigenschaft aller Textfelder auf Hellgrau. Programmieren sie die MouseMove-Methode von <TT>Text1()</TT> so, daß:</P> <P><B>a)</B> Wenn sich die Maus über einem Textfeld befindet, die Hintergrundfarbe dieses Textfeldes rot wird, und bei allen anderen hellgrau.</P> <P><B>b)</B> Das Panel (welches als Statuszeile verwendet wird) soll in der Caption-Eigenschaft anzeigen, auf welchem Textfeld sich die Maus gerade befindet, z.B. "Die Maus befindet sich über Textfeld Nr. 3."</P> <P>Der Prozedurkopf der MouseMove-Methode beinhaltet eine Parameterliste, bei der der erste Parameter der Index ist. Dies bedeutet daß VB den Wert des aktuellen Index ausliest (in der Variable Index) und zurückgibt, damit man diesen Wert für andere Vorgänge nutzen kann.</P> <P>Ein direkter Weg, um Aufgabe Nr. 1 zu lösen, wäre:</P> <B><PRE> <FONT COLOR="#23238E">Sub</FONT> Text1_MouseMove <FONT COLOR="#23238E">(</FONT>Index <FONT COLOR="#23238E">As Integer</FONT>, Button <FONT COLOR="#23238E">As Integer</FONT>, Shift <FONT COLOR="#23238E">As Integer</FONT>, X <FONT COLOR="#23238E">As Single</FONT>, Y <FONT COLOR="#23238E">As Single)</FONT> <FONT COLOR="#23238E">Dim</FONT> i <FONT COLOR="#23238E">As Integer</FONT> <FONT COLOR="GREEN">' deklariert eine Variable, die als Zählwerk eingesetzt wird</FONT> <FONT COLOR="#23238E">For</FONT> i = 0 <FONT COLOR="#23238E">To</FONT> 9 <FONT COLOR="GREEN">' weil es zehn Textfelder gibt</FONT> <FONT COLOR="#23238E">If</FONT> i <FONT COLOR="#23238E">=</FONT> Index <FONT COLOR="#23238E">Then</FONT> <FONT COLOR="GREEN">' diese ist die hervorzuhebende</FONT> Text1(i).BackColor <FONT COLOR="#23238E">= QBColor(</FONT>12<FONT COLOR="#23238E">)</FONT> <FONT COLOR="GREEN">' Rot</FONT> <FONT COLOR="#23238E">Else</FONT> Text1(i).BackColor <FONT COLOR="#23238E">= QBColor(</FONT>7<FONT COLOR="#23238E">)</FONT> <FONT COLOR="GREEN">' Hellgrau</FONT> <FONT COLOR="#23238E">End If</FONT> <FONT COLOR="#23238E">Next</FONT> i SSPanel1.Caption <FONT COLOR="#23238E">=</FONT> "Die Maus befindet sich gerade über Textfeld Nr. " <FONT COLOR="#23238E">&</FONT> Index <FONT COLOR="23238E">&</FONT> "." <FONT COLOR="#23238E">End Sub</FONT> </PRE></B> <P>Wenn man einen Text in den Textfeldern stehen hat, so fällt dabei auf, daß dieser Text flackert. Das ist deshalb der Fall, weil der Code jedesmal ausgeführt wird, wenn die Maus bewegt wird, und nicht nur beim Erreichen eines neuen Textfeldes.</P> <LI><P>Modifizieren Sie Ihr Programm, so daß wenn der Cursor zu einem neuen Textfeld kommt, diese hervorgehoben wird, und nur die zuvor hervorgehobene zurückgesetzt wird. In etwa so:</P> <B><PRE> <FONT COLOR="#23238E">Sub</FONT> Text1_MouseMove <FONT COLOR="#23238E">(</FONT>Index <FONT COLOR="#23238E">As Integer</FONT>, Button <FONT COLOR="#23238E">As Integer</FONT>, Shift <FONT COLOR="#23238E">As Integer</FONT>, X <FONT COLOR="#23238E">As Single</FONT>, Y <FONT COLOR="#23238E">As Single)</FONT> <FONT COLOR="GREEN">' Beachten Sie daß TbMax (maximales Textfel-Index) eine globale Konstante ist ' die in Modul1.bas mit dem Wert 9 deklariert wurde. ' Zuvor ist eine globale Variable, die in Modul1.bas deklariert worden ist, ' und in Form_Load mit TbMax+1 (d.h. außerhalb des Umfangs) initialisiert worden ist.</FONT> <FONT COLOR="#23238E">If</FONT> Index <FONT COLOR="#23238E">&lt&gt</FONT> Zuvor <FONT COLOR="#23238E">Then</FONT> <FONT COLOR="GREEN">' Es hat eine Änderung gegeben, also Hervorheben</FONT> Text1(Index).BackColor <FONT COLOR="#23238E">= QBColor(</FONT>12<FONT COLOR="#23238E">)</FONT> <FONT COLOR="GREEN">' Rot</FONT> <FONT COLOR="#23238E">If</FONT> Zuvor <FONT COLOR="#23238E"><=</FONT> TbMax <FONT COLOR="#23238E">Then</FONT> Text1(Zuvor).BackColor <FONT COLOR="#23238E">= QBColor(</FONT>12<FONT COLOR="#23238E">)</FONT> <FONT COLOR="GREEN">' Hellgrau</FONT> Zuvor <FONT COLOR="#23238E">=</FONT> Index <FONT COLOR="GREEN">' aktuellen Index in Zuvor speichern</FONT> SSPanel1.Caption <FONT COLOR="#23238E">=</FONT> "Die Maus befindet sich über Textfeld Nr." <FONT COLOR="#23238E">&</FONT> Index <FONT COLOR="#23238E">&</FONT> "." <FONT COLOR="#23238E">End If</FONT> <FONT COLOR="#23238E">End Sub</FONT> </PRE></B> <P>Variable mit globaler Reichweite müssen in einem Modul deklariert werden, das allen Programmteilen zugänglich ist. Solch ein Modul wird erstellt, indem man im <i>Einfügen</i>-Menü den Eintrag <i>Modul</i> wählt.</P> <P>Die Syntax lautet:</P> <B><PRE> <FONT COLOR="#23238E">Public</FONT> Zuvor <FONT COLOR="#23238E">As Integer</FONT> <FONT COLOR="#23238E">Public Const</FONT> TbMax <FONT COLOR="#23238E">=</FONT> 9 </PRE></B> </OL> <HR> <BR> <A HREF="Uebung04.html"><img border=0 align="middle" src="graphics/up.gif"> Übung 4</A> (Menü- und Listen-Bearbeitung)<BR> <A HREF="Inhalt.html"><img align="middle" border=0 src="graphics/left.gif"> Hauptseite</A><BR> <A HREF="Uebung06.html"><img border=0 align="middle" src="graphics/down.gif"> Übung 6</A> (Vertikale und Horizontale Bildlaufleisten)<BR> </BODY>