Microsoft Office Tutorials and References
In Depth Information
10.2.9 Ausgabeformatierung
Außerdem wurde die Eigenschaft SpecialEffect des Bezeichnungsfelds
auf den Wert 2 (= fmSpecialEffectSunken ) gesetzt. Durch diese etwas
vertiefte Darstellung wird das Feld deutlicher erkennbar.
SpecialEffect
Zunächst die Anwendung:
Private Sub UserForm_Initialize()
Dim Nr(1 To 3) As Integer
Dim Prod(1 To 3) As String
Dim Preis(1 To 3) As Single
Dim Zeile As String
Dim i As Integer
' Felder initialisieren
Nr(1) = 5
Nr(2) = 11
Nr(3) = 346
Prod(1) = "Apfel"
Prod(2) = "Banane"
Prod(3) = "Kartoffel"
Preis(1) = 2
Preis(2) = 1.95
Preis(3) = 2.5
' Ausgabe
lblTabelle.Caption = ""
Fori=1To3
' Formatierte Ausgabezeile zusammenstellen
Zeile = Format(Nr(i), "@@@@") & _
" " & Format(Prod(i), "!@@@@@@@@@@@@") & _
Format(Format(Preis(i), "0.00€"), "@@@@@@@")
' Zeile zu Listenfeld hinzufügen
lstTabelle.AddItem Zeile
' Zeile zu Bezeichnungsfeld hinzufügen
lblTabelle.Caption = _
lblTabelle.Caption & Zeile & vbCrLf
Next i
End Sub
Das Ergebnis sehen Sie in Abbildung 10.18.
Search JabSto ::




Custom Search