[VB6] Lijnen alleen in Frame?

[Verwijderd]

Ik ben voor school bezig met een opdracht Visual Basic 6: er moeten twee lijnen getekend worden, van elk van de lijnen moeten de formules worden berekend en gegeven in een textbox, en het bijbehorend snijpunt moet worden berekend en gegeven.
De opdracht heb ik af, lijnen en hele reutemeut wordt berekend enzo.

Nu wil ik het wat mooier maken, door links een Frame te maken, daar het assenstelsel in te plaatsen en daar ook de lijnen in te krijgen, en vervolgens rechts (naast/buiten) het frame de 8 textboxjes.

Ik krijg het alleen niet voor elkaar om die lijnen alleen en in het Frame te krijgen, en niet erbuiten.

Wie kan mij helpen? Wat moet ik veranderen of gebruiken om dit wel te krijgen?

Voor wie de files wil hebben om te kijken wat ik bedoel: verwijderd

[ Voor 6% gewijzigd door whoami op 02-01-2003 14:26 ]

[whoami]

Ik heb die link verwijderd.

We gaan hier niet de opdracht voor iemand anders verder gaan afwerken. Oké, jouw opdracht is af, en je wilt het enkel wat opschonen...
Maar het forum is er om elkaar te helpen, niet om elkaars code te gaan aanpassen. Je kunt uw probleem ook wel gewoon verwoorden en evt. met wat code (die je dan hier ook post) illustreren. (En niet de volledige code, enkel wat relevante stuff).

[muba]

Ja uhhh... beetje basiswerk hoor... je kan toch met windows omgaan...

offtopic:
/me pakt zijn boek Windows - Knippen, plakken en slepen Voor Dummies

Ohja. Selecteer 1 van de twee lijnen met de muis. Druk op control en houd die ingedrukt. Selecteer de andere lijn met de muis. Laat control los. Als je het goed gedaan hebt, heb je nou allebei de lijnen geselecteerd. Beweeg de muis naar het icoontje van een schaar in de werkbalk (knippen). Klik erop. Selecteer het frame. Beweeg de muis naar het icoontje van een soort klembord met een papiertje erop. Klik erop. Voila! Twee lijnen in een frame.

Bovenstaande werkt natuurlijk alleen als je de line controls gebruikt, want je hebt niet vermeld hoe je de lijnen tekend. Als je namelijk de grafische methods van het form gebruikt, moet je even het gedeelte van 'Form1.(method)' of 'Me.(method)' veranderen in 'Frame1.(method)' (of hoe je forms/frames ook mogen heten).

[whoami]

Wat bedoel je nu eigenlijk?
Krijg je die assen niet in je frame, of krijg je uw lijnen niet in die frame?

[Verwijderd]

whoami schreef op 02 January 2003 @ 15:25:
Wat bedoel je nu eigenlijk?
Krijg je die assen niet in je frame, of krijg je uw lijnen niet in die frame?

Wanneer je m'n link niet had verwijderd, hadden zowel jij als MUBA begrepen wat ik bedoelde. De link had ik er bij gezet, ter ondersteuning van mijn verhaaltje. Ik vroeg nergens of iemand mijn code zou willen wijzigen, mijn opdracht af wil maken, dat is ook absoluut niet mijn bedoeling van dit draadje. De link was puur duidelijk te maken wat ik nou precies bedoel. Maar goed, dan zonder link, ik hoop dat het me dan lukt.

Mijn lijnen zijn voorzien van een index, ik teken ze dus met een array.

Ik zal hier wat stukjes code plaatsen, in de hoop dat ze niet verwijderd worden...

Assenstelsel tekenen:

code:

Private Sub Form_Resize()
   Scale (-100, 100)-(100, -100)
   
   Lijn(1).Visible = True 'x-as
   Lijn(1).X1 = -100
   Lijn(1).Y1 = 0
   Lijn(1).X2 = 100
   Lijn(1).Y2 = 0
   
   Lijn(2).Visible = True 'Y-as
   Lijn(2).X1 = 0
   Lijn(2).Y1 = -100
   Lijn(2).X2 = 0
   Lijn(2).Y2 = 100
      
End Sub

Lijnen tekenen en snijpunten berekenen:

code:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     
     P = X
     Q = Y

End Sub

--------------------------------------------------------------------------------

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    R = X
    S = Y
    
    
    If Lijn(3).Visible = False Then
            
        Lijn(3).Visible = True
        Lijn(3).X1 = P
        Lijn(3).Y1 = Q
        Lijn(3).X2 = R
        Lijn(3).Y2 = S
               
            

    Else


        Lijn(4).Visible = True
        Lijn(4).X1 = P
        Lijn(4).Y1 = Q
        Lijn(4).X2 = R
        Lijn(4).Y2 = S
            
        
    End If

Al die getekende lijnen wil ik dus IN een frame krijgen, ze lopen er nu onderdoor en er naast, niet erin.

Wie weet wat ik moet veranderen om ze wel in het frame te krijgen, en NIET er buiten?

[Sponge]

Maar goed, wat je doet:

A) klik op je lijn object
knip het (ctrl-x)
C) selecteer Frame object
D) plak (ctrl-v)

klaar

offtopic:
Doe Bas Groot de groeten van me, of heb je Siger?

[muba]

Verwijderd schreef op 02 januari 2003 @ 16:09:
[...]

<cut>
Ik zal hier wat stukjes code plaatsen, in de hoop dat ze niet verwijderd worden...

Assenstelsel tekenen:

code:

Private Sub Form_Resize()
   Scale (-100, 100)-(100, -100)
   
   Lijn(1).Visible = True 'x-as
   Lijn(1).X1 = -100
   Lijn(1).Y1 = 0
   Lijn(1).X2 = 100
   Lijn(1).Y2 = 0
   
   Lijn(2).Visible = True 'Y-as
   Lijn(2).X1 = 0
   Lijn(2).Y1 = -100
   Lijn(2).X2 = 0
   Lijn(2).Y2 = 100
      
End Sub

Juustem, line controls dus... daar ging ik al vanuit en dan heb je aan zowel de post direct boven mij en mijn eerste post voldoende