# VB.net 写出progress bar的code

**URL:** <https://perak.org/t/vbnet-%E5%86%99%E5%87%BAprogress-bar%E7%9A%84code/107656>\
**Category:** 程序设计\
**Created:** [2008 年12 月 17 日 02:15 UTC](https://perak.org/t/vbnet-%E5%86%99%E5%87%BAprogress-bar%E7%9A%84code/107656 "2008-12-17T02:15:53Z")\
**Posts on this page:** 5\
**Page:** 1

<div class="post-metadata">

作者： ![小宇寶貝](https://perak.org/letter_avatar_proxy/v4/letter/%E5%B0%8F/8e8cbc/32.png) [@小宇寶貝](https://perak.org/u/%E5%B0%8F%E5%AE%87%E5%AF%B6%E8%B2%9D)\
发布日期： [2008 年12 月 17 日 02:15 UTC](https://perak.org/t/vbnet-%E5%86%99%E5%87%BAprogress-bar%E7%9A%84code/107656/1 "2008-12-17T02:15:53Z")

</div>

/" 只是给progress bar 的code  
Sub RenderProgressBar(ByVal intMaxValue As Integer, ByVal intProgress As Integer, ByVal intLeftPos As Integer, ByVal intTopPos As Integer)  
/"display result  
Dim strResult As String  
/"给多少percent progress 的counter  
Dim intPercent As Integer

/“如果已经到了max progress…就display出result  
If (intMaxValue \> 0) Then  
intPercent = Math.Round((intProgress / intMaxValue) \* 100, 0)  
If intPercent \>= 10 Then  
strResult = “| “ & intPercent & “% |” & StrDup(intPercent \ 10, “=”) & StrDup(10 - (intPercent \ 10), ” “) & “|”  
Else  
strResult = “| “ & intPercent & “% |” & StrDup(10, ” “) & “|”  
End If  
Else  
/" 如果不是max progress, display 出在prosess中的percentage  
intPercent = intProgress  
strResult = “| “ & FormatNumber(intPercent, 0) & ” |”  
End If  
Console.CursorVisible = False  
Console.SetCursorPosition(intLeftPos, intTopPos)  
Console.Write(strResult)  
Console.CursorVisible = True  
End Sub

---

<div class="post-metadata">

作者： ![天使vs恶魔](https://perak.org/user_avatar/perak.org/%E5%A4%A9%E4%BD%BFvs%E6%81%B6%E9%AD%94/32/86985_2.png) [@天使vs恶魔](https://perak.org/u/%E5%A4%A9%E4%BD%BFvs%E6%81%B6%E9%AD%94)\
发布日期： [2008 年12 月 17 日 02:31 UTC](https://perak.org/t/vbnet-%E5%86%99%E5%87%BAprogress-bar%E7%9A%84code/107656/2 "2008-12-17T02:31:46Z")

</div>

脚本？？？？？

---

<div class="post-metadata">

作者： ![juzhax](https://perak.org/user_avatar/perak.org/juzhax/32/2_2.png) [@juzhax](https://perak.org/u/juzhax)\
发布日期： [2008 年12 月 17 日 02:36 UTC](https://perak.org/t/vbnet-%E5%86%99%E5%87%BAprogress-bar%E7%9A%84code/107656/3 "2008-12-17T02:36:02Z")

</div>

看不明白。。。没有用过 VB

---

<div class="post-metadata">

作者： ![小宇寶貝](https://perak.org/letter_avatar_proxy/v4/letter/%E5%B0%8F/8e8cbc/32.png) [@小宇寶貝](https://perak.org/u/%E5%B0%8F%E5%AE%87%E5%AF%B6%E8%B2%9D)\
发布日期： [2008 年12 月 17 日 02:47 UTC](https://perak.org/t/vbnet-%E5%86%99%E5%87%BAprogress-bar%E7%9A%84code/107656/4 "2008-12-17T02:47:33Z")

</div>

> 引用第1楼天使vs恶魔于2008-12-17 10:31发表的 :  
> 脚本？？？？？

coding来的。。。分享一下而已

---

<div class="post-metadata">

作者： ![小宇寶貝](https://perak.org/letter_avatar_proxy/v4/letter/%E5%B0%8F/8e8cbc/32.png) [@小宇寶貝](https://perak.org/u/%E5%B0%8F%E5%AE%87%E5%AF%B6%E8%B2%9D)\
发布日期： [2008 年12 月 17 日 02:48 UTC](https://perak.org/t/vbnet-%E5%86%99%E5%87%BAprogress-bar%E7%9A%84code/107656/5 "2008-12-17T02:48:11Z")

</div>

> 引用第2楼juzhax于2008-12-17 10:36发表的 :  
> 看不明白。。。没有用过 VB

哦。。。怎么解释才比较让人明白呢？