Galileo Computing < openbook > Galileo Computing - Professionelle Bücher. Auch für Einsteiger.
Professionelle Bücher. Auch für Einsteiger.

Inhaltsverzeichnis
1 Einführung
2 Grundlagen
3 Fehlerbehandlung
4 Erweiterte Grundlagen
5 Objektorientierte Programmierung
6 Wichtige Klassen in .NET
7 Weitere Elemente eines Windows-Programms
8 Datenbank-Anwendungen mit ADO.NET
9 Internet-Anwendungen mit ASP.NET
10 Zeichnen mit GDI+
11 Neues in Visual Basic 2008
12 Beispielprojekte
A Installation
B Lösungen der Übungsaufgaben
Stichwort

Download:
- ZIP, ca. 8,4 MB
Buch bestellen
Ihre Meinung?

Spacer
 <<   zurück
Einstieg in Visual Basic 2008 von Thomas Theis
Inkl. zahlreicher Beispiele und Uebungen
Buch: Einstieg in Visual Basic 2008

Einstieg in Visual Basic 2008
geb., mit DVD
442 S., 24,90 Euro
Galileo Computing
ISBN 978-3-8362-1192-5
Online bestellenJetzt online bestellen
* versandkostenfrei in (D) und (A)
Pfeil B Lösungen der Übungsaufgaben
  Pfeil B.1 Lösungen der Übungsaufgaben aus Kapitel 1
    Pfeil B.1.1 Lösung p0102
  Pfeil B.2 Lösungen der Übungsaufgaben aus Kapitel 2
    Pfeil B.2.1 Lösung p0202
    Pfeil B.2.2 Lösung p0205
    Pfeil B.2.3 Lösung p0206
    Pfeil B.2.4 Lösung p0207
    Pfeil B.2.5 Lösung p0208
    Pfeil B.2.6 Lösung p0210
    Pfeil B.2.7 Lösung p0213
    Pfeil B.2.8 Lösung p0214
    Pfeil B.2.9 Lösung p0222, zwei Alternativen
    Pfeil B.2.10 Lösung p0223
    Pfeil B.2.11 Lösung p0228
    Pfeil B.2.12 Lösung p0232
    Pfeil B.2.13 Lösung p0233
    Pfeil B.2.14 Lösung p0234
    Pfeil B.2.15 Lösung p0235
    Pfeil B.2.16 Lösung p0236
    Pfeil B.2.17 Lösung p0243
  Pfeil B.3 Lösungen der Übungsaufgaben aus Kapitel 4
    Pfeil B.3.1 Lösung p0403
    Pfeil B.3.2 Lösung p0411
    Pfeil B.3.3 Lösung p0412
    Pfeil B.3.4 Lösung p0425
    Pfeil B.3.5 Lösung p0426
  Pfeil B.4 Lösungen der Übungsaufgaben aus Kapitel 8
    Pfeil B.4.1 Lösung zur Übung »Projektverwaltung«
    Pfeil B.4.2 Lösung zur Übung »Mietwagen«


Galileo Computing - Zum Seitenanfang

B.2 Lösungen der Übungsaufgaben aus Kapitel 2  Zur nächsten ÜberschriftZur vorigen Überschrift


Galileo Computing - Zum Seitenanfang

