[VB.NET] Warning met 'Option Strict On'

[mpie]

Hoi ik probeer een simpele rekenmachine te maken met Option Strict On nu heb ik dit voor de min knop staan

Visual Basic:

Private Sub btnMin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMin.Click
        Dim Getal1, Getal2 As Integer

        Getal1 = CInt(txtGetal1.Text)
        Getal2 = CInt(txtGetal2.Text)

        lblUitkomstVak.Text = Getal1 - Getal2
        lblBewerkingVak.Text = "Min"

    End Sub

Nu onderstreept ie Getal1 - Getal2. Ik weet maar niet hoe ik het goed krijg. Wie weet hier de oplossing?

[gorgi_19]

Het enige wat ik zou kunnen bedenken:
Getal1 = integer
Getal2 = integer
Getal1 - Getal2 = integer
lblUitkomstvak.Text = String

Je moet dus expliciet casten van integer naar string?

[whoami]

Getal1 en getal2 zijn integers. Die integers wil je toekennen aan een string. Aangezien option strict aanstaat, gaat dat zomaar niet. Door die strict heb je nl. een strong typing 'aangezet'. Je zult dus de uitkomst van getal1 - getal2 moeten casten naar een string vooraleer je het toekent aan lblUitkomst.text

[mpie]

Ik heb lblUitkomst.Text omgezet naar Integer en de code is nu

Visual Basic:

Private Sub btnMin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMin.Click

        Getal1 = CInt(txtGetal1.Text)
        Getal2 = CInt(txtGetal2.Text)
        Uitkomst = CInt(lblUitkomstVak.Text)

        Uitkomst = Getal1 - Getal2
        lblBewerkingVak.Text = "Min"

    End Sub

De strepen zijn weg maar mijn rekenmachine werkt nog steeds niet.

[gorgi_19]

Waar vul je uberhaupt dat lblUitkomstVak?

[whoami]

Huh?
Wat doe jij nu? Je zet hetgeen er in lblUitkomstvak.Text staat in een integer variable, en dan ge je de uitkomst in die variable zetten. Je moet de variable uitkomst niet zien als een pointer naar lblUitkomstVak.Text hoor...

Ik (en gorgi_19) hadden gezegd de uitkomst casten naar een string en dat in die label zetten:

code:

lblLabel.Text = CString(getal1 - getal2)

_{kunnen foutjes in zitten, heb nog nooit vb.net gedaan}

[mpie]

Hij doet het! Thanx!

[OZ-Gump]

Dim Getal1, Getal2 As Integer

Om maar even te zeiken: dat gaat ook niet volledig goed. Net als in de 'oude' versies van VB is het volgens mij ook met VB.Net zo dat, als je op deze manier dimt, getal1 gezien wordt als Variant, omdat je er geen "as Type" achter zet. In Delphi is

code:

var x, y: integer;

gelijk aan

code:

var x: integer;
    y: integer;

In VB is

code:

Dim x, y as Integer

echter gelijk aan

code:

Dim x as Variant
Dim y as Integer

Misschien nuttig om voor de toekomst te weten en in de gaten te houden?

[ Voor 3% gewijzigd door OZ-Gump op 21-02-2003 11:43 . Reden: TYPEN! ]

[mpie]

En hoe kan ik een focus zetten op een button. (default button).
Dus als ik de form opstart dat de 2de knop de default button is?

[OZ-Gump]

mpie, heb je al eens in de help gekeken? Dit is namelijk een redelijk basale vraag. Ook is het makkelijk om, als je een nieuw probleem hebt, een nieuw topic aan te maken met een nieuwe probleemomschrijving en overzichtje van wat je al geprobeerd hebt. We willen best helpen, maar we zijn hier niet om ff snel een antwoord te geven op elke (simpele) vraag die je hebt.

Verder kun je je voorstellen dat degenen die je hier geholpen hebben aannemen dat het probleem opgelost is, en anderen komen naar dit topic omwille van de topictitle. En dat terwijl het nu heel ergens anders over gaat...

[ontopic]kijk eens naar de default-property[/ontopic]

[mpie]

Ok zal ik onthouden thanx!

[tijn]

OZ-Gump schreef op 21 February 2003 @ 11:41:
[...]
Om maar even te zeiken: dat gaat ook niet volledig goed. Net als in de 'oude' versies van VB is het volgens mij ook met VB.Net zo dat, als je op deze manier dimt, getal1 gezien wordt als Variant, omdat je er geen "as Type" achter zet.

In VB.Net bestaat Variant niet meer.

[Verwijderd]

Net als in de 'oude' versies van VB is het volgens mij ook met VB.Net zo dat, als je op deze manier dimt, getal1 gezien wordt als Variant, omdat je er geen "as Type" achter zet.

Dit is dus in VB .NET niet meer het geval.