Archief - [VB.NET] Is of =?

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
S

Svenno

Legacy Member
Hey,

Ik ben nogal een beginner in het programmeren, hierbij had ik ook een vraagje.

Geen onderstaande regels werkt.

Code: 
 If PicBox1.Image Is PicBox2.Image Then
            LbLCapha.Text = " - True"
        ElseIf PicBox1.Image.Clone Is PicBox2.Image.Clone Then
            LbLCapha.Text = " - True"
        ElseIf Object.Equals(PicBox1.Image, PicBox2.Image) Then
            LbLCapha.Text = " - True"
        ElseIf Object.Equals(PicBox1.Image.Clone, PicBox2.Image.Clone) Then
            LbLCapha.Text = " - True"
        End If

Misschien iemand dat er mij attend kan op maken?

Dank bij voorbaat.
G

GregoryCo

Legacy Member
Ik ben ook maar een beginner, maar moet je niet eerst variabelen declareren? Dus ook waarde toekennen aan uw pictureboxen.

En probeer eens
Code: 
 If PicBox1.Img = PicBox2.Img Then
            LbLCapha.Text = " - True"
        ElseIf PicBox1.Image.Clone = PicBox2.Image.Clone Then
            LbLCapha.Text = " - True"
        ElseIf Object.Equals(PicBox1.Img, PicBox2.Img) Then
            LbLCapha.Text = " - True"
        ElseIf Object.Equals(PicBox1.Img.Clone, PicBox2.Img.Clone) Then
            LbLCapha.Text = " - True"
        End If

En eerst nog variabelen declareren, zoiets:
Code: 
 Dim bla.bla as bla
enz..

Sry als er fouten inzitten, maar terwijl je wacht op anderen kan je dit mss eens proberen, ik kan het nu niet testen
D

Da Turtle

Legacy Member
primitieve types kan je vergelijken met '=', bij objecten gebruik je best '.Equals()', dan ben je zeker. In jou geval wordt het 'PicBox1.Img.Equals(PicBox2.Img)'. Het verschil tussen = en Equals() ga ik niet uitleggen, een cursus/boek/tutorial doet dat meestal beter. Daar kom je wel nog aan.

Het keyword 'Is' dient enkel om te controleren als een referentie naar een object Nothing is (bv. PicBox1.Img Is Nothing ) of om types te controleren (bv. typeof(PicBox1) Is PictureBox)
D

Dumbino

Legacy Member
Svenno zei:
Hey,

Ik ben nogal een beginner in het programmeren, hierbij had ik ook een vraagje.

Geen onderstaande regels werkt.

Code: 
 If PicBox1.Image Is PicBox2.Image Then
            LbLCapha.Text = " - True"
        ElseIf PicBox1.Image.Clone Is PicBox2.Image.Clone Then
            LbLCapha.Text = " - True"
        ElseIf Object.Equals(PicBox1.Image, PicBox2.Image) Then
            LbLCapha.Text = " - True"
        ElseIf Object.Equals(PicBox1.Image.Clone, PicBox2.Image.Clone) Then
            LbLCapha.Text = " - True"
        End If

Misschien iemand dat er mij attend kan op maken?

Dank bij voorbaat.
Klik om te vergroten...

Wat is de bedoeling? 'k Denk dat je beter zo kan werken zoals hieronder volgt.

Code: 
 If PicBox1.Image = PicBox2.Image Then
            LbLCapha.Text = " - True"
        If PicBox1.Image.Clone Is PicBox2.Image.Clone Then
            LbLCapha.Text = " - True"
                If Object.Equals(PicBox1.Image, PicBox2.Image) Then
                      LbLCapha.Text = " - True"
                       If Object.Equals(PicBox1.Image.Clone, PicBox2.Image.Clone) Then
                             LbLCapha.Text = " - True"
                       End if
                End if
         End if
 End If
S

StruikGewas

Legacy Member
hmzz
gewone images kan je toch niet met elkaar vergelijken? moet je niet de bestandsnaam van de images met elkaar vergelijken?
u

u4ea

