Kode til at tilføje fx.: 50 til X og gemme det i en Integer

kender ikke så meget til vb, men jeg tror ikke du kan ændre værdierne i en function (kan man ikke i c++ og delphi medmindre det er pointere).

så i dit eksemble vil
Xdef = 0
Ydef = 100

og din funktion værer
Picture1.Line (0, 100)-(25, 125)

håber det hjælper.

Nej, Xdef er stadig 0 og Ydef er stadig 100. Du tildeler kun værdier til Xdef og Ydef ET sted, nemlig

Xdef = 0
Ydef = 100

Og den linie du tegner går fra 0;0 til 25;25

Du bruger ingen steder Xdef eller Ydef til noget som helst - du sætter dem til hhv. 0 og 100, og så ikke mere. Så de variabler kan du lige så godt slette ;o) I din Picture1.Line bruger du nemlig nogle variabler X og Y du slet ikke har erklæret eller tildelt nogen værdier nogle steder - derfor har de værdien nul.

Her lidt kode der tegner 3 linier over hinanden

Dim X as integer, Y as integer, i as byte

For i = 1 to 3
  Picture1.Line (X, Y + i * 100)-(X, Y + i * 100)
Next i

De 3 linier går fra

(0,100) - (0,100)
(0,200) - (0,200)
(0,300) - (0,300)

/Martin

Sorry - en linei fra (0,100) - (0,100) er ret kort ;o) - mon jeg ikke skulle skrive

  Picture1.Line (X, Y + i * 100)-(X + 100 , Y + i * 100) og så få

(0,100) - (100,100)
(0,200) - (100,200)
(0,300) - (100,300)

/Martin

Dim xStart, yStart, xLængde, yLængde, xSlut, ySlut

xStart = 0
yStart = 100
xLængde = 25
yLængde = 25
xSlut = xStart + xLængde
ySlut = yStart + yLængde

Picture1.Line (xStart, yStart)-(xSlut, ySlut)

Du kan også bruge Step-kommandoen, og spare 2 variable. Step angiver den relative flytning fra startpunktet:

Picture1.Line(xStart, yStart)-Step(xLængde, yLængde)

Giver samme resultat som mit ovenstående svar.

Du kan også udelade startpunkt, ved først at angive en startplacering:

CurrentX = 0
CurrentY = 100

Picture1.Line -(xSlut, ySlut)  giver også samme resultat.

Eller:

CurrentX = 0
CurrentY = 100

Picture1.Line -Step(xLængde, yLængde)  giver også samme resultat.

Se spørgsmål:
http://www.eksperten.dk/spm/220559

svar det, tak !

Dit spørgsmål går på hvorfor din kode ikke virker. Det har jeg været så venlig at bruge tid på at forklare dig. Derudover har tjacob givet meget udførlige eksempler på hvordan man tegner linier

Og så napper du alle pointene selv????