B.2.1 Lösung p0202  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0202 
   Private Sub cmdAnzeigen_Click( ... ) Handles ... 
      Dim nachname, vorname As String 
      Dim strasse, plz, ort As String 
      Dim alter As Integer 
      Dim geburtsdatum As Date 
 
      nachname = "Basic" 
      vorname = "Bodo" 
      strasse = "Bergstraße 34" 
      plz = "09445" 
      ort = "Brunnstadt" 
      alter = 32 
      geburtsdatum = "07.12.1975" 
 
      lblA.Text = "Adresse: " & vbCrLf _ 
         & vorname & " " & nachname & vbCrLf _ 
         & strasse & vbCrLf _ 
         & plz & " " & ort & vbCrLf & vbCrLf _ 
         & "geb.: " & geburtsdatum & vbCrLf _ 
         & "Alter: " & alter 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.2 Lösung p0205  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0205 
   Dim x As Double 
 
   Private Sub cmdAnzeigen1_Click( ... ) Handles ... 
      Dim y As Double 
      y = y + 0.1 
      x = x + 0.1 
      lblA.Text = "x: " & x & vbCrLf & "y: " & y 
   End Sub 
   Private Sub cmdAnzeigen2_Click( ... ) Handles ... 
      Dim z As Double 
      z = z + 0.1 
      x = x + 0.1 
      lblA.Text = "x: " & x & vbCrLf & "z: " & z 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.3 Lösung p0206  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0206 
   Private Sub cmdAnzeigen1_Click( ... ) Handles ... 
      Dim x As Double 
      x = 3 * -2.5 + 4 * 2 
      lblA.Text = x 
   End Sub 
   Private Sub cmdAnzeigen2_Click( ... ) Handles ... 
      Dim x As Double 
      x = 3 * (-2.5 + 4) * 2 
      lblA.Text = x 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.4 Lösung p0207  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0207 
   Private Sub cmdAnzeigen1_Click( ... ) Handles ... 
      Dim p As Boolean 
      p = 12 - 3 >= 4 * 2.5 
      lblA.Text = p 
   End Sub 
   Private Sub cmdAnzeigen2_Click( ... ) Handles ... 
      Dim p As Boolean 
      p = "Maier" Like "M??er" 
      lblA.Text = p 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.5 Lösung p0208  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0208 
   Private Sub cmdAnzeigen1_Click( ... ) Handles ... 
      Dim p As Boolean 
      p = 4 > 3 And -4 > -3 
      lblA.Text = p 
   End Sub 
   Private Sub cmdAnzeigen2_Click( ... ) Handles ... 
      Dim p As Boolean 
      p = 4 > 3 Or -4 > -3 
      lblA.Text = p 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.6 Lösung p0210  Zur nächsten ÜberschriftZur vorigen Überschrift

1. False
       
2. True
       
3. True
       
4. True
       
5. True
       
6. False
       
7. True
       
8. False
       

Galileo Computing - Zum Seitenanfang

B.2.7 Lösung p0213  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0213 
   Private Sub cmdStart_Click( ... ) Handles ... 
      tim1.Enabled = True 
   End Sub 
 
   Private Sub tim1_Tick( ... ) Handles ... 
      pan1.Location = New Point(pan1.Location.X - 5, _ 
                                pan1.Location.Y - 5) 
      pan2.Location = New Point(pan2.Location.X + 5, _ 
                                pan2.Location.Y - 5) 
      pan3.Location = New Point(pan3.Location.X - 5, _ 
                                pan3.Location.Y + 5) 
      pan4.Location = New Point(pan4.Location.X + 5, _ 
                                pan4.Location.Y + 5) 
    End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.8 Lösung p0214  Zur nächsten ÜberschriftZur vorigen Überschrift

Bezeichnungen:

  • pan1: Fundament
  • pan2: senkrechtes Hauptelement
  • pan3: waagrechter Ausleger
  • pan4: senkrechter Haken am Ausleger
