VB5.0中基于桌面的屏幕技巧(3)

ww = Picture1.TextWidth("OK DESKTOP 演 示")
X = Rnd * (Picture1.ScaleWidth - ww)
Y = Rnd * (Picture1.ScaleHeight - hh)
Picture1.Line(X-2,Y-2)-(X ww 2,
Y hh 2),RGB(Rnd*256,Rnd*256,Rnd*256),BF
Picture1.Line(X,Y)-(X ww,Y hh),
RGB(Rnd*256,Rnd*256,Rnd*256),BF
Picture1.CurrentX = X
Picture1.CurrentY = Y
Picture1.Print "OK DESKTOP 演 示"
DoEvents
Next i
' 桌 面 变 暗
Form1.Picture1.ScaleMode = 3 ' 以 象 素 为 单 位
For j = 0 To Picture1.ScaleHeight / 2
Picture1.Line(0,2*j)-(Picture1.ScaleWidth,2*j),RGB(0,0,0)
Next j
End Sub
' 强 制 退 出 程 序
Private Sub Picture1_Click()
End
End Sub

上一篇： 如何在VB中直接显示无格式256灰度级图像
下一篇： VB图片框在报表设计中屏幕滚动的问题

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有