Erro No Codigo

[mestre fyoda]

Aqui ficou amarelo

 Private Sub desenhar_Click()

Essa Linha Ficou em Vermelho

Line(varx , vary)

Private Sub desenhar_Click()

Function putpixel(varx As Integer, vary As Integer)
Line(varx , vary)
End Function

Function Bresenham(Var As Integer, Var2 As Integer, Var3 As Integer, Var4 As Integer)

Dim dx As Integer
Dim dy As Integer
Dim dneg As Integer
Dim dpos As Integer
Dim d As Integer
Dim x As Integer
Dim y As Integer
Dim XEnd As Integer

dx = (Var - Var3)
dy = (Var2 - Var4)
d = 2 * dy - dx
dneg = 2 * dy
dpos = 2 * (dy - dx)

If (Var > Var3) Then
x = Var3
y = Var4
XEnd = Var

Else
x = Var
y = Var2
XEnd = Var3

End If

ymax = 479
Call putpixel(x, ymax - y)

While x < XEnd
x = x + x

If (d < 0) Then
d = d + dneg

Else
y = y + y
d = d + dpos

End If

Call putpixel(x, ymax - y)

End With
End Function

Call Bresenham(xp.Text, yp.Text, xs.Text, ys.Text)

End Function

[Graymalkin]

Você não pode colocar functions dentro de subs (ou simplesmente você esqueceu aquela primeira linha lá).

Abraços,

Graymalkin

[mestre fyoda]

deu erro

End With whithout With

End With

esse End Whith fecha o while . Ta certo isso ?

[Luiz Humberto]

Este End With, fecha o With exemplo.

With RSTmp
  MsgBox .RecordCount
End With

Ou seja é uma abreviação, em vez de ter que digitar o nome do componente "." a sua propriedade, utiliza o With(Tradução é Com).

[Graymalkin]

deu erro

End With whithout With

End With

esse End Whith fecha o while . Ta certo isso ?

O que fecha o While é o Wend.

Abraços,

Graymalkin

[mestre fyoda]

agorta deu erro de Syntax erro nessa linha

Line(varx , vary)

[Graymalkin]

agorta deu erro de Syntax erro nessa linha

Line(varx , vary)

Dê uma olhada neste post: http://scriptbrasil.com.br/forum/index.php...ST&f=23&t=52732

Abraços,

Graymalkin

[mestre fyoda]

me desculpe , tava pesquisando e sem querer respondi na pagina errado foi mal .

Tem alguma codigo para se desenhar , Triangulo , Retangulo e Quadrado .

[Graymalkin]

Tem alguma codigo para se desenhar , Triangulo , Retangulo e Quadrado .

Você pode fazer isso com várias linhas.

Abraços,

Graymalkin