VB6 line omdraaie

[eeyk]

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

 

[CoD_NL]

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

 

[eeyk]

Zo?

Split(Li1.Y1) = Text3.Text


Edit : dit werkt niet

 

[That Guy]

ik weet niet precies WAT je wilt... van WAT wil je die getallen omdraaien? een loop?

 

[eeyk]

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

 

[CoD_NL]

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.

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)

 

[That Guy]

@eeyk,

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

en WAAR invullen?

 

[etri]

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:

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:

 

[eeyk]

ik voeg bijlage toe met een image van de line die ik bedoel