Public Class frm0214 
   Private Sub cmdHakenAus_Click( ... ) Handles ... 
      pan4.Height = pan4.Height + 10 
   End Sub 
 
   Private Sub cmdHakenEin_Click( ... ) Handles ... 
      pan4.Height = pan4.Height - 10 
   End Sub 
 
   Private Sub cmdAuslegerAus_Click( ... ) Handles ... 
      pan3.Width = pan3.Width + 10 
      pan3.Location = New Point(pan3.Location.X - 10, _ 
                                pan3.Location.Y) 
      pan4.Location = New Point(pan4.Location.X - 10, _ 
                                pan4.Location.Y) 
   End Sub 
 
   Private Sub cmdAuslegerEin_Click( ... ) Handles ... 
      pan3.Width = pan3.Width - 10 
      pan3.Location = New Point(pan3.Location.X + 10, _ 
                                pan3.Location.Y) 
      pan4.Location = New Point(pan4.Location.X + 10, _ 
                                pan4.Location.Y) 
   End Sub 
 
   Private Sub cmdKranRechts_Click( ... ) Handles ... 
      pan1.Location = New Point(pan1.Location.X + 10, _ 
                                pan1.Location.Y) 
      pan2.Location = New Point(pan2.Location.X + 10, _ 
                                pan2.Location.Y) 
      pan3.Location = New Point(pan3.Location.X + 10, _ 
                                pan3.Location.Y) 
      pan4.Location = New Point(pan4.Location.X + 10, _ 
                                pan4.Location.Y) 
   End Sub 
 
   Private Sub cmdKranLinks_Click( ... ) Handles ... 
      pan1.Location = New Point(pan1.Location.X - 10, _ 
                                pan1.Location.Y) 
      pan2.Location = New Point(pan2.Location.X - 10, _ 
                                pan2.Location.Y) 
      pan3.Location = New Point(pan3.Location.X - 10, _ 
                                pan3.Location.Y) 
      pan4.Location = New Point(pan4.Location.X - 10, _ 
                                pan4.Location.Y) 
   End Sub 
 
   Private Sub cmdKranAus_Click( ... ) Handles ... 
      pan2.Height = pan2.Height + 10 
      pan2.Location = New Point(pan2.Location.X, _ 
                                pan2.Location.Y - 10) 
      pan3.Location = New Point(pan3.Location.X, _ 
                                pan3.Location.Y - 10) 
      pan4.Location = New Point(pan4.Location.X, _ 
                                pan4.Location.Y - 10) 
   End Sub 
 
   Private Sub cmdKranEin_Click( ... ) Handles ... 
      pan2.Height = pan2.Height - 10 
      pan2.Location = New Point(pan2.Location.X, _ 
                                pan2.Location.Y + 10) 
      pan3.Location = New Point(pan3.Location.X, _ 
                                pan3.Location.Y + 10) 
      pan4.Location = New Point(pan4.Location.X, _ 
                                pan4.Location.Y + 10) 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.9 Lösung p0222, zwei Alternativen  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0222 
   Private Sub cmdBerechnen1_Click( ... ) Handles ... 
      Dim gehalt As Double 
      Dim steuersatz As Double 
      Dim steuerbetrag As Double 
 
      gehalt = Val(txtGehalt.Text) 
      If gehalt <= 12000 Then 
         steuersatz = 0.12 
      ElseIf gehalt <= 20000 Then 
         steuersatz = 0.15 
      ElseIf gehalt <= 30000 Then 
         steuersatz = 0.2 
      Else 
         steuersatz = 0.25 
      End If 
 
      steuerbetrag = gehalt * steuersatz 
      lblSteuerbetrag.Text = steuerbetrag 
   End Sub 
 
   Private Sub cmdBerechnen2_Click( ... ) Handles ... 
      Dim gehalt As Double 
      Dim steuersatz As Double 
      Dim steuerbetrag As Double 
 
      gehalt = Val(txtGehalt.Text) 
      Select Case gehalt 
         Case Is <= 12000 
            steuersatz = 0.12 
         Case Is <= 20000 
            steuersatz = 0.15 
         Case Is <= 30000 
            steuersatz = 0.2 
         Case Else 
            steuersatz = 0.25 
      End Select 
 
      steuerbetrag = gehalt * steuersatz 
      lblSteuerbetrag.Text = steuerbetrag 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.10 Lösung p0223  Zur nächsten ÜberschriftZur vorigen Überschrift

Bezeichnungen:

  • pan1: Fundament
  • pan2: senkrechtes Hauptelement
  • pan3: waagrechter Ausleger
  • pan4: senkrechter Haken am Ausleger
