锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net窗体淡入淡出 vb窗体borderstyle

IT技术intLoop

VB.NET Label旋转及淡入VB.net可以做 ， ，绘制的不是图片，还是控件 ， 这就有点难了 。
建议你还是先把文字画到一张图片上，然后再对图片旋转，淡入淡出都好做 。
我可以帮你，但暂时没有时间 。如果你会vb ， 那么你自己看Help Library学下其中的函数怎么用就行了 。
VB高手进,Setwindowlong函数Form_Load事件里面增加：
SetMouseIn Me.hwnd, 0, True, False
SetMouseIn Me.hwnd, 255, True, False
试试 。
在VB6.0中 ， 如何让一个窗体实现淡入淡出效果？'首先在窗体上添加一个Timer控件,设置好Timer控件的interval值(假设为3000)
'然后复制下面的语句:
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, _
ByVal dwTime As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
Me.BorderStyle = 1
End Sub
Private Sub Timer1_Timer()
'使窗口淡化退出,持续时间3秒
AnimateWindow Me.hwnd, 3000, H80000H10000
Unload Me
End Sub
用VB编程实现窗体背景由上至下的颜色逐渐变浅用VB编程实现窗体背景由上至下的颜色逐渐变浅
很多应用程序的安装界面都采用了标准的由蓝到黑渐变的背景,你可以用如下代码实现这种效果
Sub Dither(vForm As Form)
Dim intLoop As Integer
vForm.DrawStyle = vbInsideSolid
vForm.DrawMode = vbCopyPen
vForm.ScaleMode = vbPixels
vForm.DrawWidth = 2
vForm.ScaleHeight = 256
For intLoop = 0 To 255
vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 0, 255 - intLoop), B
Next intLoop
End Sub
Private Sub Form_Activate()
Dither Me
End Sub
将窗体的AutoRedraw属性设为True.
如果想得到由红到黑的渐变,只需如下改动:
vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(255 - intLoop, 0, 0), B
以下是由绿到黑的渐变效果
vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0,255 - intLoop, 0), B
【vb.net窗体淡入淡出 vb窗体borderstyle】关于vb.net窗体淡入淡出和vb窗体borderstyle的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：爱国者硬盘怎么接电脑，爱国者硬盘盒怎么安装

    下一篇：phpcms会员二次开发，php二次开发哪个cms