各位老大，这又有问题了，郁闷好几天了。vb自带的滚动条没有显示当前进度文字的功能，想实现此功能，试过用文本框，但背景色及滚动效果不好控制，用标签又无法设置透明及无法移到顶层（即不能在滚动条的上方），请教各位，有什么办法实现此功能吗，如果能用API函数也行呀。只知道用SendMessage函数可以设置前、背色，但不知如何设置显示文字，请赐教。谢谢！！！用Picture控件代替 ProgressBar 给你一个用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 & "%"
我在类中有一个函数 Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