Public Class frm0223 
   Private Sub cmdHakenAus_Click( ... ) Handles ... 
      If pan4.Location.Y + pan4.Height + 5 < _ 
            pan1.Location.Y Then 
         pan4.Height = pan4.Height + 10 
      End If 
   End Sub 
 
   Private Sub cmdHakenEin_Click( ... ) Handles ... 
      If pan4.Height > 15 Then 
         pan4.Height = pan4.Height - 10 
      End If 
   End Sub 
 
   Private Sub cmdAuslegerAus_Click( ... ) Handles ... 
      If pan3.Location.X > 15 Then 
         pan3.Width = pan3.Width + 10 
         pan3.Location = New Point(_ 
            pan3.Location.X - 10, pan3.Location.Y) 
         pan4.Location = New Point(_ 
            pan4.Location.X - 10, pan4.Location.Y) 
      End If 
   End Sub 
 
   Private Sub cmdAuslegerEin_Click( ... ) Handles ... 
      If pan3.Width > 25 Then 
         pan3.Width = pan3.Width - 10 
         pan3.Location = New Point(_ 
            pan3.Location.X + 10, pan3.Location.Y) 
         pan4.Location = New Point(_ 
            pan4.Location.X + 10, pan4.Location.Y) 
      End If 
   End Sub 
 
   Private Sub cmdKranRechts_Click( ... ) Handles ... 
      If pan1.Location.X < 215 Then 
         pan1.Location = New Point(_ 
            pan1.Location.X + 10, pan1.Location.Y) 
         pan2.Location = New Point(_ 
            pan2.Location.X + 10, pan2.Location.Y) 
         pan3.Location = New Point(_ 
            pan3.Location.X + 10, pan3.Location.Y) 
         pan4.Location = New Point(_ 
            pan4.Location.X + 10, pan4.Location.Y) 
      End If 
   End Sub 
 
 
   Private Sub cmdKranLinks_Click( ... ) Handles ... 
      If pan1.Location.X And pan3.Location.X > 15 Then 
         pan1.Location = New Point(_ 
            pan1.Location.X - 10, pan1.Location.Y) 
         pan2.Location = New Point(_ 
            pan2.Location.X - 10, pan2.Location.Y) 
         pan3.Location = New Point(_ 
            pan3.Location.X - 10, pan3.Location.Y) 
         pan4.Location = New Point(_ 
            pan4.Location.X - 10, pan4.Location.Y) 
      End If 
   End Sub 
 
   Private Sub cmdKranAus_Click( ... ) Handles ... 
      If pan2.Location.Y > 15 Then 
         pan2.Height = pan2.Height + 10 
         pan2.Location = New Point(_ 
            pan2.Location.X, pan2.Location.Y - 10) 
         pan3.Location = New Point(_ 
            pan3.Location.X, pan3.Location.Y - 10) 
         pan4.Location = New Point(_ 
            pan4.Location.X, pan4.Location.Y - 10) 
      End If 
   End Sub 
 
   Private Sub cmdKranEin_Click( ... ) Handles ... 
      If pan4.Location.Y + pan4.Height + 5 < _ 
            pan1.Location.Y Then 
         pan2.Height = pan2.Height - 10 
         pan2.Location = New Point(_ 
            pan2.Location.X, pan2.Location.Y + 10) 
         pan3.Location = New Point(_ 
            pan3.Location.X, pan3.Location.Y + 10) 
         pan4.Location = New Point(_ 
            pan4.Location.X, pan4.Location.Y + 10) 
      End If 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.11 Lösung p0228  Zur nächsten ÜberschriftZur vorigen Überschrift

Bezeichnungen:

  • pan1: Fundament
  • pan2: senkrechtes Hauptelement
  • pan3: waagrechter Ausleger
  • pan4: senkrechter Haken am Ausleger
