VB6 line omdraaie

  • Onderwerp starter Onderwerp starter eeyk
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

eeyk

Terugkerende gebruiker
Lid geworden
28 mrt 2007
Berichten
1.232
Weet iemand hoe je line om draai


want nu is het zo

1 = Hoog
1000 = laag

hoe krijg ik dit

1000 = hoog
1 = laag

dus omgedraaid
 
Als de lijnen steeds aan jouw voorbeeld voldoen, dan zou je met split(strNaam, "=") kunnen werken.
 
Zo?

Split(Li1.Y1) = Text3.Text


Edit : dit werkt niet
 
Laatst bewerkt:
ik weet niet precies WAT je wilt... van WAT wil je die getallen omdraaien? een loop?
 
ik will


als je invult

1 dat de Line dan dan Schuin Naar beneden gaat

en als je intik

1000 dat de line dan Schuin naar Boven gaat
 
ik will

als je invult

1 dat de Line dan dan Schuin Naar beneden gaat

en als je intik

1000 dat de line dan Schuin naar Boven gaat

Je bent mijns inziens niet helemaal duidelijk. Maar zoals ik al eerder zei: als de regels telkens aan jouw voorbeeld voldoen, dan zou je met split() kunnen werken.

Code:
dim sarr1() as string, sarr2() as string
sarr1 = split(text1.text, "=") 'text1.text = "1 = hoog"
sarr2 = split(text2.text, "=") 'text2.text = "1000 = laag"

text1.text = sarr1(0) & " = " & sarr2(1) 
text2.text = sarr2(0) & " = " & sarr1(1)
 
@eeyk,

ja, maar WAT voor lijn? welke code gebruik je? welke ocx/controll? een 'line' op een picturebox?

en WAAR invullen?
 
Volgens mij bedoel je de schaal. Die loop van linksboven naar rechtsonder. Dus (x,y) = (0,0) is linksboven. En je wilt dat blijkbaar 'ondersteboven', dus dat (x,y) = (0,0) linksonder is.

Als je dat wilt veranderen moet je met een eigen schaal gaan werken. Dat kan bijvoorbeeld via de code:
Code:
Private Sub Form_Load()
    Dim fWidth As Single
    Dim fHeight As Single

    fWidth = Me.ScaleWidth
    fHeight = Me.ScaleHeight

    'Draai de as om (0,0) linksbeneden
    Me.Scale (0, fHeight) - (fWidth, 0)

    Me.Line (0, 0) - (1000, 1000)

End Sub

Succes! :thumb:
 
ik voeg bijlage toe met een image van de line die ik bedoel
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan