VB.NET弹幕--- 利用API函数AnimateWindow创建Popup提示窗口,窗体的动画效果---章鱼哥

当我们打开电脑上网时，是不是会经常看到桌面的右下角弹出一个小的新闻热点窗体，我们可以实现吗？当然可以，这篇文章就来给您掩饰怎么样来用代码实现。看吧，正写着呢弹出了一个。

A，参数设置
hWnd：指定产生动画的窗口的句柄。
dwTime：指明动画持续的时间（以微秒计），完成一个动画的标准时间为200微秒。
dwFags：指定动画类型。这个参数可以是一个或多个下列标志的组合。标志描述：
AW_SLIDE：使用滑动类型。缺省则为滚动动画类型。当使用AW_CENTER标志时，这个标志就被忽略。
AW_ACTIVATE：激活窗口。在使用了AW_HIDE标志后不要使用这个标志。
AW_BLEND：使用淡出效果。只有当hWnd为顶层窗口的时候才可以使用此标志。
AW_HIDE：隐藏窗口，缺省则显示窗口。
AW_CENTER：若使用了AW_HIDE标志，则使窗口向内重叠；若未使用AW_HIDE标志，则使窗口向外扩展。
AW_HOR_POSITIVE：自左向右显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略。
AW_VER_POSITIVE：自顶向下显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略。
AW_VER_NEGATIVE：自下向上显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略。
AW_HOR_NEGATIVE：自右向左显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略
3，返回值
如果函数成功，返回值为非零；如果函数失败，返回值为零。在下列情况下函数将失败
B、窗体设计：
C.窗体很简单，一个Form窗口，一个PictureBox控件，一个Button按钮，一个Timer控件
实现功能：每隔三秒钟，提示窗口在桌面的右下角显示隐藏交替。可有多种显示方式，和隐藏方式。在代码中都有体现，读者可自行测试。
D、代码实现

'***************************************************************************
'作者：章鱼哥，QQ：3107073263 群：309816713
'如有想要源码或好的建议请联系我，大家一起进步
'群里正在建设，欢迎参加讨论
'****************************************************
Public Class Form_Main' 显示在屏幕的右下角Dim Rect As Rectangle = Screen.PrimaryScreen.WorkingArea '获取电脑桌面屏幕Dim X As Integer '提示窗口的Left值Dim Y As Integer '提示窗口的Top值'声明API函数AnimateWindow。该函数可以动态的操作窗体Declare Function AnimateWindow Lib "user32" Alias "AnimateWindow" (ByVal hwnd As IntPtr, ByVal dwTime As Int32, ByVal dwFlags As Int32) As Boolean'  窗体初始化Private Sub Form_Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadX = Rect.Width - Me.WidthY = Rect.Height - Me.HeightMe.SetBounds(X, Y, Me.Width, Me.Height) '定义窗体位置Timer1.Enabled = True '开启Timer控件'将窗体设置成无边框格式。这样是有道理的，不信你吧这段代码注释掉试试Me.FormBorderStyle = FormBorderStyle.NoneEnd Sub'显示Private Sub ShowForm()'三种方式都可以用，想用哪种就注释另外两种'AnimateWindow(Me.Handle, 2000, AW_VER_NEGATIVE Or AW_HOR_NEGATIVE) '右上飞出AnimateWindow(Me.Handle, 2000, AW_CENTER) '中间扩散'AnimateWindow(Me.Handle, 2000, AW_BLEND)’由浅变深Ishide = FalseEnd Sub'隐藏Private Sub HideForm()'AnimateWindow(Me.Handle, 2000, AW_HIDE Or AW_VER_POSITIVE)'由上向下飞出'AnimateWindow(Me.Handle, 2000, AW_HIDE Or AW_VER_POSITIVE Or AW_HOR_POSITIVE) '由左上角向右下飞出AnimateWindow(Me.Handle, 2000, AW_HIDE Or AW_BLEND) '窗体慢慢透明淡出Ishide = TrueEnd Sub'定时器，隔3秒交替显示或隐藏Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickIf Ishide ThenShowForm()ElseHideForm()End IfEnd Sub
End Class

