7489
社区成员
- 全部
VB状态栏上面可以放置进度条吗？
我想在一个MDI窗体的状态拦上放置进度条。但是死活放不上去,鼠标一松开，就自己跑到窗体的最上面去了。我也参考了CSDN的以前的帖子，好像大家都说可以。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
cooler 2006-06-27
谢谢。我试试看
Random 2006-06-27
用我做的状态栏可以实现你的功能
也可以在MDI窗体底部放一个PictureBox，然后把状态栏和进度条都放PictureBox里。但要自己控制状态栏的大小。
也可以在MDI窗体底部放一个PictureBox，然后把状态栏和进度条都放PictureBox里。但要自己控制状态栏的大小。
risa_meng 2006-06-27
我没在状态栏上面做过哦，我也不知道，关注
wwh999 2006-06-27
关注!
半截烟头 2006-06-27
to hpygzhx520() :
你说的这个方法我试过了,非MID窗口可以,但MDI窗口不行,move不上去
你说的这个方法我试过了,非MID窗口可以,但MDI窗口不行,move不上去
羽毛之家 2006-06-27
可以的！
vansoft 2006-06-21
可以做到的。
hpygzhx520 2006-06-21
Private defProgBarHwnd As Long
Private Declare Function SetParent Lib "user32" _
(ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Private Function AttachProgBar(pb As ProgressBar, _
sb As StatusBar, _
nPanel As Long, _
pading As Long)
If defProgBarHwnd = 0 Then
'change the parent
defProgBarHwnd = SetParent(pb.hwnd, sb.hwnd)
With sb
'adjust statusbar. Doing it this way
'relieves the necessity of calculating
'the statusbar position relative to the
'top of the form. It happens so fast
'the change is not seen.
.Align = vbAlignTop
.Visible = False
'change, move, set size and re-show
'the progress bar in the new parent
With pb
.Visible = False
.Align = vbAlignNone
.Appearance = ccFlat
.BorderStyle = ccNone
.Width = sb.Panels(nPanel).Width
.Move (sb.Panels(nPanel).Left + pading), _
(sb.Top + pading), _
(sb.Panels(nPanel).Width - (pading * 2)), _
(sb.Height - (pading))
.Visible = True
.ZOrder 0
End With
'restore the statusbar to the
'bottom of the form and show
.Panels(nPanel).AutoSize = sbrNoAutoSize
.Align = vbAlignBottom
.Visible = True
End With
End If
End Function
Private Sub Command1_Click()
Dim pading As Long
'parent the progress bar in the status bar
pading = 40
AttachProgBar ProgressBar1, StatusBar1, 2, pading
End Sub
但编译后需要在不同分辨率下测试看是否正常，个人认为效果不是非常理想
cooler 2006-06-21
没有人回答吗？请教啊》
cooler 2006-05-05
我连PICTURE控件都放不到状态栏上面去，请问应该如何操作呢。
cooler 2006-05-05
我搜索了以前的帖子：
community.csdn.net/Expert/topic/4175/4175181.xml?temp=.6768305
community.csdn.net/Expert/topic/4175/4175181.xml?temp=.6768305
vb 任务栏上显示加载进度条.rar 与其它的进度条程序不同的是，本程序的进度条显示在Windows7的任务栏中，如演示截图所示，显示在任务栏托盘处左侧，并且在进度条上单击鼠标右键，会弹出右键菜单，目前的系统测试软件鲁大师的CPU温度检测功能，就会...
VC6.0中实现在状态栏中加入进度条 VC6.0中实现在状态栏中加入进度条 网上有一部分文章讲述了如何添加的方法，但是都是大概的说了一下方法，没有给出具体的实现。经过本人的研究参考了一些文章实现了这个程序，给大家一个参考
Vb 进度条控件，4种样式风格 四种进度条控件及VB的应用实例源码，压缩包里有4个不同动画形式的VB进度条控件源代码：1.格子式进度条，这也是Windows系统常见的一种风格；2.可以显示百分比的进度条，一般多用于程序安装或逻辑处理；3.动画式进度条...
VB6 API拷贝文件显示进度条.rar VB6.0使用API拷贝文件显示进度条，api拷贝文件并出现进度条，同时还有删除、替换文件的功能，具体实现的功能： 将当前目录中的FileTG.frm文件复制到当前目录下1.frm 将当前目录下的1.frm文件改名位2.frm 将...
