Case 9
For k = 0 To 9
Me.PaintPicture Picture1.Picture, 0, k * Me.Height / 10, Me.Width, 5 * pic_star * p_height / 10, 0, k * (Picture1.Height / 10), Picture1.Width, (Picture1.Height / 10) '水平百叶窗
Next
If pic_star = 21 Then
pic_star = 101
End If
End Select
Else
pic_star = 0
Timer1.Enabled = True
Me.PaintPicture Picture1.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
Timer2.Enabled = False
End If
End Sub
'这回做了9个,应该明白了吧,其实你第一回的5分也应该给选我,估计是你没明白用法
关于vb.net百叶窗效果和js百叶窗效果的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。
推荐阅读
- gis软件一直显示平移图表怎么办,gis图形不显示
- 怎么自己配电脑硬盘启动,怎么自己组装硬盘
- 新媒体如何接广告业务,新媒体广告业务怎么开展
- 关于影视拍摄开什么发票的信息
- mysql怎么导出表文件 mysql怎么导出数据库表里的数据
- 用python怎么做我的世界,mc python代码
- 复古饰品的拍摄技巧是什么,复古怎么拍摄
- 即时战略最好的游戏,即时战略经典游戏
- python求立方根函数 python求立方根的函数