'***************************************************************************
'作者：章鱼哥，QQ：3107073263 群：309816713
'如有想要源码或好的建议请联系我，大家一起进步
'群里正在建设，欢迎参加讨论
'****************************************************
Public Class Form_Main' 显示在屏幕的右下角Dim Rect As Rectangle = Screen.PrimaryScreen.WorkingArea '获取电脑桌面屏幕Dim X As Integer '提示窗口的Left值Dim Y As Integer '提示窗口的Top值'声明API函数AnimateWindow。该函数可以动态的操作窗体Declare Function AnimateWindow Lib "user32" Alias "AnimateWindow" (ByVal hwnd As IntPtr, ByVal dwTime As Int32, ByVal dwFlags As Int32) As Boolean'  窗体初始化Private Sub Form_Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadX = Rect.Width - Me.WidthY = Rect.Height - Me.HeightMe.SetBounds(X, Y, Me.Width, Me.Height) '定义窗体位置Timer1.Enabled = True '开启Timer控件'将窗体设置成无边框格式。这样是有道理的，不信你吧这段代码注释掉试试Me.FormBorderStyle = FormBorderStyle.NoneEnd Sub'显示Private Sub ShowForm()'三种方式都可以用，想用哪种就注释另外两种'AnimateWindow(Me.Handle, 2000, AW_VER_NEGATIVE Or AW_HOR_NEGATIVE) '右上飞出AnimateWindow(Me.Handle, 2000, AW_CENTER) '中间扩散'AnimateWindow(Me.Handle, 2000, AW_BLEND)’由浅变深Ishide = FalseEnd Sub'隐藏Private Sub HideForm()'AnimateWindow(Me.Handle, 2000, AW_HIDE Or AW_VER_POSITIVE)'由上向下飞出'AnimateWindow(Me.Handle, 2000, AW_HIDE Or AW_VER_POSITIVE Or AW_HOR_POSITIVE) '由左上角向右下飞出AnimateWindow(Me.Handle, 2000, AW_HIDE Or AW_BLEND) '窗体慢慢透明淡出Ishide = TrueEnd Sub'定时器，隔3秒交替显示或隐藏Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickIf Ishide ThenShowForm()ElseHideForm()End IfEnd Sub
End Class

VB.NET弹幕--- 利用API函数AnimateWindow创建Popup提示窗口,窗体的动画效果---章鱼哥相关推荐

利用API函数实现图像淡入淡出效果(VB)
利用API函数实现图像淡入淡出效果一般传统的实现两个PictureBox之间图像的淡入淡出效果都需要使用大量的API函数并进行复杂的调色板以及绘图设备(Device Context)的操作 ...
利用API函数实现图像淡入淡出效果 (转)
利用API函数实现图像淡入淡出效果 (转)[@more@]利用 api 函数实现图像淡入淡出效果一般传统的实现两个PictureBox之间图像的淡入淡出效果都需要使用大量的API函数并进行复杂的调色 ...
通过调用API函数实现的无边框窗体的拖拽，比判断坐标更快捷
在winform程序中,有时会选择边框设计会none,但是这样就不能拖拽窗体移动解决方案有二: 1,判断坐标控制拖拽 2.利用API函数, 下面介绍利用API函数,方便,快捷 #region 移动无 ...
android动画效果 translate,Android利用translate、scale、alpha、rotate实现动画效果
Android利用translate.scale.alpha.rotate实现动画效果在Android中可以用animation实现动画效果,Android中的animation由四种类型组成: a ...
CSS特效（二）：利用html和css制作毛玻璃特效和按钮动画效果
最终的效果图片: 毛玻璃效果:在style标签中,在form表单的before中利用filter的blur属性以及box-shadow的值设置,就可以做出form表单后面的毛玻璃效果背景,还要记得设置 ...
利用API函数修改PB自带toolbar的字体
改变PB自带工具栏的字体﹐不要自定义控件做工具栏. function long FN_ToolBarSetFont(long unknown,string fontname,long fontsize ...
利用canvas的rotate创建一个简易的风车动画
刚接触canvas的rotate属性,突发奇想能不能用它做个风车转动的效果,可是它旋转时却不是按照固定点旋转的,后来查阅了网上资料,网上说rotate旋转的不是图形,而是画布的坐标轴,于是我就想到将要 ...
利用swiper和css3实现手机滑屏与动画效果
很多人前端工程师在做一些手机滑屏类的落地窗页面,并且带有一堆动画时都是一脸懵逼,好复杂啊,js该怎么写?一堆问题,但是其实想实现这些功能非常简单.只需要大家灵活运用swiper和css3的animat ...
VB中API函数的调用
1.API函数 API的英文全称(Application Programming Interface),WIN32 API也就是MicrosoftWindows32位平台的应用程序编程接口 ...

VB.NET弹幕--- 利用API函数AnimateWindow创建Popup提示窗口,窗体的动画效果---章鱼哥

VB.NET弹幕--- 利用API函数AnimateWindow创建Popup提示窗口,窗体的动画效果---章鱼哥相关推荐

最新文章

热门文章