Public Class frm0228 
   Private Sub cmdStart_Click( ... ) Handles ... 
      tim1.Enabled = True 
   End Sub 
 
   Private Sub cmdStop_Click( ... ) Handles ... 
      tim1.Enabled = False 
   End Sub 
 
   Private Sub tim1_Tick( ... ) Handles ... 
      If optHakenAus.Checked Then 
         If pan4.Location.Y + pan4.Height + 5 < _ 
               pan1.Location.Y Then 
            pan4.Height = pan4.Height + 10 
         Else 
            tim1.Enabled = False 
         End If 
      ElseIf optHakenEin.Checked Then 
         If pan4.Height > 15 Then 
            pan4.Height = pan4.Height - 10 
         Else 
            tim1.Enabled = False 
         End If 
      ElseIf optAuslegerAus.Checked Then 
         If pan3.Location.X > 15 Then 
            pan3.Width = pan3.Width + 10 
            pan3.Location = New Point(_ 
               pan3.Location.X - 10, pan3.Location.Y) 
            pan4.Location = New Point(_ 
               pan4.Location.X - 10, pan4.Location.Y) 
         Else 
            tim1.Enabled = False 
         End If 
      ElseIf optAuslegerEin.Checked Then 
         If pan3.Width > 25 Then 
            pan3.Width = pan3.Width - 10 
            pan3.Location = New Point(_ 
               pan3.Location.X + 10, pan3.Location.Y) 
            pan4.Location = New Point(_ 
                pan4.Location.X + 10, pan4.Location.Y) 
         Else 
            tim1.Enabled = False 
         End If 
      ElseIf optKranRechts.Checked Then 
         If pan1.Location.X < 215 Then 
            pan1.Location = New Point(_ 
               pan1.Location.X + 10, pan1.Location.Y) 
            pan2.Location = New Point(_ 
               pan2.Location.X + 10, pan2.Location.Y) 
            pan3.Location = New Point(_ 
               pan3.Location.X + 10, pan3.Location.Y) 
            pan4.Location = New Point(_ 
               pan4.Location.X + 10, pan4.Location.Y) 
         Else 
            tim1.Enabled = False 
         End If 
      ElseIf optKranLinks.Checked Then 
         If pan1.Location.X And _ 
               pan3.Location.X > 15 Then 
            pan1.Location = New Point(_ 
               pan1.Location.X - 10, pan1.Location.Y) 
            pan2.Location = New Point(_ 
               pan2.Location.X - 10, pan2.Location.Y) 
            pan3.Location = New Point(_ 
               pan3.Location.X - 10, pan3.Location.Y) 
            pan4.Location = New Point(_ 
               pan4.Location.X - 10, pan4.Location.Y) 
         Else 
             tim1.Enabled = False 
         End If 
      ElseIf optKranAus.Checked Then 
         If pan2.Location.Y > 15 Then 
            pan2.Height = pan2.Height + 10 
            pan2.Location = New Point(_ 
               pan2.Location.X, pan2.Location.Y - 10) 
            pan3.Location = New Point(_ 
               pan3.Location.X, pan3.Location.Y - 10) 
            pan4.Location = New Point(_ 
               pan4.Location.X, pan4.Location.Y - 10) 
         Else 
            tim1.Enabled = False 
         End If 
      ElseIf optKranEin.Checked Then 
         If pan4.Location.Y + pan4.Height + 5 < _ 
               pan1.Location.Y Then 
            pan2.Height = pan2.Height - 10 
            pan2.Location = New Point(_ 
               pan2.Location.X, pan2.Location.Y + 10) 
            pan3.Location = New Point(_ 
               pan3.Location.X, pan3.Location.Y + 10) 
            pan4.Location = New Point(_ 
               pan4.Location.X, pan4.Location.Y + 10) 
         Else 
            tim1.Enabled = False 
         End If 
      End If 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.12 Lösung p0232  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0232 
   Private Sub cmdAnzeigen_Click( ... ) Handles ... 
      Dim d As Double 
      For d = 35 To 20 Step -2.5 
         lblA.Text &= d & vbCrLf 
      Next 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.13 Lösung p0233  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0233 
   Private Sub cmdAnzeigen_Click( ... ) Handles ... 
      Dim d, summe, zähler, mittelwert As Double 
 
      summe = 0 
      zähler = 0 
 
      For d = 35 To 20 Step -2.5 
         lblA.Text &= d & vbCrLf 
         summe += d 
         zähler += 1 
      Next 
 
      mittelwert = summe / zähler 
      lblA.Text &= vbCrLf 
      lblA.Text &= "Summe: " & summe & vbCrLf 
      lblA.Text &= "Mittelwert: " & mittelwert & vbCrLf 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.14 Lösung p0234  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0234 
   Private Sub cmdHalbieren_Click( ... ) Handles ... 
      Dim d As Double 
      d = Val(txtEingabe.Text) 
      lblA.Text = "" 
      Do While d > 0.001 
         d = d / 2 
         lblA.Text &= d & vbCrLf 
      Loop 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.15 Lösung p0235  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0235 
   Dim zahl As Integer 
 
   Private Sub frm0235_Load( ... ) Handles MyBase.Load 
      Randomize() 
      zahl = Rnd() * 100 + 1 
   End Sub 
 
   Private Sub cmdPrüfen_Click( ... ) Handles ... 
      Dim eingabe As Integer 
      eingabe = Val(txtEingabe.Text) 
      If eingabe > zahl Then 
         lblA.Text = "Die Zahl " & eingabe _ 
            & " ist zu groß" 
      ElseIf eingabe < zahl Then 
         lblA.Text = "Die Zahl " & eingabe _ 
            & " ist zu klein" 
      Else 
         lblA.Text = eingabe _ 
            & " ist die richtige Zahl, gratuliere" 
      End If 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.16 Lösung p0236  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0236 
   Private Sub cmdAnzeigen_Click( ... ) Handles ... 
      Dim gehalt As Double 
      Dim steuersatz As Double 
      Dim steuerbetrag As Double 
      Dim netto As Double 
 
      For gehalt = 5000 To 35000 Step 3000 
         If gehalt <= 12000 Then 
            steuersatz = 0.12 
         ElseIf gehalt <= 20000 Then 
            steuersatz = 0.15 
         ElseIf gehalt <= 30000 Then 
            steuersatz = 0.2 
         Else 
            steuersatz = 0.25 
         End If 
 
         steuerbetrag = gehalt * steuersatz 
         netto = gehalt - steuerbetrag 
         lblA.Text &= gehalt & " €, " & steuersatz _ 
            & " %, " & steuerbetrag & " €, " & netto _ 
            & " €" & vbCrLf 
      Next 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

