Question

vb6 窗体不显示

如题，运行程序后窗体不显示，如果添加一个按钮，把功能写在按钮里面就会显示出来。
我的内容是：显示运行代码后显示进度条。
问题就是我运行代码不显示进度条，窗体也没显示，然后我把功能放进一个按钮里面，就得点击按钮之后才会显示窗体进度条。
求大大帮忙，急啊~~谢谢了~~
我把在 Private Sub Form_Load()里面的代码放到Private Sub Command1_Click()里面
运行代码，窗体就能显示，然后点击按钮，进度条就能走动，我想的是不需要这个按钮，一运行代码，进度条就能走动，求帮忙~~谢谢~~谢谢~~

Answer 1

强制显示窗体：form.show()
具体情况还是请上图，或贴出代码。

追问

Dim ExportFlowChatsFrm As frmExportFlowChats
Set ExportFlowChatsFrm = New frmExportFlowChats
ExportFlowChatsFrm.Show 1
这是类模块代码
Private Sub Form_Load()
init
end sub
Private Function Init() As Boolean
pb1.max=1
pb1.value=1
end function
这是窗体代码，正常情况该显示进度条的动态的啊，先声明一下进度条代码什么的都没问题，就是窗体没有显示出来

追答

Private Sub Form_Load()
me.show '加这句试试吧

init
End sub

Answer 2

按照你的描述，没法明白你的问题是什么？
“窗体不显示”是没显示窗体还是没显示你后面提到的进度条？
原先的代码写在哪个事件里？
请合理使用术语，像“把功能放进一个按钮里面”只能让人摸不着头脑

追问

窗体都没显示，进度条怎么显示啊，进度条在窗体里面啊
就像这样,窗体里面的pb1.max=5然后再分别赋值，代码都没问题，就是窗体不动态显示出来，就是不实时显示进度~~求解~~

追答

所以说要问题说清楚。你是意思是进度条没动态刷新状态，是吗？
添加一个Timer控件，设置Interval属性=1000（即每秒刷新一次），把代码放在其Timer事件里

追问

不是啊大哥~~
我把在 Private Sub Form_Load()里面的代码放到Private Sub Command1_Click()里面
运行代码，窗体就能显示，然后点击按钮，进度条就能走动，我想的是不需要这个按钮，一运行代码，进度条就能走动，求帮忙~~谢谢~~谢谢~~