以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  画图工具  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85071)
--  作者：woshiabc
--  发布时间：2016/5/17 9:52:00
--  画图工具
 请问一下，foxtable有没有画图工具，比如说 我指定长方形的长和宽名字为 length和width ,然后我修改长度为10mm,宽度为5mm,foxtable自动把这个长方形描绘出来
--  作者：大红袍
--  发布时间：2016/5/17 9:54:00
--  

 看看gdi，要编写代码

 

http://www.foxtable.com/help/topics/1482.htm

 
--  作者：woshiabc
--  发布时间：2016/5/17 11:34:00
--  
 Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim length As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim width As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim c As Integer = length.value
Dim k As Integer = width.value
Dim g As Graphics = p.Graphics
Dim n As New Pen(Color.Black,3)
g.DrawRectangle(n,150,100,c,k)
p.Repaint()

每次点击的时候先清除原来的图片要怎么修改代码？
--  作者：大红袍
--  发布时间：2016/5/17 11:41:00
--  
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim length As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim width As WinForm.TextBox = e.Form.Controls("TextBox2")
p.Graphics.clear(Color.White)
Dim c As Integer = length.value
Dim k As Integer = width.value
Dim g As Graphics = p.Graphics
Dim n As New Pen(Color.Black,3)
g.DrawRectangle(n,150,100,c,k)
p.Repaint()
--  作者：woshiabc
--  发布时间：2016/5/17 11:50:00
--  
就是这样的，谢谢