Hi Thomas,
Thanks for the information, but that too I have tried and did not worked.
The thing is that it does not use the inputs for the picturebox.
I solved it by adding picturebox in the form, renamed some lines and it works
now.
Like you can see I replaced outpic with NSCEPictureBox1 and that did the trick.
With kind regards,
Charles
Sub NSCEPictureBox1_mousedown(button, shift, x, y)
NSCEPictureBox1.drawpoint x,y
tmpxy=x # y
xp=x
yp=y
End Sub
Sub NSCEPictureBox1_mouseup(button, shift, x, y)
If dkline Then
dy=Abs(yp-y)
dx=Abs(xp-x)
If dxdy Then y=yp Else x=xp
End If
NSCEPictureBox1.drawline xp,yp,x,y
tmpxy=tmpxy # x # y
sezn(pocet)=tmpxy
tmpxy=
Rem MsgBox (sezn(pocet))
pocet=pocet+1
End Sub
Sub NSCEPictureBox1_mousemove(button, shift, x, y)
If Dfree Then
NSCEPictureBox1.drawline xp,yp,x,y
tmpxy=tmpxy # x # y
xp=x
yp=y
End If
End Sub
Sub f1h_click
form1g_hide
form1h_show
NSCEPictureBox1.fillcolor=H00FF
NSCEPictureBox1.BackColor=H00FF
NSCEPictureBox1.Appearance=2
NSCEPictureBox1.borderstyle=1
NSCEPictureBox1.scalemode=3
NSCEPictureBox1.drawwidth=2
NSCEPictureBox1.width=200
NSCEPictureBox1.height=100
Dfree=True
Dline=False
Dkline=False
End Sub
--- In nsbasic-ce@yahoogroups.com, Thomas Gruber computerhu...@... wrote:
Hi Charles,
the form_load routine must have the name of your form (e.g. form1h)
followed by _load.
So if your form is called form1, it must be named
Sub form1h_load
...
That way, it will run when your form is loaded (made visible), which happens
when you execute the statement
form1h_show
Kind regards
Thomas
Am 22.10.2010 um 17:14PM schrieb inpcle:
Hi,
I want to intergrade Qsketch in my form.
I tried to replace load_form with form1h_load
but that did not worked.
If I hide the last form that I am in it, then I see like the example in NS
basic the box and I can draw lines.
How can I make it work in my form when I load the form (form1h_show)?
With kind regards,
Charles
Sub load_form
Dfree=True
Dline=False
Dkline=False
Dim titlebar
titlebar=Array(About)
SetMenu titlebar,titlebar
AddObject picturebox,outpic,20,120,180,100
outpic.borderstyle=1
outpic.scalemode=3
outpic.drawwidth=2
outpic.width=200
outpic.height=100
End Sub
Sub outpic_mousedown(button, shift, x, y)
outpic.drawpoint x,y
tmpxy=x # y
xp=x
yp=y
End Sub
Sub outpic_mouseup(button, shift, x, y)
If dkline Then
dy=Abs(yp-y)
dx=Abs(xp-x)
If dxdy Then y=yp Else x=xp
End If
outpic.drawline xp,yp,x,y
tmpxy=tmpxy # x # y
sezn(pocet)=tmpxy
tmpxy=
Rem MsgBox (sezn(pocet))
pocet=pocet+1
End Sub
Sub outpic_mousemove(button, shift, x, y)
If Dfree Then
outpic.drawline xp,yp,x,y
tmpxy=tmpxy # x # y
xp=x
yp=y
End If
End Sub
Sub btnk_click
Bye
End Sub
Sub about_click
MsgBox(Quick sketch vbCrLf NS Basic/CE vbCrLf www.nsbasic.com
vbCrLf PDA technology vbCrLf www.pda.cz)
End Sub
--
You received this message because you are subscribed to the Google Groups
nsb-ce group.
To post to this group, send email to nsb...@googlegroups.com.
To unsubscribe from this group, send email to
nsb-ce+unsubscr...@googlegroups.com.
For more options, visit this group at
http://groups.google.com/group/nsb-ce?hl=en.