B.2.17 Lösung p0243  topZur vorigen Überschrift

Public Class frm0243 
   Private Sub frm0243_Load( ... ) Handles MyBase.Load 
      lstLinks.Items.Add("Malta") 
      lstLinks.Items.Add("Zypern") 
      lstLinks.Items.Add("Slowenien") 
      lstLinks.Items.Add("Estland") 
      lstLinks.Items.Add("Rumänien") 
 
      lstRechts.Items.Add("Belgien") 
      lstRechts.Items.Add("Spanien") 
      lstRechts.Items.Add("Italien") 
      lstRechts.Items.Add("Portugal") 
      lstRechts.Items.Add("Dänemark") 
   End Sub 
 
   Private Sub cmdRechts_Click( ... ) Handles ... 
      For i = 0 To lstLinks.SelectedItems.Count - 1 
         lstRechts.Items.Add(lstLinks.SelectedItems(i)) 
      Next 
      For i = lstLinks.SelectedItems.Count - 1 _ 
            To 0 Step -1 
         lstLinks.Items.RemoveAt(_ 
            lstLinks.SelectedIndices(i)) 
      Next 
   End Sub 
 
   Private Sub cmdLinks_Click( ... ) Handles ... 
      For i = 0 To lstRechts.SelectedItems.Count - 1 
         lstLinks.Items.Add(lstRechts.SelectedItems(i)) 
      Next 
      For i = lstRechts.SelectedItems.Count - 1 _ 
            To 0 Step -1 
         lstRechts.Items.RemoveAt(_ 
            lstRechts.SelectedIndices(i)) 
      Next 
   End Sub 
End Class


Ihr Kommentar

Wie hat Ihnen das <openbook> gefallen? Wir freuen uns immer über Ihre freundlichen und kritischen Rückmeldungen.






 <<   zurück
  Zum Katalog
Zum Katalog: Einstieg in Visual Basic 2008






Einstieg in Visual Basic 2008
bestellen
 Ihre Meinung?
Wie hat Ihnen das <openbook> gefallen?
Ihre Meinung

 Buchtipps
Zum Katalog: Visual Basic 2008






 Visual Basic 2008


Zum Katalog: Einstieg in Visual C++ 2008






 Einstieg in
 Visual C++ 2008


Zum Katalog: Einstieg in Visual C# 2008






 Einstieg in
 Visual C# 2008


Zum Katalog: Visual C# 2008






 Visual C# 2008


Zum Katalog: Visual C# - Video-Training






 Visual C# -
 Video-Training


Zum Katalog: Einstieg in PHP 5 und MySQL 5






 Einstieg in PHP 5
 und MySQL 5


 Shopping
Versandkostenfrei bestellen in Deutschland und Österreich
InfoInfo





Copyright © Galileo Press 2008
Für Ihren privaten Gebrauch dürfen Sie die Online-Version natürlich ausdrucken. Ansonsten unterliegt das <openbook> denselben Bestimmungen, wie die gebundene Ausgabe: Das Werk einschließlich aller seiner Teile ist urheberrechtlich geschützt. Alle Rechte vorbehalten einschließlich der Vervielfältigung, Übersetzung, Mikroverfilmung sowie Einspeicherung und Verarbeitung in elektronischen Systemen.


[Galileo Computing]

Galileo Press, Rheinwerkallee 4, 53227 Bonn, Tel.: 0228.42150.0, Fax 0228.42150.77, info@galileo-press.de