以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]住院护士电子体温单设计图，请问能不能用foxtable实现。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111523)
--  作者：老白加老黑
--  发布时间：2017/12/23 20:06:00
--  [求助]住院护士电子体温单设计图，请问能不能用foxtable实现。
 住院护士电子体温单程序设计设计草图已经完成，可惜不能再这里上传图片，有大神想要的话，留下邮箱地址我发给您。
以下是我对这个程序的功能设想：
1、能打印体温单，这个必须。最好实现续打。
2、体温、心率用鼠标点击完成绘图，一旦绘图完毕可以改但是不得擦除。
3、其他数据可以用一个弹出的窗口，键盘输入。数据输入完毕，可以更改，但不能删除。
4、日期、住院天数自动累加，向右无限绘制。或者可以绘制1年。
5、病人姓名、性别、住院号、入院日期可以手动输入，也能引用目前his系统数据。

------------------------------------------------------------------
请问我的这些要求能不能用foxtable实现？
--  作者：有点甜
--  发布时间：2017/12/24 15:24:00
--  

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

 

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

 
--  作者：老白加老黑
--  发布时间：2017/12/25 22:54:00
--  
 谢谢版主的回答。
一个下午的时间学会了，用代码如何在窗体的指定坐标绘制一个实心红色椭圆，现在问题来了，我想用鼠标单击的方式绘制，如何获取鼠标单击的位置，并在此位置绘制实心红色椭圆？
----------------------------------------------
 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
[此贴子已经被作者于2017/12/25 23:03:44编辑过]
--  作者：有点蓝
--  发布时间：2017/12/25 23:00:00
--  
参考：http://www.foxtable.com/webhelp/scr/0747.htm
--  作者：老白加老黑
--  发布时间：2017/12/25 23:06:00
--  
 回复神速，谢了。
--  作者：老白加老黑
--  发布时间：2017/12/26 19:55:00
--  
----------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------
实现了，很有成就感。
下一步，在两次单击的点之间绘制红色的线，版主能不能给个思路。
[此贴子已经被作者于2017/12/26 19:57:25编辑过]
--  作者：有点蓝
--  发布时间：2017/12/26 21:09:00
--  
使用表格，或者集合存储所有点击过的点，然后按顺序绘制。

建议还是按照传统的方式绘制体温单：就是先录入各个时间的温度、心跳等等值到表格，然后在根据录入的值绘制图形。

反过来，如果根据鼠标点击位置来获取坐标，这个判断控制更麻烦
--  作者：老白加老黑
--  发布时间：2017/12/26 21:46:00
--  
谢谢版主，正在阅读GDI+部分。
我在网上看到有人用delphi做了一个半成品的体温单，就是用点击的方式绘制体温单，所以想自己DIY一个。
[此贴子已经被作者于2017/12/26 21:57:39编辑过]
--  作者：老白加老黑
--  发布时间：2017/12/27 21:08:00
--  
---------------------------------------------------------------
 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
---------------------------------------------------------------
实现了在两次单击点之间画一条线，很有成就感。
--  作者：有点甜
--  发布时间：2017/12/27 22:13:00
--  

画线，参考

 

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