Legacy Member
heb denk ik een beetje een gelijkaardige vraag , ik heb 2 inputboxen (voor tekst),en wat ge daar invult moet een bepaald woord vorm(een naam in mijn geval) .
Als het die naam is ,komt er tekst 1
Als het die naam niet is komt er tekst 2
heb dees nog maar,ben absolute beginner ,heb VB nog maar 3 keer opgezet fzo:p
Code: 
        'declaratie
        Dim stringVoornaam As String 'voornaam
        Dim stringAchternaam As String 'achternaam
        Dim stringUitkomst As String 'uitkomst

        'invoer
        stringVoornaam = InputBox("Vul voornaam in:", "Voornaam")
        stringAchternaam = InputBox("Vul Achternaam in:", "Achternaam")

        'bewerking
G

GregoryCo

Legacy Member
Code: 
 Dim strVoornaam As String 'voornaam
        Dim strAchternaam As String 'achternaam

        'invoer
        strVoornaam = InputBox("Vul voornaam in:", "Voornaam")
        strAchternaam = InputBox("Vul Achternaam in:", "Achternaam")

        'bewerking
        If strVoornaam = ("Kevin") Then
            MessageBox.Show("Tekst1")
        Else
            MessageBox.Show("tekst2")
        End If

        If strAchternaam = ("Jan") Then
            MessageBox.Show("Tekst1")
        Else
            MessageBox.Show("tekst2")
        End If

het klopt wel niet helemaal met wat je bedoeld, maar het kan je mss op weg helpen

u zult waarschijnlijk met If Then Else moeten werken

Hopelijk is dit helpvol, ben zelf nog beginner :)
u

u4ea

Legacy Member
[B!'X!R']['@(V);10607461 zei:
Code: 
 Dim strVoornaam As String 'voornaam
        Dim strAchternaam As String 'achternaam

        'invoer
        strVoornaam = InputBox("Vul voornaam in:", "Voornaam")
        strAchternaam = InputBox("Vul Achternaam in:", "Achternaam")

        'bewerking
        If strVoornaam = ("Kevin") Then
            MessageBox.Show("Tekst1")
        Else
            MessageBox.Show("tekst2")
        End If

        If strAchternaam = ("Jan") Then
            MessageBox.Show("Tekst1")
        Else
            MessageBox.Show("tekst2")
        End If

het klopt wel niet helemaal met wat je bedoeld, maar het kan je mss op weg helpen

u zult waarschijnlijk met If Then Else moeten werken

Hopelijk is dit helpvol, ben zelf nog beginner :)
Klik om te vergroten...

mja ,heb daar nog ni lere mee werke dus:P
u

u4ea

Legacy Member
[B!'X!R']['@(V);10609809 zei:
Het is nochtans basis hoor :p
Best eens cursus ofzo raadplegen
Klik om te vergroten...
kbedoel ,wij hebbe da bij software ontwikkeling op school ,en dees is ons 3de les fzo maar dus:P
D

Duckwhisperer

Legacy Member
Dim strVoornaam, strNaam, strCompleet, strVerificatie as string

strVoornaam = inputbox ("Voornaam:", "Voornaam")
strNaam = inputbox ("Naam:", "Naam")

strCompleet = strVoornaam & " " & strNaam
strVerificatie = "Piet" & " " & "Janssens"

If strCompleet = strVerificatie then
Messagebox.show ("Correct!")
Else : Messagebox.show ("Incorrect!")

end if


Dat zou het moeten zijn (vermoed ik).
L

Lethall

Legacy Member
Else : Messagebox.show ("Incorrect!")

Mss gewoon een typo, maar voor hij het letterlijk overneemt,
de ":" moet er niet staan
dus gewoon

Else
Messagebox.show ("Incorrect!")
u

u4ea

Legacy Member
Lethall zei:
Else : Messagebox.show ("Incorrect!")

Mss gewoon een typo, maar voor hij het letterlijk overneemt,
de ":" moet er niet staan
dus gewoon

Else
Messagebox.show ("Incorrect!")
Klik om te vergroten...

kheb da de 19de nog afgemakt ,ge denkt tog ni dkdaar nunog bezig aan zou zitte zkr?:p
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan