【正文】 70 Visual Basic程序設(shè)計(jì)教程 Private Sub Command1_Click() Const PI = Dim Man, Alpha() As Single, Sum As Integer, i As Integer Dim A As Single, B As Single, N As Integer 39。a起始角， b扇形終止角 Man = Array(5, 7, 10, 8, 15) 39。包含各段人數(shù)的數(shù)組元素初始化 Sum = 0: N = UBound(Man) + 1 39。n為元素個(gè)數(shù) For i = 0 To N – 1: Sum = Sum + Man(i) : Next i 39。求總?cè)藬?shù) ReDim Alpha(N 1) 39。存放各人數(shù)段對(duì)應(yīng)扇形的弧度 A = 39。因負(fù) 0不能被表示，所以用 0的近似值 FillStyle = 0: = 0 39。窗體和圖片框都繪制實(shí)心圖形 For i = 0 To N 1 39。繪制扇形、圖片框中圖例及輸出人數(shù) Alpha(i) = 2 * PI * Man(i) / Sum 39。計(jì)算扇形對(duì)應(yīng)的弧度 FillColor = QBColor(2 * i): = QBColor(2 * i) B = A + Alpha(i) 39。計(jì)算終止角的弧度 If B 2 * PI Then B = B 2 * PI 39?；《炔荒艽笥?2π Circle (ScaleWidth / 2, ScaleHeight / 2), ScaleWidth / 4, , A, B 39。繪扇形 (0, i * / N) _ ( / 2, (i + 1) * / N), , B39。繪矩形 = i * / N 39。確定 Print位置 Man(i) 39。輸出人數(shù) A = B 39。將已輸出的終止角作下一次的起始角 Next i End Sub 71 Visual Basic程序設(shè)計(jì)教程 Private Sub Form_Load() ‘屬性初始化 = True: = True = ?各年齡段人員分布圖? = True = ( ) / 2 End Sub 其中 / n，表示 將圖片框的高度分成 n等分，每一份顯示 一個(gè)圖例。 72 Visual Basic程序設(shè)計(jì)教程 滾動(dòng)顯示大圖片 【例 1013】編程：在圖片框中滾動(dòng)顯示一張大的圖片或照片。運(yùn)行界面如圖。 分析： 由于圖片框本身沒有滾動(dòng)條，因此 要以圖片框?yàn)槿萜?，添加滾動(dòng)條。 為了能看清整個(gè)照片的大致圖像，可以使用一個(gè) Stretch為 True的影像框控件。 73 Visual Basic程序設(shè)計(jì)教程 不能將查看照片的圖片框的 AutoSize設(shè)為 True，但又希望獲得照片上的某一區(qū)域圖案，解決的方法是再增加一個(gè)圖片框 Picture2，讓它的AutoSize設(shè)為 True，同時(shí)又讓它的 Visible屬性設(shè)為 False，只把它作為源圖片。 當(dāng)滾動(dòng)條滾動(dòng)時(shí)，根據(jù)滾動(dòng)條的值，把Picture2中與 Picture1相同大小的一塊區(qū)域，通過 PaintPicture方法復(fù)制到 Picture1中。 74 Visual Basic程序設(shè)計(jì)教程 Private Sub MovePic() 39。按滾動(dòng)條的值復(fù)制圖片 , 1, 1, , _ , , , _ , End Sub 75 Visual Basic程序設(shè)計(jì)教程 Private Sub Command1_Click() ‘顯示按鈕 Dim s As String On Error GoTo A1 39。為防止輸入的文件標(biāo)識(shí)有錯(cuò)，設(shè)置出錯(cuò)處理 = False 39。萬一文件標(biāo)識(shí)有錯(cuò)，先設(shè)它們不可見 s = InputBox(請(qǐng)輸入要顯示的文件的標(biāo)識(shí) (d:\path\)) If Len(Trim(s)) = 0 Then GoTo A1 39。不允許出現(xiàn)空格文件名 = LoadPicture(s) 39。加載源圖片 = 39。設(shè)置滾動(dòng)條最大值 = Call Movepic: = True 39。設(shè)置 Picture1初始圖像，并可見 = 39。設(shè)置 Image1的顯示圖像 Exit Sub A1: MsgBox 文件名或路徑錯(cuò)誤 !, vbCritical, 出錯(cuò) 39。出錯(cuò)處理 End Sub 76 Visual Basic程序設(shè)計(jì)教程 Private Sub Command2_Click() 39。退出按鈕 End End Sub Private Sub Form_Load() 39。初始化圖片框和影像框?qū)傩? = True: = False = True: = False = True End Sub Private Sub VScroll1_Change() 39。垂直滾動(dòng)條改值時(shí)調(diào)用MovePic MovePic End Sub 77 Visual Basic程序設(shè)計(jì)教程 Private Sub HScroll1_Change() 39。水平滾動(dòng)條改值時(shí)調(diào)用MovePic MovePic End Sub 程序運(yùn)行時(shí)，只要輸入合法文件標(biāo)識(shí)，并確實(shí)是圖片文件，就會(huì)正常顯示，否則給出出錯(cuò)信息。 78 Visual Basic程序設(shè)計(jì)教程 靜夜四無鄰，荒居舊業(yè)貧。 , February 13, 2023 雨中黃葉樹，燈下白頭人。 20:53:4020:53:4020:532/13/2023 8:53:40 PM 1以我獨(dú)沈久，愧君相見頻。 :53:4020:53Feb2313Feb23 1故人江海別，幾度隔山川。 20:53:4020:53:4020:53Monday, February 13, 2023 1乍見翻疑夢(mèng)，相悲各問年。 :53:4020:53:40February 13, 2023 1他鄉(xiāng)生白發(fā)，舊國見青山。 2023年 2月 13日星期一 下午 8時(shí) 53分 40秒 20:53: 1比不了得就不比，得不到的就不要。 。 2023年 2月 下午 8時(shí) 53分 :53February 13, 2023 1行動(dòng)出成果，工作出財(cái)富。 2023年 2月 13日星期一 8時(shí) 53分 40秒 20:53:4013 February 2023 1做前，能夠環(huán)視四周；做時(shí)，你只能或者最好沿著以腳為起點(diǎn)的射線向前。 下午 8時(shí) 53分 40秒 下午 8時(shí) 53分 20:53: 沒有失敗，只有暫時(shí)停止成功！。 , February 13, 2023 很多事情努力了未必有結(jié)果，但是不努力卻什么改變也沒有。 20:53:4020:53:4020:532/13/2023 8:53:40 PM 1成功就是日復(fù)一日那一點(diǎn)點(diǎn)小小努力的積累。 :53:4020:53Feb2313Feb23 1世間成事，不求其絕對(duì)圓滿，留一份不足，可得無限完美。 20:53:4020:53:4020:53Monday, February 13, 2023 1不知香積寺，數(shù)里入云峰。 :53:4020:53:40February 13, 2023 1意志堅(jiān)強(qiáng)的人能把世界放在手中像泥塊一樣任意揉捏。 2023年 2月 13日星期一 下午 8時(shí) 53分 40秒 20:53: 1楚塞三湘接，荊門九派通。 。 2023年 2月 下午 8時(shí) 53分 :53February 13, 2023 1少年十五二十時(shí)，步行奪得胡馬騎。 2023年 2月 13日星期一 8時(shí) 53分 40秒 20:53:4013 February 2023 1空山新雨后，天氣晚來秋。 下午 8時(shí) 53分 40秒 下午 8時(shí) 53分 20:53: 楊柳散和風(fēng)，青山澹吾慮。 , February 13, 2023 閱讀一切好書如同和過去最杰出的人談話。 20:53:4020:53:4020:532/13/2023 8:53:40 PM 1越是沒有本領(lǐng)的就越加自命不凡。 :53:4020:53Feb2313Feb23 1越是無能的人，越喜歡挑剔別人的錯(cuò)兒。 20:53:4020:53:4020:53Monday, February 13, 2023 1知人者智，自知者明。勝人者有力，自勝者強(qiáng)。 :53:4020:53:40February 13, 2023 1意志堅(jiān)強(qiáng)的人能把世界放在手中像泥塊一樣任意揉捏。 2023年 2月 13日星期一 下午 8時(shí) 53分 40秒 20:53: 1最具挑戰(zhàn)性的挑戰(zhàn)莫過于提升自我。 2023年 2月 下午 8時(shí) 53分 :53February 13, 2023 1業(yè)余生活要有意義，不要越軌。 2023年 2月 13日星期一 8時(shí) 53分 40秒 20:53:4013 February 2023 1一個(gè)人即使已登上頂峰，也仍要自強(qiáng)不息。 下午 8時(shí) 53分 40秒 下午 8時(shí) 53分 20:53: MOMODA POWERPOINT Lorem ipsum dolor sit amet, consectetur adipiscing elit. Fusce id urna blandit, eleifend nulla ac, fringilla purus. Nulla iaculis tempor felis ut cursus. 感 謝 您 的 下 載 觀 看 專家告訴