Hej!

Jag vill kunna rita i en ruta i ett formulär under "runtime". Är det någon som vet hur det kan göras?
Det är bara enkla streck, bokstäver och siffror det gäller, alltså ingen tjusig grafik.
Finns det någon ActiveX kanske?

Hälsningar

Pontus

Hej
Testa detta enkla exempel

Line (500, 200)-(3000, 3000), QBColor(4), B 'Röd box i Twips

mvh
Sven

Hej Sven!

Nja, det var väl inte riktigt så jag tänkt mig.
Jag vill kunna skriva/rita "något" med hjälp av musen (helst penna, men det har jag ingen) i en ruta (flera?) då programmet är igång.


Pontus

Då är det bara att använda Svens exempel och läsa av muspekarkoordinaterna...

Finns det en tidigare punkt lagrad, dra ett streck från punkt1 till punkt2. Flytta över punkt2 till punkt1 och klicka igen...

avsluta figur med text dblklick... då töms både punkt1 och punkt2

//Emma

Hej Emma!

Hmm, jag ska kolla på det så får vi se.

Pontus

Hej igen
Oki jag missade att du skrev i Ruta.

Testa detta

Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
'rita med vänster musknapp
'välj vilken färg du vill RGB eller QBColor
If Button = 1 Then Line -(X, Y), QBColor(4)
End Sub

DS

Hej igen Pontus
Svar på ditt interna pelleMail.

Så här bör det se ut

Option Explicit
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.CurrentX = X: Me.CurrentY = Y
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Line -(X, Y), QBColor(4)
End Sub

DS