Hallo, bin ein völliger Anfänger in Sachen VB und habe einige Fragen:

Wo bekomme ich gute Tutorials für Visual Basic 2005 Express ?

Ist VB.NET das selbe oder welche verschiedene Versionen oder Typen von VB gibt es?

Ich habe ein Tutorial gefunden für einen Währungsumrechner, ging eigentlich auch ganz einfach, nur der zuletzt eingefügte Code gibt bei VB2005 Express Fehler aus, und zwar diesen:

Fehler 1 "Option Strict On" lässt Operanden des Typs "Object" für den =-Operator nicht zu. Verwenden Sie den Is-Operator, wenn Sie die Objektidentität testen möchten.

Mein Code:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95

[size=2][color=#0000ff]Option[/color][/size][size=2][color=#0000ff]Explicit[/color][/size][size=2][color=#0000ff]On   Option[/color][/size][size=2][color=#0000ff]Strict[/color][/size][size=2][color=#0000ff]On   Imports[/color][/size][size=2] System   [/size][size=2][color=#0000ff]Public[/color][/size][size=2][color=#0000ff]Class[/color][/size][size=2] MainForm   [/size][size=2][color=#0000ff]Inherits[/color][/size][size=2] System.Windows.Forms.Form   [/size][size=2][color=#0000ff]Private[/color][/size][size=2][color=#0000ff]Const[/color][/size][size=2] DM [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]Decimal[/color][/size][size=2] = 1.95583D [/size][size=2][color=#008000]' Deutsche Mark   [/color][/size][size=2][color=#0000ff]Private[/color][/size][size=2][color=#0000ff]Const[/color][/size][size=2] BEF [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]Decimal[/color][/size][size=2] = 40.3399D [/size][size=2][color=#008000]' Belgische Francs   [/color][/size][size=2][color=#0000ff]Private[/color][/size][size=2][color=#0000ff]Const[/color][/size][size=2] ATS [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]Decimal[/color][/size][size=2] = 13.7603D [/size][size=2][color=#008000]' Österreichische Schilling   [/color][/size][size=2][color=#0000ff]Private[/color][/size][size=2][color=#0000ff]Const[/color][/size][size=2] FRF [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]Decimal[/color][/size][size=2] = 6.55957D [/size][size=2][color=#008000]' Französische Francs   [/color][/size][size=2][color=#0000ff]Private[/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2] txtBetrag_KeyPress([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]Object[/color][/size][size=2], [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.KeyPressEventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] txtBetrag.KeyPress   [/size][size=2][color=#0000ff]Select[/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] AscW(e.KeyChar)   [/size][size=2][color=#0000ff]Case[/color][/size][size=2] 46, 48 [/size][size=2][color=#0000ff]To[/color][/size][size=2] 57, 8   [/size][size=2][color=#008000]' Dezimalkomma, Ziffern und Backspace zulassen   [/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2][color=#0000ff]Else   [/color][/size][size=2]e.Handled = [/size][size=2][color=#0000ff]True   [/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Select   [/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Sub   [/color][/size][size=2][color=#0000ff]Private[/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2] btnUmrechnen_Click([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] btnUmrechnen.Click   [/size][size=2][color=#0000ff]Dim[/color][/size][size=2] Betrag [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]Decimal[/color][/size][size=2] = [/size][size=2][color=#0000ff]CDec[/color][/size][size=2](txtBetrag.Text)   [/size][size=2][color=#0000ff]Dim[/color][/size][size=2] Ergebnis [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]Decimal   [/color][/size][size=2][color=#0000ff]Select[/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] cmbFrom.SelectedItem   [/size][size=2][color=#0000ff]Case[/color][/size][size=2] cmbFrom.Items.Item(0)   [/size][size=2][color=#008000]' Euro in Euro umrechnen?   [/color][/size][size=2]lblErgebnis.Text = [/size][size=2][color=#800000]"Sie können nur in Euro umrechnen."   [/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] cmbFrom.Items.Item(1)   [/size][size=2][color=#008000]' DM in Euro umrechnen   [/color][/size][size=2]Ergebnis = Math.Round(Betrag / DM, 2)   lblErgebnis.Text = txtBetrag.Text & [/size][size=2][color=#800000]" DM sind "[/color][/size][size=2] & _   [/size][size=2][color=#800000]"umgerechnet "[/color][/size][size=2] & Ergebnis.ToString() & [/size][size=2][color=#800000]" Euro."   [/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] cmbFrom.Items.Item(2)   [/size][size=2][color=#008000]' Belgische Francs in Euro umrechnen   [/color][/size][size=2]Ergebnis = Math.Round(Betrag / BEF, 2)   lblErgebnis.Text = txtBetrag.Text & [/size][size=2][color=#800000]" BEF sind "[/color][/size][size=2] & _   [/size][size=2][color=#800000]"umgerechnet "[/color][/size][size=2] & Ergebnis.ToString() & [/size][size=2][color=#800000]" Euro."   [/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] cmbFrom.Items.Item(3)   [/size][size=2][color=#008000]' Französische Francs in Euro umrechnen   [/color][/size][size=2]Ergebnis = Math.Round(Betrag / FRF, 2)   lblErgebnis.Text = txtBetrag.Text & [/size][size=2][color=#800000]" FRF sind "[/color][/size][size=2] & _   [/size][size=2][color=#800000]"umgerechnet "[/color][/size][size=2] & Ergebnis.ToString() & [/size][size=2][color=#800000]" Euro."   [/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] cmbFrom.Items.Item(4)   [/size][size=2][color=#008000]' Österreichische Schilling in Euro umrechnen   [/color][/size][size=2]Ergebnis = Math.Round(Betrag / ATS, 2)   lblErgebnis.Text = txtBetrag.Text & [/size][size=2][color=#800000]" ATS sind "[/color][/size][size=2] & _   [/size][size=2][color=#800000]"umgerechnet "[/color][/size][size=2] & Ergebnis.ToString() & [/size][size=2][color=#800000]" Euro."   [/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Select   [/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Sub   End[/color][/size][size=2][color=#0000ff]Class   [/color][/size]

Als Fehlerquelle wird jeweils das "cmbFrom.Items.Item(x)" gewellt unterstrichen dargestellt.

Wer kann mir diese Fragen beantworten und mir erklären warum dieser Fehler ausgegeben wird...?!

Danke

Du bist hier im falschen Forum. Das ist das Forum für VB6, VBA ..
Für das nächst mal verwende bitte, dass .Net Forum.

Ich denke der Fehler rührt daher das in den Case Statments Konstante Werte erwartet werden und keine Variablen.
Also [B]Case cmbFrom.Items.Item(4)[/B] ist nicht möglich, da der Wert zur Laufzeit variiert.

Code :

1 2 3 4 5 6 7 8

SelectCase cmbFrom.SelectedItem      Case 0            ' Euro in Euro umrechnen?             lblErgebnis.Text = "Sie können nur in Euro umrechnen."       Case 1             ... End Select

Dem entsprechend musst du die ComboBox in der richtigen Reihenfolge zu füllen.

Also ist VB 2005 - VB.NET ?

Hat Leider nicht funktioniert, dadurch kommen andere Fehler

Zitat von -Ener-

Also ist VB 2005 - VB.NET ?

Hat Leider nicht funktioniert, dadurch kommen andere Fehler

Ja, da VB 2005 auf dem .Net Framework 2.0 basiert. Microsoft hat nur aus marketingtechnischen Gründen auf das ".Net" im Namen verzichtet.

Was kommen dann für andere Fehler ?