二維碼
企資網

掃一掃關注

當前位置: 首頁 » 企業資訊 » 科普 » 正文

一個綠篩軟件的編寫過程

放大字體  縮小字體 發布日期:2021-11-24 23:58:22    作者:馮思源    瀏覽次數:81
導讀

編寫一個報表處理軟件,想攜程“綠色”得:1.免安裝,軟件復制即可使用。2.不使用表格控件,尤其是第三方控件,以避免麻煩和想不到得毛病。那么就需要編程畫表格,并提供翻頁功能,因為屏幕空間有限,只能顯示10行,

編寫一個報表處理軟件,想攜程“綠色”得:

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

翻頁效果如下支持:

 
(文/馮思源)
免責聲明
本文僅代表作發布者:馮思源個人觀點,本站未對其內容進行核實,請讀者僅做參考,如若文中涉及有違公德、觸犯法律的內容,一經發現,立即刪除,需自行承擔相應責任。涉及到版權或其他問題,請及時聯系我們刪除處理郵件:weilaitui@qq.com。
 

Copyright ? 2016 - 2025 - 企資網 48903.COM All Rights Reserved 粵公網安備 44030702000589號

粵ICP備16078936號

微信

關注
微信

微信二維碼

WAP二維碼

客服

聯系
客服

聯系客服:

在線QQ: 303377504

客服電話: 020-82301567

E_mail郵箱: weilaitui@qq.com

微信公眾號: weishitui

客服001 客服002 客服003

工作時間:

周一至周五: 09:00 - 18:00

反饋

用戶
反饋

主站蜘蛛池模板: 日韩欧美一区二区三区视频| 88国产精品欧美一区二区三区| 青青草偷拍视频| 欧美办公室系列观看丝袜| 在线视频国产一区| 亚洲综合无码一区二区| 99色视频在线观看| 波多野结衣中文字幕一区二区三区 | 亚洲第一网站男人都懂| 99ri精品国产亚洲| 欧美精品手机在线| 国产精品成人无码久久久| 亚洲国产成人久久综合碰碰动漫3d| 4hu四虎永久免在线视| 欧美午夜在线视频| 国产清纯白嫩初高生在线观看| 久草资源在线观看| 蝌蚪网站免费观看| 成人爽a毛片在线视频网站| 十六以下岁女子毛片免费| www.nxgx| 欧美精品www| 国产特级毛片aaaaaa毛片| 久久精品一区二区国产| 色婷五月综激情亚洲综合| 少妇人妻偷人精品视蜜桃| 人人妻人人妻人人片色av| 91丨九色丨蝌蚪3p| 曰批免费视频试看天天视频下| 国产女人高潮抽搐喷水免费视频| 久久久久人妻一区二区三区vr| 网址在线观看你懂的| 天天做人人爱夜夜爽2020毛片| 亚洲欧美日韩国产vr在线观| poren黑人| 日本一道高清不卡免费| 免费鲁丝片一级观看| 5g影院天天爽爽| 日韩一卡2卡3卡4卡| 北岛玲亚洲一区在线观看| 91高清完整版在线观看|