如何做动态的标题栏？？？

Question

如何做动态的标题栏？？？

Answer 1

如果只是希望实现文字效果可以考虑使用Timer刷新Form的Caption

Answer 2

me.caption = "..."在timer中修改就行

Answer 3

如果对于图像的动态，可以通过图片框的图片变换。通过在timer中执行 loadpicture 做一个循环，即可以得到动态效果。

Answer 4

dim i
i=1
sub timer1()
  select case
     case 1
       form1.caption="1"
     case 2
       form1.caption="12"
     case 3
       form1.caption="123"
  end select
end sub

Answer 5

to: jianglifen(依静)
可是在标题栏如何插入图片呢？？我希望它能够在标题栏中能够左右移动的效果

Answer 6

dim i
i=1
sub timer1()
  select case
     case 1
       form1.caption="标题栏"
     case 2
       form1.caption="   标题栏"
     case 3
       form1.caption="       标题栏"
             .
             .
             .
     end select
end sub
不就可以移动吗？