主题：[求助]住院护士电子体温单设计图，请问能不能用foxtable实现。

 住院护士电子体温单程序设计设计草图已经完成，可惜不能再这里上传图片，有大神想要的话，留下邮箱地址我发给您。
以下是我对这个程序的功能设想：
1、能打印体温单，这个必须。最好实现续打。
2、体温、心率用鼠标点击完成绘图，一旦绘图完毕可以改但是不得擦除。
3、其他数据可以用一个弹出的窗口，键盘输入。数据输入完毕，可以更改，但不能删除。
4、日期、住院天数自动累加，向右无限绘制。或者可以绘制1年。
5、病人姓名、性别、住院号、入院日期可以手动输入，也能引用目前his系统数据。

------------------------------------------------------------------
请问我的这些要求能不能用foxtable实现？

你需要的功能，需要编写代码处理。

 

初学者，先看一下视频教程打打基础 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

 谢谢版主的回答。
一个下午的时间学会了，用代码如何在窗体的指定坐标绘制一个实心红色椭圆，现在问题来了，我想用鼠标单击的方式绘制，如何获取鼠标单击的位置，并在此位置绘制实心红色椭圆？
----------------------------------------------
 Private Sub Form1_Click() Handles Me.Click '鼠标单击
        Dim myBrush As New System.Drawing.SolidBrush(System.Drawing.Color.Blue)
        Dim formGraphics As System.Drawing.Graphics
        formGraphics = Me.CreateGraphics()
        formGraphics.FillEllipse(myBrush, New Rectangle(50, 50, 10, 10)) '1、2是位置，3、4调整圆点大小。
        myBrush.Dispose()
        formGraphics.Dispose()
    End Sub

参考：http://www.foxtable.com/webhelp/scr/0747.htm

 回复神速，谢了。

----------------------------------------------------------------------------------------
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        '获取窗体内鼠标位置，在文本控件显示数字。
        TextBox1.Text = e.X.ToString
        TextBox2.Text = e.Y.ToString
        '定义画笔及颜色
        Dim myBrush As New System.Drawing.SolidBrush(System.Drawing.Color.Red)
        '定义绘图控件
        Dim formGraphics As System.Drawing.Graphics
        formGraphics = Me.CreateGraphics()
        '椭圆位置及大小
        formGraphics.FillEllipse(myBrush, New Rectangle(e.X.ToString, e.Y.ToString, 10, 10))
        myBrush.Dispose()
        formGraphics.Dispose()
    End Sub
----------------------------------------------------------------------------------------
实现了，很有成就感。
下一步，在两次单击的点之间绘制红色的线，版主能不能给个思路。

使用表格，或者集合存储所有点击过的点，然后按顺序绘制。

谢谢版主，正在阅读GDI+部分。
我在网上看到有人用delphi做了一个半成品的体温单，就是用点击的方式绘制体温单，所以想自己DIY一个。

---------------------------------------------------------------
 Dim FirstPoint As Point
    Dim HaveFirstPoint As Boolean = False
    Sub Form1_MouseDownDrawing(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If HaveFirstPoint Then
            Dim g As Graphics = Me.CreateGraphics()
            Dim mypen As System.Drawing.Pen
            mypen = New System.Drawing.Pen(System.Drawing.Color.Red, 2) 'pen的颜色、宽度。
            g.DrawLine(mypen, FirstPoint, e.Location)
            HaveFirstPoint = False
        Else
            FirstPoint = e.Location
            HaveFirstPoint = True
        End If
    End Sub
---------------------------------------------------------------
实现了在两次单击点之间画一条线，很有成就感。

画线，参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=72591&skin=0