vb滚动条怎么显示进度
vb滚动条如何显示进度
各位老大，这又有问题了，郁闷好几天了。vb自带的滚动条没有显示当前进度文字的功能，想实现此功能，试过用文本框，但背景色及滚动效果不好控制，用标签又无法设置透明及无法移到顶层（即不能在滚动条的上方），请教各位，有什么办法实现此功能吗，如果能用API函数也行呀。只知道用SendMessage函数可以设置前、背色，但不知如何设置显示文字，请赐教。谢谢！！！
------解决方案--------------------
给你一个用Picture做进度条的例子：
各位老大，这又有问题了，郁闷好几天了。vb自带的滚动条没有显示当前进度文字的功能，想实现此功能，试过用文本框，但背景色及滚动效果不好控制，用标签又无法设置透明及无法移到顶层（即不能在滚动条的上方），请教各位，有什么办法实现此功能吗，如果能用API函数也行呀。只知道用SendMessage函数可以设置前、背色，但不知如何设置显示文字，请赐教。谢谢！！！
------解决方案--------------------
给你一个用Picture做进度条的例子：
- VB code
Private Sub Form_Load() Label1.BackStyle = 0 Label1.BorderStyle = 0 Label1.ForeColor = vbWhite Label1.BackColor = Picture1.BackColor Timer1.Interval = 100 Picture1.DrawWidth = 10 End Sub Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Private Sub Timer1_Timer() Static i As Integer Picture1.AutoRedraw = True Picture1.Scale (0, 0)-(100, 10) Picture1.Line (i, 0)-(i, 10), vbBlue i = i + 1 If i > 99 Then Timer1.Enabled = False Label1.Caption = i & "%" End Sub
------解决方案--------------------