Dim MyArr() As String
Dim font As Font = New Font("Arial", 12, FontStyle.Regular)
If TextBox5.Text <> Nothing Then
MyArr = Split(TextBox5.Text, vbCrLf, -1, 1)
Else
MsgBox("Please open a file frist! ", MsgBoxStyle.OkOnly)
Exit Sub
End If
If MyArr.Length > 0 Then
For i As Integer = 0 To MyArr.Length - 2
Trim(MyArr(i))
If (MyArr(i).Length > 8) Then
widthOfprint = (ev.PageBounds.Width - MyArr(i).Length * font.Size) / 2
Else
widthOfprint = (ev.PageBounds.Width - MyArr(i).Length * font.Size * 2.3) / 2
End If
ev.Graphics.DrawString(MyArr(i), font, Brushes.Black, widthOfprint, sngTopMargin)
sngTopMargin = sngTopMargin + font.GetHeight(ev.Graphics) * 1.5
ev.HasMorePages = False
Next
widthOfprint = (ev.PageBounds.Width - MyArr(MyArr.Length - 1).Length * font.Size)
ev.Graphics.DrawString(MyArr(MyArr.Length - 1), font, Brushes.Black, widthOfprint, sngTopMargin)
sngTopMargin = sngTopMargin + font.GetHeight(ev.Graphics) * 1.5
ev.HasMorePages = False
End If
End Sub
相应调试界面如下:
图4.3 文件打印界面
5 上位机软件界面的设计
上位机软件界面是在VS2010编程环境下来设计实现的。VS2010是微软公司开发的面向对象、高度封装的跨平台开发平台,它提供了一个开发商业级别,多平台应用的软件开发环境。
主界面的设计:
启动软件VS2010新建一个项目,然后软件自动就生成一个Form面板,调整到适当的大小,在Form面板上添加了9个Label控件、一个TextBox5控件、一个PictureBox控件,还有一个Timer控件。根据下位机要实现功能和界面的要求来设计上位机管理软件的界面。
这是本软件的主界面,即开机运行辐射报警仪后选择进行各项功能使用的界面。在该项目中添加一个新的窗体并命名为Form1,添加好相应的控件。在该界面上可进行选择辐射值的测量以及相应参数的设置,以及将数据保存成文件、打开数据文件、打印等功能。
- 上一篇:双谱图像配准技术研究+powell算法
- 下一篇:基于DSP的雷达恒虚警检测技术研究
-
-
-
-
-
-
-
现代简约美式风格在室内家装中的运用
浅析中国古代宗法制度
中国传统元素在游戏角色...
江苏省某高中学生体质现状的调查研究
高警觉工作人群的元情绪...
上市公司股权结构对经营绩效的影响研究
g-C3N4光催化剂的制备和光催化性能研究
C++最短路径算法研究和程序设计
NFC协议物理层的软件实现+文献综述
巴金《激流三部曲》高觉新的悲剧命运