首页 > 开发 > .Net > 正文

用VB.NET轻松制作特效窗体

2020-02-03 15:26:03
字体:
来源:转载
供稿:网友
  • 本文来源于网页设计爱好者web开发社区http://www.html.org.cn收集整理,欢迎访问。
  • 窗体是windows应用程序的基础。新一代的开发工具visual basic.net为设计制作窗体提供了更多简单而丰富的方法,无需再求助于复杂而易错的api函数,我们就可以轻松制作多种特效窗体:

    1 、轻松制作透明窗体

    vb.net可以轻松制作出任一透明度的窗体:我们只要在窗体的“属性”窗口中,将 opacity 属性设置为一个介于 0.0(完全透明)与 1.0(完全不透明)之间的值就可以了:

    dim frm as frmtrans = new frmtrans()

    frm.opacity = 0.5

    frm.showdialog()

    2、轻松制作始终位于最上层的窗体

    在vb6中,要制作一个始终位于最上层的窗体我们只能求助于令人头痛的api函数。然而在 .net 中,我们只要简单设置窗体的 topmost 属性就可实现同样效果了!例如:

    dim frm as frmtopmost = new frmtopmost()

    frm.topmost = true

    frm.show()

    3、轻松制作不可见的窗体

    如果要编写一个不让别人发现的隐藏程序,制作不可见的窗体就是必须实现的第一步。窗体的可见性通常由 visible 属性控制。但是,如果希望 windows 应用程序的主窗体在应用程序启动时不可见,您将会发现将它的 visible 属性设置为 false 的方法无效,窗体总会自己显示出来(这是因为,启动窗体的生存期决定了应用程序的生存期)。虽然如此,我们还是可以通过简单将应用程序的启动设置为一个模块,从而从窗体的生存期分出应用程序的生存期,轻松实现不可见的窗体。在下面这个例子中,窗体在特定的时间内自动隐藏:

    (1)在 visual basic 中,右击项目并选择“添加模块”以将模块添加到 windows 应用程序。

    (2)在已添加的模块(或类)内,创建可作为项目启动对象的 main 函数:

    sub main()

    dim f1 as new form1()

    f1.visible = false

    while hour(date.now) < 15 ‘如果当前时间早于15点,窗体自动隐藏

    application.doevents()

    end while

    f1.showdialog()

    end sub

    4、轻松编写托盘程序

    托盘程序作为一类特殊的窗体,其快捷图标显示在系统托盘中,窗体本身则隐藏不可见。在.net之前版本的vb中编写托盘程序是十分困难的,但是vb.net提供的新的notifyicon组件却使vb初学者也能轻松编写一个这样的程序:

    新建“windows应用程序”,设置主窗体opacity属性为0,formborderstyle属性为none,showintaskbar属性为false,这样窗体将在启动后隐藏。在窗体上放置一个notifyicon组件notifyicon1,一个contextmenu(弹出菜单)组件contextmenu1,并根据需要为contextmenu1添加菜单项。

    设置notifyicon1的icon属性,这个图标就是应用程序出现在系统托盘中的快捷图标;设置notifyicon1的text属性为“vb.net托盘程序”,这就是鼠标移动到托盘图标时弹出的文字说明;设置notifyicon1的contextmenu属性为contextmenu1,也就是右键单击快捷图标时的弹出菜单为contextmenu1。ok,按f5运行!

    几乎不用编写代码,一个托盘程序就这样轻松实现了。


    发表评论 共有条评论
    用户名: 密码:
    验证码: 匿名发表