精华内容
下载资源
问答
  • VB中的简单动画代码设计

    千次阅读 2013-02-26 20:28:40
    最近接触VB百例时接触到了简单的动画设计,现在将程序相关的知识... 首先,打开Visual Basic ,新建窗体,在窗体中添加计时器控件、image1控件数组(个数根据自己的程序而定)、image2(用于动画的播放)    Option Expli

                   最近接触VB百例时接触到了简单的动画设计,现在将程序相关的知识整理在这里.(下面是一个例子--逃跑的小恐龙)

                  首先,打开Visual Basic ,新建窗体,在窗体中添加计时器控件、image1控件数组(个数根据自己的程序而定)、image2(用于动画的播放)

                 

                             Option Explicit

                              Private Sub Form_Load()
                                   img2.Left = 0                    '使image从最左边开始
                              End Sub

     

                           Private Sub Timer1_Timer()
                              Static x As Integer
                                If x = 7 Then x = 1                            ‘7为一个循环期  
                                  x = x + 1
                                  img2.Move img2.Left + 100
                              If img2.Left > Me.Width Then
                                 img2.Left = 0
                              End If
                          Select Case x                                               'select case 语句实现了多个图片连接起来的动画
                            Case 1
                               img2.Picture = img1(0).Picture
                           Case 2
                              img2.Picture = img1(1).Picture
                          Case 3
                               img2.Picture = img1(2).Picture
                          Case 4
                                img2.Picture = img1(3).Picture
                          Case 5
                                img2.Picture = img1(4).Picture
                         Case 6
                                img2.Picture = img1(5).Picture
                          End Select
                     End Sub

     

    展开全文
  • Visual C++ 编程资源大全(源码 控件

    千次下载 热门讨论 2007-10-19 19:28:33
    快下载一个吧(24KB)<END><br>22,ColorSel.zip 一个用于颜色选择的组合框的例子(41KB)<END><br>23,DriveBox.zip 一个用于选择驱动器的组合框,告诉你如何实现自画控件以及如何通过Windows Shell得到驱动器的...
  • vbio.zip 读写I/0口的VB代码(18KB) 96,shellex5.zip Sellexecute demo Project(7KB) 97,inicon32.zip 在VB中实现访问WINDOWS INI 文件的源代码(26KB) 98,fileio.zip 读写保存文件的源...
  • 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 ...
  • SkinFeature完全支持 VC,Delphi,C#,VB.Net,Visual Basic,C++ Bulider, PowerBuilder, Win32 SDK Supported WTL, ATL, 第三方厂商SDK, OUTLOOK 等等界面换肤。 支持各Windows平台 Windows 9X/NT/2000/2003/XP/Vista...
  • 可能大家说这个VB实现不了,那你跟我做,看看能不能实现....窗体上,2个LABEL控件,把LABEL2名字改为labKeyState即可(代码中只是利用了这个家伙的事件来触发一些操作)窗体代码如下:Private Sub Form_Activ

    可能大家说这个VB实现不了,那你跟我做,看看能不能实现.其实实现起来还是满简单的.........只是拦截是做不得的了..代码只写了核心部分,其他的判断转化等以注释的方式体现出来了,用到的朋友自己改改..

    窗体上,画2个LABEL控件,把LABEL2名字改为labKeyState即可(代码中只是利用了这个家伙的事件来触发一些操作)

    窗体代码如下:

    Private Sub Form_Activate()
    labKeyState.Caption = ""
    End Sub

    Private Sub Form_Load()
    '开始
    SetTimer Me.hwnd, 0, 1, AddressOf TimerProc
    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    '停止
        KillTimer Me.hwnd, 0
    End Sub

    Private Sub labKeyState_Change()
    Dim sTmp As String

    sTmp = labKeyState.Caption      '可以在这里获取扫描码对应的键值

    If sTmp <> "" Then
         '这里,执行你要的操作,我执行了显示按键虚拟码
        Label1.Caption = sTmp
    End If
    End Sub

     

    模块代码如下:


    Option Explicit

    Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
    Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
    Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

    Global Cnt As Long, Ret As Long
    '获取按下的是哪个键
    Function GetPressedKey(ByVal labView As Label) As Long
        For Cnt = 1 To 121  '112-121 为 F1-F10
            If GetAsyncKeyState(Cnt) <> 0 Then
                labView.Caption = ""
                GetPressedKey = Cnt
                '这里加入2个判断,即可实现正确的控制..
                '第一个,如果按键为1,2,4(鼠标左右中键)用鼠标双击间隔时间判断是否执行If Ret = Cnt Then Exit Function,并判断鼠标位置,所在控件句柄等等即可
                '第二个,如果为其他按键则大多来自键盘,那么判断键盘按键重复间隔,如果小于执行If Ret = Cnt Then Exit Function
                If Ret = Cnt Then Exit Function '如果按下的键重复,表示一次按键还没有结束,不重复进行修改
                    labView.Caption = Cnt
                Exit For
            End If
        Next Cnt
    End Function
    Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
        Ret = GetPressedKey(FrmMain!labKeyState)
    End Sub

    就这样了,你可以开始测试......看看是不是没有焦点时也可以获取到按键...这个代码呢,在某些游戏里"定义全局热键"的代码不好用的时候也可以用的....只要你按下了键,这个代码就能获取,除非按键被人HOOK掉了.

     

    今天对这篇提到的功能进行了深入的分析,发现了一些问题,由于我的疏忽,可能导致使用以上代码时发生一些错误或一些不便,现在澄清一下这些问题。

    1、该函数GetAsyncKeyState工作在系统级,即很难被HOOK掉,这个是我认识的模糊,导致的问题,可能影响不大。

    2、以上代码进行了反复的调用,有很多冗余的部分,建议将该功能写为类,在判断Cnt <> Ret 后引发事件: RaiseEvent KeyPass(Cnt) ,在类的开头,可以做如下声明:Public Event KeyPass(ByVal KeyState As Integer),此事件返回值将为按键码。

     

    展开全文
  • 实例060 利用控件数组设置控件状态 实例061 如何声明控件变量数组 3.4 指针地址获取 实例062 如何获取对象实例私有域的地址 实例063 获取字符串第一个字的地址 实例064 获取变量的地址 实例065 获取数组的...
  • 实例060 利用控件数组设置控件状态 实例061 如何声明控件变量数组 3.4 指针地址获取 实例062 如何获取对象实例私有域的地址 实例063 获取字符串第一个字的地址 实例064 获取变量的地址 实例065 获取数组的...
  • 丰富的VB例程使用户能够快速的掌握各种控件的使用方法。 运行于Windows7/NT4.0 等32位Windows平台,目前尚未支持Windows 8。有效的利用了32位Windows平台的多任务能力,可达到工控软件的实时要求。 全部控件均由...
  • vc++ 应用源码包_2

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

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

    2012-09-15 14:38:35
    完整的代码,重载控件实现,非常适合初学者。 MyPhpServer(原创,有实现的主要代码) microcai-ibus-t9-输入法源码 如题,主要源码就几个,详细见代码。 MzfHips主动防御 主要在MzfHipsDlg中,程序分析进程数据、...
  • vc++ 应用源码包_3

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

    2012-09-15 14:59:46
    完整的代码,重载控件实现,非常适合初学者。 MyPhpServer(原创,有实现的主要代码) microcai-ibus-t9-输入法源码 如题,主要源码就几个,详细见代码。 MzfHips主动防御 主要在MzfHipsDlg中,程序分析进程数据、...
  • vc++ 应用源码包_5

    2012-09-15 14:45:16
    完整的代码,重载控件实现,非常适合初学者。 MyPhpServer(原创,有实现的主要代码) microcai-ibus-t9-输入法源码 如题,主要源码就几个,详细见代码。 MzfHips主动防御 主要在MzfHipsDlg中,程序分析进程数据、...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    完整的代码,重载控件实现,非常适合初学者。 MyPhpServer(原创,有实现的主要代码) 如题。 microcai-ibus-t9-输入法源码 如题,主要源码就几个,详细见代码。 MzfHips主动防御 主要在MzfHipsDlg中,程序分析进程...
  • 实例192 用代码设置DataGrid控件的列标头 350 实例193 快速将DataGrid控件中的数据显示在 文本框中 351 实例194 在DataGrid控件中实现下拉列表框 353 实例195 使用代码格式化DataGrid控件中的 数据 354 实例...
  • 实例192 用代码设置DataGrid控件的列标头 350 实例193 快速将DataGrid控件中的数据显示在 文本框中 351 实例194 在DataGrid控件中实现下拉列表框 353 实例195 使用代码格式化DataGrid控件中的 数据 354 实例...
  • Excel终极伴侣1.287

    2008-10-24 16:41:04
    7、VB/VBA代码归纳与重写:对VB/VBA代码进行混淆,大大降低代码的可读性,是一种保护VB/VBA代码的很有效的方法。详细的注释说明和一目了然的名称将有助于设计阶段的调试和查错,但是代码一旦发布后,这些优点将会使...
  • Excel终极伴侣1.286

    2008-10-14 10:56:40
    7、VB/VBA代码归纳与重写:对VB/VBA代码进行混淆,大大降低代码的可读性,是一种保护VB/VBA代码的很有效的方法。详细的注释说明和一目了然的名称将有助于设计阶段的调试和查错,但是代码一旦发布后,这些优点将会使...
  • Excel终极伴侣1.291

    2009-03-19 09:01:10
    7、VB/VBA代码归纳与重写:对VB/VBA代码进行混淆,大大降低代码的可读性,是一种保护VB/VBA代码的很有效的方法。详细的注释说明和一目了然的名称将有助于设计阶段的调试和查错,但是代码一旦发布后,这些优点将会使...
  • Excel终极伴侣1.290

    2009-03-12 14:33:14
    7、VB/VBA代码归纳与重写:对VB/VBA代码进行混淆,大大降低代码的可读性,是一种保护VB/VBA代码的很有效的方法。详细的注释说明和一目了然的名称将有助于设计阶段的调试和查错,但是代码一旦发布后,这些优点将会使...
  • Excel终极伴侣1.288

    2008-11-26 16:01:36
    7、VB/VBA代码归纳与重写:对VB/VBA代码进行混淆,大大降低代码的可读性,是一种保护VB/VBA代码的很有效的方法。详细的注释说明和一目了然的名称将有助于设计阶段的调试和查错,但是代码一旦发布后,这些优点将会使...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
  • asp.net知识库

    2015-06-18 08:45:45
    根据基本表结构及其数据生成 INSERT ... 的 SQL 简便的MS SQL 数据库 表内容 脚本 生成器 将表数据生成SQL脚本的存储过程 直接从SQL语句问题贴子数据建表并生成建表语句的存储过程 从SQL中的一个表中导出HTML文件...
  • VerLanguageName 这个函数能根据16位语言代码获取一种语言的名称 VerQueryValue 这个函数用于从版本资源中获取信息 WriteFile 将数据写入一个文件 WriteFileEx 与WriteFile类似,只是它只能用于异步写操作,并...
  • 动画人物,如“大眼夹”,能够根据用户的操作步骤“智能化”地提出一些建议或帮助信息。 与Office助手相比,Agent功能更加丰富强大,表现在: Office助手沿用传统的不透明矩形窗口,窗口后面的背景被完全挡住;...

空空如也

空空如也

1 2
收藏数 32
精华内容 12
关键字:

vb根据代码画控件