feil med kode.

[-Logos-]

hei jeg er ny og driver å øver meg i VB.

jeg lurer på, hva er galt med denne koden:

 

Private Sub Picture1_MouseMove(Butten As Integer, Shift As Integer, X As Single, Y As Single)

Label1.Caption = X

Label2.Caption = Y

If Butten = 1 Then

picture1.Line -(X, Y)

End If

End Sub

 

ut av denne sammenhengen

 

Option Explicit

Dim start_x As Integer

Dim start_y As Integer

 

Private Sub picture1_MouseDown(Butten As Integer, Shift As Integer, X As Single, Y As Single)

picture1.DrawWidth = 5

Label3.Caption = Str(button)

If button = 1 Then

picture1.PSet (X, Y)

End If

start_x = X

start_y = Y

End Sub

Private Sub Picture1_MouseMove(Butten As Integer, Shift As Integer, X As Single, Y As Single)

Label1.Caption = X

Label2.Caption = Y

If Butten = 1 Then

picture1.Line -(X, Y)

End If

End Sub

Private Sub rydd_click()

picture1.Cls

End Sub

Endret 31. januar 2004 av mariunae

[Jonas]

Ikke noe? Hvis jeg forstår riktig så skal koden vise de kart numre tallene til bilde i label1 og label2? Her funker det ganske fint.

[aadnk]

Jeg ser problemet, variabel skrivefeil. Programmet skal tydligvis være et tegneprogram, så slik skal koden være:

 

Option Explicit

Dim start_x As Integer
Dim start_y As Integer

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

Picture1.DrawWidth = 5
Label3.Caption = Str(Button)

If Button = 1 Then
Picture1.PSet (X, Y)
End If

start_x = X
start_y = Y

End Sub

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

Label1.Caption = X
Label2.Caption = Y

If Button = 1 Then
Picture1.Line -(X, Y)
End If

End Sub

Private Sub rydd_click()

Picture1.Cls

End Sub

 

Lurer bare på hvordan du greide å skifte Button i deklarasjonen av SUB-en til Botten? Jaja, det kan skje alle.

[-Logos-]

fungerer fremdeles ikke her...

[aadnk]

Kan du forklare dette nærmere? Hva skal den presist gjøre? Er det mulig for deg å legge den ut på internett slik at jeg kan se nærmere på den?

[-Logos-]

er bare et enkelt tegneprogram med enkel svart strek du kan tegne med. er ingen big deal men lit kjeleig å ikke få til en så enkel ting. label 1 og label 2 viser koordinatene til muspekeren inne i tegneruta

[aarnas]

Har du prøvd å poste spørsmålet på allexperts.com? Det har reddet meg utallige ganger...

[-Logos-]

nei det har jeg ikke. kan prøve det!