精华内容
下载资源
问答
  • '添加一个UserControl1,加入以下代码: Option Explicit '将鼠标捕获设置到指定的窗口。在鼠标按钮按下的时候,这个窗口会为当前应用程序或整个系统接收所有鼠标输入. Private Declare Function SetCapture Lib ...

    在这里插入图片描述

    '添加一个UserControl1,加入以下代码:
    Option Explicit
    '将鼠标捕获设置到指定的窗口。在鼠标按钮按下的时候,这个窗口会为当前应用程序或整个系统接收所有鼠标输入.
    Private Declare Function SetCapture Lib “user32” (ByVal hwnd As Long) As Long
    '为当前的应用程序释放鼠标捕获.
    Private Declare Function ReleaseCapture Lib “user32” () As Long
    Dim But As Integer '鼠标按下与弹起事件。
    Public Event Click()

    Private Sub UserControl_Initialize()
    Call BosPic(0)
    End Sub

    Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 1 Then Exit Sub
    But = Button '获得鼠标事件
    Call BosPic(2)
    End Sub

    Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If X >= 0 And X <= UserControl.Width And Y >= 0 And Y <= UserControl.Height Then
    SetCapture UserControl.hwnd
    If But <> 1 Then Call BosPic(1)
    Else
    ReleaseCapture '这里就是离开啦
    But = 0
    Call BosPic(0)
    End If
    End Sub

    Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If X >= 0 And X <= UserControl.Width And Y >= 0 And Y <= UserControl.Height And But = 1 Then
    RaiseEvent Click '触发单击事件。
    End If
    But = 0 '将鼠标弹起【释放】。
    Call BosPic(0)
    End Sub

    Private Sub BosPic(Index As Integer)

    Select Case Index
    Case 0
    UserControl.BackColor = RGB(255, 0, 0)
    Case 1
    UserControl.BackColor = RGB(0, 255, 0)
    Case 2
    UserControl.BackColor = RGB(255, 0, 255)
    Case 3

    End Select
    End Sub

    展开全文
  • 它可以接受任意大小的gif图片,只是需要编写代码要多一些只能说个有千秋,自己选吧 (6KB) 23,xpress40.exe Pegasus出品的图像控件,其中包含了多个控件,从图像的捕捉到显示、打印应有尽有,共支持70多种图像...
  • VB.NET】实现动态托盘图标

    千次阅读 热门讨论 2016-02-21 16:00:04
    对于窗体主要控件编写 对于NotifyIcon的编写 对于Timer的编写 总结 前言有时候觉得也想给自己做的小软件添加一些小特色,但是总是不知道怎么实现,偶尔看到一些技术类的杂文,但也都是淡淡一描,没有真正的味道,...

    前言

    有时候觉得也想给自己做的小软件添加一些小特色,但是总是不知道怎么实现,偶尔看到一些技术类的杂文,但也都是淡淡一描,没有真正的味道,前几天在一本书上看到了一些程序优化的内容,感觉实现类似QQ动态托盘的小技巧挺实用的,总结一下分享给大家。

    NotifyIcon

    • 对于经常接触WINDOWS开发的人来说,NotifyIcon并不陌生,因为VS提供了系统托盘图标的显示控件,而这个控件的名字就叫做NotifyIcon

    • 但是对于从VB6.0刚刚转到.NET开发环境下的小伙伴们来说就得好好学习一下VS带给开发者的全新环境了。在VB6.0中不曾有过的一些控件或者需要借助第三方开发的控件,VS.NET已经将大部分都集成在环境当中了,这无疑对开发是一个莫大的帮助。

    好了,废话不多说,我们开始让我们程序显示在托盘中吧!

    代码实现

    • 程序的界面如下:
      这里写图片描述

    需要的控件

    • 窗体、按钮、Timer、NotifyIcon、Label各一个,基本上这些就足够了

    • 如果你想使用右键菜单的话,那么还可以加一个ContextMenuStrip

    定义类

    说明

    • 我们的大体的思路是这样的,首先,通过让程序运行,然后使托盘显示我们定义的图标

    • 其次,通过右键菜单来让托盘图标闪烁,并且实现类似QQ小企鹅似的动态效果

    • 同时,通过右键菜单调节托盘图标闪烁的快慢以及是否退出程序

    窗体的全局变量如下

        '定义两个图标'
        private MyIcon1 As Icon
        private MyIcon2 As Icon
        '定义切换标识'
        private MyFlag As Boolean
        '定义窗体是否在显示的标识'
        private MyWndShow As Boolean
    

    属性设置

    • 需要注意的是,对于FORM和NotifyIcon的属性设置都需要在ContextMenuStrip中指向ContextMenuStrip1

    方法类

    • 在窗体运行时导入两个图标文件(需要将下载好的图标文件放入该项目文件夹的BIN\DEBUG目录下,或者自行设定路径)并且用布尔值标记两个图标和窗体。

    对于窗体主要控件的编写

    • 代码如下:
    private Sub New()
    Mybase.New()
    InitializeComponent()
    
    '开始标记'
    MyFlag = True
    MyWndShow = True
    
    Try
        MyIcon1 = New Icon("1.ico")  '引号中为图标名称和路径'
        MyIcon2 = New Icon("2.ico")
    Catch ex As Exception
        MessageBox.Show("错误" + ex.Message, "动态系统托盘-错误")
    end Try
    end sub
    • 对于右键菜单的编辑如下(具体情况可以按照自己的喜好来编写,所以下面的代码只写出菜单的代号和具体的作用):
    Private Sub 动画图标开始ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 动画图标开始ToolStripMenuItem.Click
            '开始播放动画'
            Me.Timer1.Start()
            Me.增加ToolStripMenuItem.Enabled = True
    
    End Sub
    Private Sub 动画图标结束ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 动画图标结束ToolStripMenuItem.Click
        '托盘图标停止闪烁'
        Me.Timer1.Stop()
    
    End Sub
    
    Private Sub 退出程序ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 退出程序ToolStripMenuItem.Click
        '退出程序'
        End
    End Sub
    Private Sub 增加ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 增加ToolStripMenuItem.Click
        '增加闪烁速度'
        '这里所有的数值都可以根据自己的需要进行修改'
        If Me.Timer1.Interval > 20 Then
            Me.Timer1.Interval -= 10   
            If Me.Timer1.Interval <= 10 Then
                Me.Timer1.Interval = 10
                Exit Sub
            End If
        End If
    End Sub
    
    Private Sub 减慢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 减慢ToolStripMenuItem.Click
        '减慢速度'
        Me.Timer1.Interval += 10
    
    End Sub

    对于NotifyIcon的编写

    代码如下:

    '单击鼠标,让主界面隐藏'
    Private Sub NotifyIcon1_Click(sender As Object, e As MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
            If (My_ShowWnd = True) Then
                '隐藏主界面'
                Me.Visible = False
                My_ShowWnd = False
            Else
                Me.Visible = True
                My_ShowWnd = True
            End If
        End Sub
    
    '双击显示主界面'
    Private Sub NotifyIcon1_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIcon1.DoubleClick
        Me.Visible = True
        My_ShowWnd = True
        End Sub

    对于Timer的编写

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Not (My_Icon1 Is Nothing) And Not (My_Icon2 Is Nothing) Then
            If My_Flag = True Then
                NotifyIcon1.Icon = My_Icon2
                My_Flag = False
            Else
                NotifyIcon1.Icon = My_Icon1
                My_Flag = True
            End If
        End If
    End Sub

    总结

    好了,到这里我们的系统托盘图标就做好了,运行起来就去试试吧。

    展开全文
  • VB网络编程实例

    千次下载 热门讨论 2007-05-29 15:46:04
    ◆ 144.htm WebClass实现动态WEB编程之理论篇 ◆ 145.htm Winsocket网络编程谈 ◆ 146.htm Winsock编程框架 ◆ 147.htm Winsock错误代码一览表 ◆ 148.htm 程式自动呼叫拨号网络(RAS API) ...
  • 本书是学习VB编程的一本很好的教材,它侧重于用实例讲解如何编写一些高级的VB程序,如“用VB6.0实现动态增减控件”、“用VB制作即时动态按钮” 等,特别对高级编程人员进一步提高自己的能力有很大的好处,同时由于书...
  • ASP.NET精品课程+源代码

    千次下载 热门讨论 2009-01-05 20:15:51
    涵盖了代码规范、运行模型、服务控件、验证控件、数据绑定技术、ADO.NET技术、数据库技术、文件操作等内容。 所列出的内容均是ASP.NET开发网站等应用的必备知识。我们在实训课题引入的前提下,通过一系列完整的案例...
  • VB编程资源大全(源码 网络)

    热门讨论 2007-10-17 22:54:27
    emaillmapi.zip 使用 MAPI 控件发送邮件(7KB) 79,icqp.zip 从 VB 应用程序中发送 ICQ 信息(13KB) 80,getdomains.zip 获取局域网内所有的域和工作组(4KB) 81,getip.zip 获取本机及其名和Ip...
  • 556,delay1.zip 源码设计中的延时功能(1KB) 557,type_1.zip 趣味打字2.1(233KB) 558,test1.zip asp编写动态网页计数器(1KB) 559,hztosm.zip 汉字转声母完全源代码(90KB) 560,...
  • 556,delay1.zip 源码设计中的延时功能(1KB) 557,type_1.zip 趣味打字2.1(233KB) 558,test1.zip asp编写动态网页计数器(1KB) 559,hztosm.zip 汉字转声母完全源代码(90KB) 560,...
  • 556,delay1.zip 源码设计中的延时功能(1KB) 557,type_1.zip 趣味打字2.1(233KB) 558,test1.zip asp编写动态网页计数器(1KB) 559,hztosm.zip 汉字转声母完全源代码(90KB) 560,...
  • ASP.NET的网页代码模型及生命周期

    热门讨论 2009-07-28 14:22:11
    这些控件具有很强的扩展能力,在开发过程中无需自己手动编写。不仅如此,用户还能够创建自定义控件进行应用程序开发以扩展现有的服务器控件的功能。 4.1.1 创建ASP.NET网站 在ASP.NET中,可以创建ASP.NET网站和ASP...
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
  • 26.根据委托(delegate)的知识,请完成以下用户控件代码片段的填写: namespace test { public delegate void OnDBOperate(); public class UserControlBase : System.Windows.Forms.UserControl { public ...
  • 在学习了动态和静态两种界面布局之后,我们向大家介绍一个开源的android界面设计工具DroidDraw,可以像VB、Delphi、JBuilder一样实现拖拽控件构成界面布局。通过软件的直观的界面设计流程,生成xml文件,开发者...
       		在学习了动态和静态两种界面布局之后,我们向大家介绍一个开源的android界面设计工具DroidDraw,可以像VB、Delphi、JBuilder一样实现拖拽控件构成界面布局。通过软件的直观的界面设计流程,生成xml文件,开发者可以将更多的时间投入到控件响应的java代码编写中去。

    DroidDraw可以在其官方网站下载:
    Windows 版本 http://droiddraw.googlecode.com/files/droiddraw-r1b13.zip
    Linux 版本   http://droiddraw.googlecode.com/files/droiddraw-r1b13.tgz
    Mac版本      http://droiddraw.googlecode.com/files/droiddraw-r1b13.dmg

    运行后界面如下所示:
    1_8284537174a852624b564f.GIF

    2_15656173384a8526869f4c4.GIF

    具有程序开发经验的人看了这个界面,基本就知道怎么使用这个软件了,在这里,我简要地介绍一下使用界面工具的程序开发流程。

    一、界面设计
    将root layout设成 relative layout 在它上面放置一个LinearLayout。其他控件放置如图所示:
    3_20031510464a852bd910f43.GIF

    点击右边的Generate,生成xml代码如下:
    <?xml version="1.0" encoding="utf-8"?>
    <RelativeLayout
    android:id="@+id/widget28"
    android:layout_width="fill_parent"
    android:layout_height="fill_parent"
    xmlns:android="http://schemas.android.com/apk/res/android"
    >
    <LinearLayout
    android:id="@+id/widget29"
    android:layout_width="208px"
    android:layout_height="280px"
    android:orientation="vertical"
    android:layout_alignParentTop="true"
    android:layout_centerHorizontal="true"
    >
    <TextView
    android:id="@+id/widget31"
    android:layout_width="wrap_content"
    android:layout_height="wrap_content"
    android:text="Dollars"
    android:textStyle="bold"
    >
    </TextView>
    <EditText
    android:id="@+id/dollars"
    android:layout_width="100px"
    android:layout_height="wrap_content"
    android:textSize="18sp"
    >
    </EditText>
    <TextView
    android:id="@+id/widget33"
    android:layout_width="wrap_content"
    android:layout_height="wrap_content"
    android:text="Euros"
    android:textStyle="bold"
    >
    </TextView>
    <EditText
    android:id="@+id/euros"
    android:layout_width="100px"
    android:layout_height="wrap_content"
    android:textSize="18sp"
    >
    </EditText>
    <RadioGroup
    android:id="@+id/widget35"
    android:layout_width="wrap_content"
    android:layout_height="wrap_content"
    android:orientation="vertical"
    >
    <RadioButton
    android:id="@+id/dtoe"
    android:layout_width="wrap_content"
    android:layout_height="wrap_content"
    android:text="Dollars to Euros"
    >
    </RadioButton>
    <RadioButton
    android:id="@+id/etod"
    android:layout_width="wrap_content"
    android:layout_height="wrap_content"
    android:text="Euros to Dollars"
    >
    </RadioButton>
    </RadioGroup>
    <Button
    android:id="@+id/convert"
    android:layout_width="100px"
    android:layout_height="50px"
    android:text="Convert"
    android:textSize="18sp"
    >
    </Button>
    </LinearLayout>
    </RelativeLayout>

    二、生成界面
    将上述xml代码命名为main.xml,新建java文件,代码如下:
    code0.GIF

    运行后界面如下,该代码只有界面,并无实际响应内容。
    4.GIF

    三、代码编写

    按照以下内容编写代码,即可成功运行美元到欧元的转换程序:
    code.gif

    本文参考自:http://www.droiddraw.org/tutorial1.html
    展开全文
  • 提高ASP.NET性能的方法

    2008-09-14 09:57:00
    一、性能参数:1、吞吐量2、响应时间3、执行时间4、可伸缩性二、性能因素:1、...2、尽量减少使用服务器端控件3、关闭不必要的页面Session和控件的ViewState%@PageEnableSessionState=”false”%>4、禁用VB和JSP动态

    一、性能参数:
    1、吞吐量
    2、响应时间
    3、执行时间
    4、可伸缩性

    二、性能因素:
    1、ASPX执行环境
    2、编写代码逻辑


    三、提高性能的方法:
    1、避免不必要的操作.例如:在Page_Load中使用IsPostBack;
    2、尽量减少使用服务器端控件
    3、关闭不必要的页面Session和控件的ViewState<%@PageEnableSessionState=”false”%>
    4、禁用VB和JSP动态类型<%@PageLanguage=”VB”Strict=”true”%>
    5、使用存储过程
    6、使用DateReader代替DataSet
    7、关闭ASP.Net的Debug模式
    8、使用ASP.Net的OutputCache缓冲
    <%@OutputCacheDuration=60VaryByParam=”None”%>
    <%@OutputCacheDuration=60VaryByParam=”TextBox1,TextBox2”%>
    说明:Duration是设置Cache的过期时间;
    VarByParam是设置是否根据参数而变化,None时所有参数使用同一Cache,设置TextBox1时则根据TextBox1的不同值分别缓存;当有多个参数时则要组合缓存;
    9、不要使用Exception控制程序流程
    try

    {
    result=100/num;
    }
    catch(Exceptione)

    {
    result=0;
    }

    if(num!=0)
    result=100/num;
    else
    result=0;

    四、缓冲分类:
    1页面缓冲:根据VarByParam来进行不同的缓冲处理。
    2片段缓冲:在页面控件中使用页面缓冲,当一个页面里多次使用同一个页面控件时,需要根据VarByControl来进行不同的缓冲处理。
    3数据缓冲:Cache(范围是和Application一样,所有用户)
    Cache.Insert(“MyData”,Source,null,newCacheDependency(Server.MapPath(“authors.xml”)));
    Cache.Insert(“MyData”,Source,null,DateTime.Now.AddHours(1),TimeSpan.Zero);
    Cache.Insert(“MyData”,Source,null,DateTime.MaxValue,TimeSpan.FromMinutes(20));

    ="MAILTO:%@PAGE">="MAILTO:%@PAGE">
    展开全文
  • 内容包括在vb工程中调用activex控件和dll动态链接库等开发板卡数据采集与控制程序,在vb工程中利用mscomm控件、调用api函数等方法开发串口通信程序等。每种程序都提供了多个设计方法,每个设计都提供了线路图、详细...
  • 13.4.4 编写使用者应用程序的代码 531 13.5 使用数据协定 533 13.6 名称空间 535 13.6.1 建立主机应用程序 535 13.6.2 建立使用者应用程序 536 13.6.3 查看hellocustomerservice的wsdl和架构 538 13.7 ...
  • 13.4.4 编写使用者应用程序的代码 531 13.5 使用数据协定 533 13.6 名称空间 535 13.6.1 建立主机应用程序 535 13.6.2 建立使用者应用程序 536 13.6.3 查看hellocustomerservice的wsdl和架构 538 ...
  • 增加了自定义主题色彩 增加了对插件的支持 代码生成中新增了控件样式的参考 * 提供了多种选择窗口的方法 * 支持动态修改其他窗口的样式 * 支持生成Delphi的窗体可重用单元(汗一下那个某某人) * 更换了一些专业术语 ^...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    完整的代码,重载控件实现,非常适合初学者。 MyPhpServer(原创,有实现的主要代码) 如题。 microcai-ibus-t9-输入法源码 如题,主要源码就几个,详细见代码。 MzfHips主动防御 主要在MzfHipsDlg中,程序分析进程...
  • vc++ 应用源码包_1

    2012-09-15 14:22:12
    vc++动态链接库编程之DLL典型实例源代码下载 VC++仿Dreamweaver取色器源代码 VC++挂机锁屏系统源程序 VC++建立桌面或开始菜单快捷方式 VC++界面库编程 SkinMagic 2.21 动态库版本的使用和 Skin++动态库及静态库版本...
  • vc++ 应用源码包_4

    2012-09-15 14:38:35
    vc++动态链接库编程之DLL典型实例源代码下载 VC++仿Dreamweaver取色器源代码 VC++挂机锁屏系统源程序 VC++建立桌面或开始菜单快捷方式 VC++界面库编程 SkinMagic 2.21 动态库版本的使用和 Skin++动态库及静态库版本...
  • vc++ 应用源码包_3

    2012-09-15 14:33:15
    vc++动态链接库编程之DLL典型实例源代码下载 VC++仿Dreamweaver取色器源代码 VC++挂机锁屏系统源程序 VC++建立桌面或开始菜单快捷方式 VC++界面库编程 SkinMagic 2.21 动态库版本的使用和 Skin++动态库及静态库版本...
  • 实例192 用代码设置DataGrid控件的列标头 350 实例193 快速将DataGrid控件中的数据显示在 文本框中 351 实例194 在DataGrid控件中实现下拉列表框 353 实例195 使用代码格式化DataGrid控件中的 数据 354 实例...
  • 实例192 用代码设置DataGrid控件的列标头 350 实例193 快速将DataGrid控件中的数据显示在 文本框中 351 实例194 在DataGrid控件中实现下拉列表框 353 实例195 使用代码格式化DataGrid控件中的 数据 354 实例...
  • 程序代码生成可直接生成查找窗口和读取/设置窗口样式的代码以及窗口样式描述的参考,目前支持C++/Delphi/VB;屏幕颜色拾取获取屏幕任何一点的颜色并可将其储存起来,一组支持6个颜色,还兼有放大镜功能;进程管理...

空空如也

空空如也

1 2 3
收藏数 50
精华内容 20
关键字:

vb代码动态编写控件