精华内容
下载资源
问答
  • c语言是一个自然而然的问题,然而在VB6,因为微软有意隐藏了指针,这个操作便变得困难重重。然而这个问题的研究让我对VB6的指针有了更清楚地认识,也彻底弄清楚了字符串(变长)在VB6的存储格式。Sub ...

        这在c语言中是一个自然而然的问题,然而在VB6中,因为微软有意隐藏了指针,这个操作便变得困难重重。然而这个问题的研究让我对VB6中的指针有了更清楚地认识,也彻底弄清楚了(变长)字符串在VB6中的存储格式。

    Option Explicit
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    
    Sub main()
        '构建一个整型数组
        Dim a(7) As Integer
        a(0) = 8    '为字符串数据之前的四个字节,存储字符串的长度
        a(1) = 0
        a(2) = 66   'B
        a(3) = 83   'S
        a(4) = 84   'T
        a(5) = 82   'R
        a(6) = 0    '字符串结束标志NULL UNICODE
        
        Dim s As String
        CopyMemory ByVal VarPtr(s), VarPtr(a(2)), 4
        Debug.Print s
    End Sub
    
    
    '执行结果为BSTR
    

          来一张图,让操作更直观一些。


        经过这个实验,让我感到在VB6中,虽然指针操作不像C中那么方便,但是操作原理和C还是一样的。

    展开全文
  • VB判断Integer为空问题 我从数据库里读出最大值 当此值不存在(也就是数据库里为空) 然后去判断我取出来的 reader.GetInt32(0)为空 有没有类似C#里的 NULL判断 _________________________________________________...
    VB.NET源码-156个实用实例哦……
    
    <script type="text/javascript"
    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
    </script>
    
    VB判断Integer为空问题
    我从数据库里读出最大值
    当此值不存在(也就是数据库里为空)
    然后去判断我取出来的 reader.GetInt32(0)为空
    有没有类似C#里的 NULL判断
    __________________________________________________________________________
    看看这个例子:
    Dim i As Integer
    i = Asc(vbNullChar) 这里是给integer变量赋Null值
    If Chr(i) = vbNullChar Then
    MsgBox 明白了吧 , vbOKOnly, 提示
    End If

    __________________________________________________________________________
    谢谢指教!!
    __________________________________________________________________________
    展开全文
  • Option Explicit Private Declare Sub CopyMemory Lib "kernel32"...'过程声明的变量,都建立栈上,先声明的变量高地址,后声明的变量低地址,而字符串的字节排前面的低地址...
    Option Explicit
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    
    '在过程中声明的变量,都建立在栈上,先声明的变量在高地址,后声明的变量在低地址,而字符串中的字节排在前面的在低地址,排在后面的在高地址,恰好与这相反
    Sub main()
        Dim a4 As Integer
        Dim a3 As Integer
        Dim a2 As Integer
        Dim a1 As Integer
        Dim a0 As Integer
        Dim x As Integer
        Dim y As Integer
        
        Dim s As String
        
        '生成字符串的长度
        y = 8
        x = 0
        '在数组中生成"BSTR"字符串,并以0结尾
        CopyMemory a0, 66, 2
        CopyMemory a1, 83, 2
        CopyMemory a2, 84, 2
        CopyMemory a3, 82, 2
        CopyMemory a4, 0, 2
        'a0 = 66    '上面五句也可以写成这样,但是缺少了指针操作的味道
        'a1 = 83
        'a2 = 84
        'a3 = 82
        'a4 = 0
        
        Dim ps As Long
        ps = VarPtr(s)  '获取字符串变量的地址
        Dim pi As Long
        pi = VarPtr(a0) '获取字符串存储位置的起始地址
        CopyMemory ByVal ps, pi, 4 '把存储字符串的开始地址存入字符串变量的地址中
        'CopyMemory ByVal VarPtr(s), VarPtr(a0), 4 '上面五句也可以合并成本句
        Debug.Print s
    
    End Sub

        源代码中的注释已经说明问题了。

        写完代码,再去看书,发现书上说的已经足够清楚。愚笨的只是自己,算是给“纸上得来终觉浅,绝知此事要躬行。”做注吧。

    展开全文
  • vb编程语言怎么通过获取一个变量的值去算它数组下标的integer值?获取下标integer值的代码怎么思路?
  • (VB.Net)Integer转 Byte数组

    千次阅读 2019-04-28 11:56:34
    1、Integer转单个字节 Public Function iByte(ByVal i As Integer) As Byte Dim b() As Byte = BitConverter.GetBytes(i) Return b(0) End Function ...'低字节前,高字节后 Public Function iBy...

    1、Integer转单个字节

    Public Function iByte(ByVal i As Integer) As Byte
            Dim b() As Byte = BitConverter.GetBytes(i)
            Return b(0)
    End Function

    2、Integer转双字节

    '低字节在前,高字节在后
    Public Function iByte2(ByVal i As Integer) As Byte()
            Dim btemp() As Byte = {0, 0}
            Dim b() As Byte = BitConverter.GetBytes(i)
            btemp(0) = b(1)
            btemp(1) = b(0)
            Return btemp
    End Function

    3、Integer转四字节

    '低字节在前,高字节在后
    Public Function iByte4(ByVal i As Integer) As Byte()
            Dim btemp() As Byte = {0, 0, 0, 0}
            Dim b() As Byte = BitConverter.GetBytes(i)
            btemp(0) = b(3)
            btemp(1) = b(2)
            btemp(2) = b(1)
            btemp(3) = b(0)
            Return btemp
    End Function

     

    展开全文
  • dim a as string=textbox1.text dim score as integer =cdbl(val(a.text)) '重点是这里 if score > 12 then ..... end if
  • 在VB中调用API函数

    2020-10-13 09:53:58
    在VB中调用API函数 API函数大多windows/system32/user32文件夹的kernel等动态链接库文件,现在列举一个需要调用API函数的程序(本例程序使用的工具是VB)来简单介绍一下如何程序调用API。 1、首先在VB中...
  • VB.NET Unknown reply on integer response ...最近项目加入了redis,不过遇到了很多redis的异常错误,主要原因在vb.net多线程Redis操作的时候出现的异常,如 最多的就是Unknown reply on integer response:
  • 请问VB6.0的基本类型系统的定义情况是怎么样的?为什么string可以转换为integer
  • 在VB中利用API进行串口通信

    千次阅读 2011-12-12 10:47:11
    在VB中利用API进行串口通信 一般来说,在VB中编写串口通讯程序,首先考虑到是使用MSComm控件,可是该控件不能设置超时,而且对许多内部的参数进行了隐藏,从而不能满足有些具体的工作。而使用API进行串口...
  • 有一个4字符的byte数组byte(){122,218,152,240} 有什么函数能转成int类型的?转成int后是10017402 java可以这么做,vb里有类似的函数吗?或该怎么实现?
  • 在VB6和VB.NET进行图象捕获VB6进行图象捕获 ----------------------------------------------------------------------------Author:lihonggen0Date:2002-6-19功能:抓屏----------------------------------
  • 实验名称:在VB中三个数的排序 桌面双击VB6.0打开程序 工具箱窗口找到command的图标,单击图标并窗体适当位置创建并属性窗口找到caption并把其后面改为“排序” 窗体双击command图标,并...
  • 在VB中实现URLEncode转换

    千次阅读 2005-08-26 14:03:00
    Public Function URLEncode(strInput As String) As String Dim strOutput As String Dim intAscii As Integer Dim i As Integer For i = 1 To Len(strInput) intAscii = As
  • 如何在VB中调用VC编写的DLL

    千次阅读 2012-10-30 10:57:11
    如何在VB中调用VC编写的DLL  一般来说,VB和VC共同编程有3种方式:一种是VC生成DLL,在VB中调用DLL;一种是VC生成ActiveX控件(.ocx),在VB中插入;还有一种是VC生成ActiveX Automation服务器,在VB中调用。...
  • VB.Net 下读写 Ini 文件。必要的 WinAPI声明如下: Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ...
  • 在VB6使用集合

    千次阅读 2012-03-05 23:15:14
    导入Microsoft Scripting Runtime库 Private Sub CommandButton1_Click() Dim d2 As Scripting.Dictionary ... Dim i As Integer Set d2 = New Scripting.Dictionary d2.Add 1, "11111
  • DDE在vb.net的应用

    千次阅读 2011-05-09 00:49:00
    很早的时候做过DDE方面的程序,那是2005年刚来深圳的时候,公司的一个产品需要excel动态显示数据,临时做了这么个东西,那个产品是vb.net做的,因此就现在vc下面测试后移到vb中应用,还真的成功了。...
  • 在VB中实现PickList功能

    千次阅读 2001-06-05 11:53:00
    在VB中实现PickList功能前言使用Delphi编程的人都知道,Delphi数据库控件DbGrid具有PickList功能,即编辑所在列时,只要用鼠标点击时,该列所在行便会出现组合框,列出所有内容供用户选择,这很方便数据录入。...
  • 快速将DataGrid控件的数据显示文本框,可以使用DataGrid控件的Columns集合的Text属性。具体实现代码如下: Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) Text11....
  • 在VB6和VB.net设置桌面墙纸

    千次阅读 2004-09-23 21:24:00
    在VB6设置墙纸Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As ...
  • 在VB.NET实现拖放操作

    千次阅读 2016-05-10 15:44:35
    在VB.NET实现拖放操作  绪论  Windows用户一般分为两类:一类习惯用键盘操作,一类习惯用鼠标操作。程序员们编程时一般会提供快捷键(命令或字母中加下划线)或快捷方式(用CTRL加字母的组合)来...
  • 在VB中,MSHFEXGRID不支持文本框,为了解决这个问题,一般的方法就是通过一个文本框的显示和隐藏,并获得表格单元的坐标,来实现向MSHFLEXGRID录入数据的,具体方法我记得本博有,就不说了,自己搜一下 今天要说的是...
  • 在VB 调用动态连接库

    千次阅读 2004-08-06 18:52:00
    (出处?好像是天极网)作为一种简单易用的Windows开发环境,Visual Basic从一推出...VB中高度的封装和模块化减轻了编程者的负担,同时也使开发人员失去了许多访问低层API函数和直接与Windows交互的机会。因此,相比而言,
  • 本文代码涉及到avicap32.dll的函数资料均来自因特网,已调试通过。... '下面两个api函数及常量的声明从正常执行的VB6程序拷贝过来,使用参数和返回值的类型原是long,执行报错,后改为integer Priva...
  • 介绍了如何在VB中调用C/C++写的dll以及如何传递数组参数
  • 在VB中调用CoCreateGUID创建GUID字符串

    千次阅读 2008-04-11 15:14:00
    Option Explicit Private Type GUIDType D1 As Long D2 As Integer D3 As Integer D4(8) As Byte End Type Private Dec
  • 在VB中使用水晶报表总结

    千次阅读 2007-07-20 11:06:00
    水晶报表(Crystal Report)是业内最专业、功能最强的报表系统,它除了...除了开发新程序外,工作我们常需要接触到很多较早的软件系统报表功能升级的需求,如果能结合水晶报表这一强大的工具,往往能事半功倍。 V

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 30,970
精华内容 12,388
关键字:

在vb中integer