一个绿色软件的编写过程

编写一个 表处理软件，想携程“绿色”的：

1.免安装，软件复制即可使用。

2.不使用表格控件，尤其是第三方控件，以避免麻烦和想不到的毛病。

那么就需要编程画表格，并提供翻页功能，因为屏幕空间有限，只能显示10行，最多11行。

效果如上面图片所示。

设计过程：

一，打开软件开发工具，这里以VB为例，新增窗体一个。

二，编写代码画表格。

这里用label画表格，好处时即能输出文字 还能通过背景色和间距产生表格效果 ，经济实惠。

代码如下：

先声明几个变量

Dim startNum As Byte, i As Integer, pgNum As Byte

Const endNum As Byte = 55, ANum As Byte = 11

Const X0 As Integer = 2200, Y0 As Integer = 1400

Const Wv As Integer = 1000, Wv2 As Integer = 5980

Const Hv As Integer = 405, Hv2 As Integer = 385

然后写一个产生label控件数组的模块，设定间距，形成表格。

Private Sub myLabload(nCount As Byte)

‘ 功能：加载控件，画表格

Dim n As Byte

i = 0

For n = 1 To nCount

Load Lab(n) ‘产生控件数组

With Lab(n)

.Left = X0

.Top = Y0 + i * Hv

.Width = Wv

.Height = Hv2

.BackColor = vbWhite

.BackStyle = 1

.ZOrder 0

If n <= ANum Then .Visible = True

End With

Load LabC(n)

With LabC(n)

.Left = X0 + Wv + 30

.Top = Y0 + i * Hv

.Width = Wv2

.Height = Hv2

.Alignment = 0

.BackColor = vbWhite

.BackStyle = 1

.ForeColor = &H800000

.ZOrder 0

If n <= ANum Then .Visible = True

End With

i = i + 1

Next

LabBj.Move 2160, 960, Wv + Wv2 + 100, Hv * 12 + 60

LabBj.ZOrder 1

End Sub

接下来编写翻页模块（向后）

Private Sub pgUpShow()

‘ 功能：向后翻页

Dim n As Integer

If pgNum = 5 Then Exit Sub

i = 0

For n = startNum To startNum + ANum – 1

Lab(n).Visible = False

LabC(n).Visible = False

If n + ANum <= endNum Then

Lab(n + ANum).Move X0, Y0 + i * Hv, Wv, Hv2

Lab(n + ANum).Visible = True

Lab(n + ANum).ZOrder 0

LabC(n + ANum).Move X0 + Wv + 30, Y0 + i * Hv, Wv2, Hv2

LabC(n + ANum).Visible = True

LabC(n + ANum).ZOrder 0

End If

i = i + 1

Next

startNum = startNum + ANum

pgNum = pgNum + 1

‘Lab(0).Caption = pgNum

End Sub

再编写向前翻页模块

Private Sub pgDownShow()

‘ 功能：向前翻页

Dim n As Integer

If pgNum = 1 Then Exit Sub

i = 10

For n = startNum + ANum – 1 To startNum Step -1

If n < endNum Then

Lab(n).Visible = False

LabC(n).Visible = False

End If

Lab(n – ANum).Move X0, Y0 + i * Hv, Wv, Hv2

Lab(n – ANum).Visible = True

Lab(n – ANum).ZOrder 0

LabC(n – ANum).Move X0 + Wv + 30, Y0 + i * Hv, Wv2, Hv2

LabC(n – ANum).Visible = True

LabC(n – ANum).ZOrder 0

i = i – 1

Next

startNum = startNum – ANum

pgNum = pgNum – 1

End Sub

窗体启动时，在load事件里调用第一个模块， 即画表格模块。

Private Sub Form_Load()

‘ 窗体启动

Call myLabload(endNum)

startNum = 1

pgNum = 1

End Sub

翻页效果如下图片：