Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > Overige

vb 2005 positie weergeven van een object

magerehein - 28/09/2006 19:42 (laatste wijziging 28/09/2006 19:44)

Lid

Hallo,

Ik volg sedert sit schooljaar en we meoten van vb2005 een object laten verplaatsen links, rechts, linkboven,... Maar we moeten ook in een textbox de positie weergeven van het plaatje en dit weet ik niet echt hoe ik dat moet doen. Zou wel wat hulp kunnen gebruiken. Hier alvast de code die ik geschreven heb.

php code - Bekijk de code zonder highlighting - Klap code in

Public Class Form1

    Private Sub btnBoven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBoven.Click
        NaarOmhoog() 'Om een afbeelding te verplaatsen kan je eigenschappen gebruiken namelijk TOP en LEFT
    End Sub

    Private Sub NaarOmhoog()
        PicSpace.Top = PicSpace.Top - 10


    End Sub


    Private Sub btnOnder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOnder.Click
        NaarOnder()
    End Sub

    Private Sub NaarOnder()
        PicSpace.Top = PicSpace.Top + 10


    End Sub

    Private Sub btnLinks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLinks.Click
        NaarLinks()
    End Sub

    Private Sub NaarLinks()
        PicSpace.Left = PicSpace.Left - 10



    End Sub


    Private Sub btnRechts_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRechts.Click
        NaarRechts()
    End Sub

    Private Sub NaarRechts()
        PicSpace.Left = PicSpace.Left + 10



    End Sub


    Private Sub btnLinksboven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLinksboven.Click
        NaarOmhoog()
        NaarLinks()
    End Sub

    Private Sub btnRechtsboven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRechtsboven.Click
        NaarOmhoog()
        NaarRechts()
    End Sub

    Private Sub btnLinksonder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLinksonder.Click
        NaarOnder()
        NaarLinks()
    End Sub

    Private Sub btnRechtsonder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRechtsonder.Click
        NaarOnder()
        NaarRechts()
    End Sub
End Class

Public Class Form1
 
    Private Sub btnBoven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBoven.Click
        NaarOmhoog() 'Om een afbeelding te verplaatsen kan je eigenschappen gebruiken namelijk TOP en LEFT
    End Sub
 
    Private Sub NaarOmhoog()
        PicSpace.Top = PicSpace.Top - 10
 
 
    End Sub
 
 
    Private Sub btnOnder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOnder.Click
        NaarOnder()
    End Sub
 
    Private Sub NaarOnder()
        PicSpace.Top = PicSpace.Top + 10
 
 
    End Sub
 
    Private Sub btnLinks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLinks.Click
        NaarLinks()
    End Sub
 
    Private Sub NaarLinks()
        PicSpace.Left = PicSpace.Left - 10
 
 
 
    End Sub
 
 
    Private Sub btnRechts_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRechts.Click
        NaarRechts()
    End Sub
 
    Private Sub NaarRechts()
        PicSpace.Left = PicSpace.Left + 10
 
 
 
    End Sub
 
 
    Private Sub btnLinksboven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLinksboven.Click
        NaarOmhoog()
        NaarLinks()
    End Sub
 
    Private Sub btnRechtsboven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRechtsboven.Click
        NaarOmhoog()
        NaarRechts()
    End Sub
 
    Private Sub btnLinksonder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLinksonder.Click
        NaarOnder()
        NaarLinks()
    End Sub
 
    Private Sub btnRechtsonder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRechtsonder.Click
        NaarOnder()
        NaarRechts()
    End Sub
End Class

De 2 posities die meoten worden weergegeven zijn de positie TOP en LEFT. de textbox van de positie left heb ik txtLeft genoemt en van de positie top heb ik txtTop genoemt.

Alvast bedankt voor de hulp.

Citaat:

Rensjuh edit:
Volgende keer code-tags gebruiken.
Alvast bedankt voor de hulp

6 antwoorden

Gesponsorde links

GTW - 28/09/2006 19:57 (laatste wijziging 28/09/2006 20:07)
PHP gevorderde		ik zal ff kijken in Visual studio wat het ook alweer was... heb zo een antwoord. php code - Bekijk de code zonder highlighting - Klap code in Me.txtTop.Location = New System.Drawing.Point(X, Y) Me.txtTop.Location = New System.Drawing.Point(X, Y) En zo voor je andere box ook. Dit moet dus in je design bestand. Of wil je het daarheen verplaatsen? dan moet je dit in een sub zetten. Zal dat nog ff uitproberen, daar ben ik zelf ook nog niet achter Edit: php code - Bekijk de code zonder highlighting - Klap code in name.Location = New System.Drawing.Point(X, Y) name.Location = New System.Drawing.Point(X, Y) Dit werkt

magerehein - 28/09/2006 20:30
Lid		Ik ga het tussen de private sub plaatsen en dan zien wat eht geeft. Ok de volgende keer zal ik code tags gebruiken . Alvast bedankt voor de reactie.

GTW - 28/09/2006 21:04 (laatste wijziging 28/09/2006 21:05)

PHP gevorderde

en om de locatie aan te geven zou je dit kunnen gebruiken:
op fouten voorbehouden XD doe dit uit mijn hoofd

php code - Bekijk de code zonder highlighting - Klap code in

                Dim locatieX as string 'De vars zetten
Dim locatieY as string 'De vars zetten2 ^^
locatieX = txtTop.location.X 'of str(txtTop.location.X)
locatieY = txtLeft.location.Y 'zelfde als hierboven met Y
locatieTextbox.text = "(" & locatieX & "," & locatieY & ")"
            
Dim locatieX as string 'De vars zetten
Dim locatieY as string 'De vars zetten2 ^^
locatieX = txtTop.location.X 'of str(txtTop.location.X)
locatieY = txtLeft.location.Y 'zelfde als hierboven met Y
locatieTextbox.text = "(" & locatieX & "," & locatieY & ")"
 

hopelijk is dit te begrijpen

magerehein - 28/09/2006 21:20
Lid		Ja ik begrijp het wat. Heb deze zomer ook een instapcursus programeren gevolgt omdat ik dit niet heb gekregen en daar hadden ze het ook over dim. Ga de code dan eens bestuderen dat ik ze goed begrijp. Bedankt voor de hulp.

crasher - 28/09/2006 21:36
Lid		jullie maken het wel moeilijk he het is php code - Bekijk de code zonder highlighting - Klap code in txtLeft.Text = picSpace.Left txtTop.Text = picSpace.Top txtLeft.Text = picSpace.Left txtTop.Text = picSpace.Top het is dit want ik krijg juist hetzelfde toevallig dus zo zet je dat in je textboxen GREETZ crasher

GTW - 29/09/2006 10:18
PHP gevorderde		Ik ben er ook nog niet zo heel lang mee bezig Was dus al blij dat ik hier kon helpen

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten