vb 能不能让from窗体宽度像卷帘一样拉开

一个【透明窗体】，一个【时间控件】Timer1的Interval设置为1，一个【图片框】就可以完成了。

图片框里面放一张卷帘“轴”部分的图片，或者一个圆柱（因为圆柱的移动效果视觉上是滚动效果）就可以了。

窗体透明的代码比较复杂，就不贴出来了，其他的代码写好了。

Private Sub Timer1_Timer()

Form1.Width = Form1.Width + 10

If Form1.Width >= 5000 Then

Form1.Width = 5000

End If

Picture1.Left = Form1.Width - Picture1.Width

End Sub

xp系统上，vb6测试通过。

一般来讲实现导航栏指定是采用绝对定位的方式。示例代码如下：<pre t="code" l="html"><div class="nav">这里是导航所在的DIV容器。</div>CSS代码：

<pre t="code" l="css">.nav{

position:fixed/* 绝对定位，fixed是相对于浏览器窗口定位。 */

top:0/* 距离窗口顶部距离 */

left:0/* 距离窗口左边的距离 */

width:100%/* 宽度设置为100% */

height:40px/* 高度 */

z-index:99/* 层叠顺序，数值越大就越高。页面滚动的时候就不会被其他内容所遮挡。 */

}设置方式，原理及大致内容请看css代码注释。

---