| PictureBox mit Scrollbalken (inneres und äußeres Bildfeld) |
| |
| |
| Private Sub Form_Load() | |
| picInnen.Left = picAussen.ScaleLeft | |
| picInnen.Top = picAussen.ScaleTop | Unmittelbar nach dem Laden wird das innere Bildfeld |
| picInnen.Width = picAussen.ScaleWidth | im äußeren Bildfeld angezeigt und unsichtbar gemacht. |
| vsbBild.Left = picAussen.Left + picAussen.Width | |
| vsbBild.Height = picAussen.Height | |
| vsbBild.Top = picAussen.Top | |
| picInnen.BorderStyle = False | |
| picInnen.Height = 32767 | |
| picInnen.AutoRedraw = True | |
| vsbBild.Max = picInnen.Height | |
| vsbBild.LargeChange = picInnen.Height / 10 | |
| vsbBild.SmallChange = picInnen.Height / 100 | |
| Me.Show | |
| ZinsBerechnung | |
| 'Alternativ: Laufzeitberechnung | |
| End Sub | |
| |
| Private Sub vsbBild_Change() | |
| picInnen.Top = -vsbBild.Value | Der negative Wert für die Top-Eigenschaft ist wichtig, |
| End Sub | da das Innenbild nicht vollständig sichtbar sein soll. |
| |
| Sub ZinsBerechnung() | Diese Prozedur berechnet die Kapitalentwicklung. |
| Dim Kapital As Currency | |
| Dim Laufzeit As Integer | |
| Dim Zinssatz As Single | |
| Dim Jahre As Integer | |
| Dim Antwort As Long | |
| Kapital = InputBox("Anfangskapital", Default:="10000") | |
| Zinssatz = InputBox("Zinssatz", Default:="5,5") | |
| Laufzeit = InputBox("Laufzeit", Default:="50") | |
| picInnen.Print " ZinsBerechnung vom " & Now | |
| picInnen.Print " ==================================" |
| picInnen.Print " Kapital = " & Kapital; " DM; Zinssatz = " & Zinssatz; " Prozent; Laufzeit = " & Laufzeit; " Jahre" |
| picInnen.Print "" | |
| picInnen.Print Tab(3); "I h r V e r m ö g e n b e t r ä g t" | |
| For Jahre = 1 To Laufzeit | |
| Kapital = Kapital * (1 + Zinssatz / 100) | |
| picInnen.Print Tab(5); "nach dem "; Jahre; ". Jahr"; Tab(35); Format(Kapital, "Currency") |
| Next | |
| Antwort = MsgBox("Berechnung wiederholen?", vbQuestion + vbYesNo) |
| If Antwort = vbYes Then | |
| picInnen.Cls | Der Befehl Me.Cls funktioniert hier nicht; das Innenbild |
| ZinsBerechnung | wird nicht entladen. |
| End If | Alternative Befehle: Unload Me + Me.Show |
| End Sub | |
| |
| Private Sub Form_Click() | |
| picInnen.Cls | Der Befehl Me.Cls funktioniert hier nicht; das Innenbild |
| ZinsBerechnung | wird nicht entladen. |
| End Sub | Alternative Befehle: Unload Me + Me.Show |
| |
| Sub Laufzeitberechnung() | Hier kann alternativ das Programm Laufzeitberechnung |
| Dim StartKapital As Currency | gestartet werden. |
| Dim EndKapital As Double | |
| Dim Zinssatz As Single | |
| Dim Jahre As Integer | |
| Dim Button As Integer | |
| StartKapital = InputBox("Geben Sie das Startkapital ein:", Default:="1000") |
| EndKapital = InputBox("Geben Sie das Endkapital ein:") |
| Zinssatz = InputBox("Wie hoch ist der Zinssatz?", Default:="5,5") |
| Do | |
| StartKapital = StartKapital * (1 + Zinssatz / 100) | |
| Jahre = Jahre + 1 | |
| Loop Until StartKapital > EndKapital | |
| MsgBox "Nach " & Jahre & " Jahren ist das Endkapital erreicht." |
| Button = MsgBox("Berechnung wiederholen?", Buttons:=vbOKCancel + vbQuestion) |
| If Button = vbOK Then Laufzeitberechnung | |
 | |
| End Sub | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| . |
| |
zurück