VB.NET中的常用方法

最新推荐文章于 2023-09-28 12:20:16 发布
最新推荐文章于 2023-09-28 12:20:16 发布
阅读量399 收藏 1
点赞数
原文链接：http://www.cnblogs.com/jiwangbujiu/p/5555850.html
版权

一、如何使用dll库：

　　dll库是动态链接库，一般是别人提供的，用来做二次开发，相当于别人把一些函数包装在dll中，已经生成可以链接文件，你只能调用，但是不能看到方法的实现。所以给你提供dll的人一般也会提供dll的库函数说明，说明中会告诉你里面的函数的返回值，参数等一些东西。

　　1、要使用dll库中的方法，首先把dll复制粘贴在你的.net项目中的\bin\Debug路径下面。

　　2、在项目中新建一个模块Module，然后在里面声明要用的函数。例如：我新建一个叫API的模块，然后声明函数，具体过程如下：

　　

Imports System.Text
Module API

    '驱动加载函数
    Public Declare Function RDR_LoadReaderDrivers Lib "rfidlib_reader.dll" (ByVal path As String) As Integer
    Public Declare Function RDR_GetLoadedReaderDriverCount Lib "rfidlib_reader.dll" () As Integer

    '设备连接、断开函数
    Public Declare Function RDR_Open Lib "rfidlib_reader.dll" (ByVal connstr As String, ByRef hr As UIntPtr) As Integer
    Public Declare Function RDR_Close Lib "rfidlib_reader.dll" (ByVal hr As UIntPtr) As Integer

    '获取错误代码
    Public Declare Function RDR_GetReaderLastReturnError Lib "rfidlib_reader.dll" (ByVal hr As UIntPtr) As Integer

    '
    Public Declare Function RDR_GetTagDataReportCount Lib "rfidlib_reader.dll" (ByVal hr As UIntPtr) As UInt32



    '以下是读取读卡器参数的函数
    Public Declare Function RDR_GetReaderInfor Lib "rfidlib_reader.dll" (ByVal hr As UIntPtr, ByVal Type As Byte, ByRef buffer As StringBuilder, ByRef nSize As UInt32) As Integer

    '以下是盘卡函数
    Public Declare Function RDR_CreateInvenParamSpecList Lib "rfidlib_reader.dll" () As UIntPtr
    Public Declare Function ISO15693_CreateInvenParam Lib "rfidlib_aip_iso15693.dll" (ByVal hInvenParamSpecList As UIntPtr, ByVal AntennaID As Byte, ByVal en_afi As Byte, ByVal afi As Byte, ByVal slot_type As Byte) As UIntPtr
    Public Declare Function RDR_TagInventory Lib "rfidlib_reader.dll" (ByVal hr As UIntPtr, ByVal AIType As Byte, ByVal AntennaCount As Byte, ByRef AntennaIDs As Byte, ByVal InvenParamSpecList As UIntPtr) As Integer 'AntennaIDs传入数组的第一个元素地址
    Public Declare Function RDR_GetTagDataReport Lib "rfidlib_reader.dll" (ByVal hr As UIntPtr, ByVal Seekpos As Byte) As UIntPtr
    Public Declare Function ISO15693_ParseTagDataReport Lib "rfidlib_aip_iso15693.dll" (ByVal hTagReport As UIntPtr, ByRef aip_id As UInt32, ByRef tag_id As UInt32, ByRef ant_id As UInt32, ByRef dsfid As Byte, ByRef uid As Byte) As Integer


    '以下是销毁盘点参数列表
    Public Declare Function DNODE_Destroy Lib "rfidlib_reader.dll" (ByVal dn As UIntPtr) As Integer

    '盘点卡的两个宏定义
    Public Const RFID_SEEK_FIRST = 1
    Public Const RFID_SEEK_NEXT = 2

    '连接卡
    Public Declare Function ISO15693_Connect Lib "rfidlib_aip_iso15693.dll" (ByVal hr As UIntPtr, ByVal tagType As UInt32, ByVal address_mode As Byte, ByVal uid() As Byte, ByRef ht As UIntPtr) As Integer

    '读卡
    Public Declare Function ISO15693_ReadMultiBlocks Lib "rfidlib_aip_iso15693.dll" (ByVal hr As UIntPtr, ByVal ht As UIntPtr, ByVal readSecSta As Byte, ByVal blkAddr As UInt32, ByVal numOfBlksToRead As UInt32, ByRef numOfBlksRead As UInt32, ByRef bufBlocks As Byte, ByVal nSize As UInt32, ByRef bytesBlkDatRead As UInt32) As Integer

    '写卡
    Public Declare Function ISO15693_WriteMultipleBlocks Lib "rfidlib_aip_iso15693.dll" (ByVal hr As UIntPtr, ByVal ht As UIntPtr, ByVal blkAddr As UInt32, ByVal numOfBlks As UInt32, ByVal newBlksData() As Byte, ByVal bytesToWrite As UInt32) As Integer









    Public Declare Function LSG_CmdGetReports Lib "rfidlib_LSGate.dll" (ByVal hr As Long, ByVal Flag As Byte, ByVal recordsToGet As Byte) As Integer
    Public Declare Function LSG_ParseSCEventData Lib "rfidlib_LSGate.dll" (ByVal hr As Long, ByVal slData As String, ByVal nSize As Long, ByRef dir As Byte, ByRef m_time As Byte) As Integer
    Public Declare Function LSG_CmdGetCurrentFlowOfPeople Lib "rfidlib_LSGate.dll" (ByVal hr As Long, ByRef inFlow As Long, ByRef outFlow As Long) As Integer
    Public Declare Function LSG_CmdResetFlowOfPeople Lib "rfidlib_LSGate.dll" (ByVal hr As Long, ByVal mFlg As Byte) As Integer
    Public Declare Function LSG_CmdReverseDirection Lib "rfidlib_LSGate.dll" (ByVal hr As Long) As Integer
    Public Declare Function LSG_CmdGetSystemTime Lib "rfidlib_LSGate.dll" (ByVal hr As Long, ByRef year As Long, ByRef month As Byte, ByRef day As Byte, ByRef hour As Byte, ByRef minute As Byte, ByRef second As Byte) As Integer
    Public Declare Function LSG_CmdSetSystemTime Lib "rfidlib_LSGate.dll" (ByVal hr As Long, ByVal year As Long, ByVal month As Byte, ByVal day As Byte, ByVal hour As Byte, ByVal minute As Byte, ByVal second As Byte) As Integer


    Public Declare Function MultiByteToWideChar Lib "kernel32 " (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
    Public Declare Function WideCharToMultiByte Lib "kernel32 " (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
    Public Const CP_ACP = 0 ' default to ANSI code page
    Public Const CP_UTF8 = 65001 ' default to UTF-8 code page

End Module

 

声明完的函数我就可以在项目中调用了，例如：

　　　　 '设备连接串
        Dim connStr = "RDType=RD201;CommType=COM;COMName=" + CmboxcommCanBeUse.SelectedItem + ";BaudRate=38400;Frame=8E1;BusAddr=255"
        Dim connectOK As Integer = 99
        connectOK = RDR_Open(connStr, hr)

以上代码中的RDR_Open（）函数就是在API模块中声明的，函数所在的位置是rfidlib_reader.dll中。

 

二、常用的一些方法：

Now()     获取当前日期时间,

Format() 格式化日期时间函数：

 Format(Now(), "yyyy-MM-dd-hh-mm-ss")

 

DataGridView用法：

GoodDataGridView.Rows.Add()为添加一行

GoodDataGridView.Rows.RemoveAt(1) 为删除第一行

GoodDataGridView(0, 0).Value = "序号"   为给某列某行的单元格设置值。其中（0,0）中前面的数字代表第几列，后面的数字代表第几行。
 　　　　GoodDataGridView.Rows.Add()
        GoodDataGridView(0, 0).Value = "序号"
        GoodDataGridView(1, 0).Value = "商品编码"
        GoodDataGridView(2, 0).Value = "商品名称"
        GoodDataGridView(3, 0).Value = "商品价格"

 

定义数组并初始化：

 　　　  '定义一组商品的属性的二进制编码，用来保存当前连接的标签的内容
        Dim goodsNumb() As Byte = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
        Dim goodsName() As Byte = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
        Dim goodsPric() As Byte = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

 

 UTF8 编码与解码：

Imports System.Text

Module UTF8

    'UTF8编码函数
    Public Function StringToUTF8Bytes(ByVal strData As String) As Byte()

        Dim bytes() As Byte
        bytes = Encoding.UTF8.GetBytes(strData)
        Return bytes

    End Function

    'UTF8解码函数
    Public Function UTF8BytesToString(ByVal strData() As Byte) As String

        Dim retstring As String
        retstring = Encoding.UTF8.GetString(strData)
        Return retstring

    End Function

End Module

 

datagridview隔行显示不同的颜色：

datagridview1.RowsDefaultCellStyle.BackColor = Color.Bisque

datagridview1.AlternatingRowsDefaultCellStyle.BackColor =Color.Beige

 

datagridview设置标题字体样式：

设置ColumnHeaderDefaultCellStyle的Font属性
或者编程
datagridview.Columns[index].DefaultCellStyle.Font.Size=size

 

转载于:https://www.cnblogs.com/jiwangbujiu/p/5555850.html

aibiao0099
关注
VB.NET的DataTable常用方法总结
01-21
### VB.NET中的DataTable常用方法详解 #### 一、行操作：追加与删除 ##### 行追加 在处理DataTable时，我们常常需要向表中添加新的数据行。以下是几种常用的行追加方法： 1. **`DataTable.Rows.Add()`** 这是最...
西门子触摸屏vb脚本从入门到精通_简单易学，西门子触摸屏3种修改变量值的方法！博图Wincc V14组态...
weixin_39731271的博客
11-27 1万+
应条友要求，今天分享3种修改触摸屏变量值的最常用方法!全文约700字，通读4分钟！看完本章，你将收获以下内容：一：必会知识点：3种修改变量的方法及适用点二：实例：3种方法修改触摸屏变量值三：问题拓展PS：看完本章，你也可以做出如下的项目！仿真如动图所示：项目模拟运行效果一：必会知识点：3种修改变量的方法及优缺点1：1 I/O域关联过程变量步骤：工具箱→元素→I/O域拖动到画面→右键I/O域属性→常...
走近VB.Net（八） 常用语法
zgqtxwd的专栏
04-24 410
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
ASP.NET常用函数
品味开发乐趣
06-26 921
Abs(number) 取得数值的绝对值。 Asc(String) 取得字符串表达式的第一个字符ASCII 码。 Atn(number) 取得一个角度的反正切值。 CallByName (object, procname, usecalltype,[args()]) 执行一个对象的方法、设定或传回对象的属性。 CBool(expression) 转换表达式为Boolean 型态。 CByte(ex
vb.net中listview双缓冲解决数据刷新时假死和闪频
04-03
在VB.NET编程中，ListView控件是常用的用户界面元素，用于显示列表项并提供多种视图样式，如图标、详细信息等。然而，在处理大量数据或频繁更新时，ListView控件可能会出现假死现象（应用程序无响应）以及闪烁（闪频...
VB.NET2010_MODBUS.zip_VB MODBUS_modbus vb_vb modbus_vb.net RS4
07-15
在VB.NET 2010环境下，MODBUS通信是一个常用的技术，用于设备间的数据交换，特别是在工业自动化领域。本项目是作者初次尝试使用VB.NET 2010实现RS485 MODBUS通信，这对于初学者或者需要进行MODBUS协议编程的开发者来...
VB.NET 获取U盘的物理序列号_获取物理磁盘_vb.net获取物理磁盘序列号_
10-03
在VB.NET编程环境中，开发人员有时需要访问计算机硬件的相关信息，比如磁盘的物理序列号。这在系统管理、设备追踪或安全应用中非常常见。本文将深入探讨如何使用VB.NET来获取U盘或者计算机物理磁盘的序列号。 首先...
VB.NET中Caching的使用方法
09-05
在VB.NET中，Caching是一种优化应用程序性能的关键技术，它允许开发者存储常用且生成成本较高的数据，以便在后续请求中快速重用，从而避免频繁地从数据库或其他慢速存储源检索数据。Caching的主要目标是减少不必要的...
VB.NET语句与函数大全
04-25
本书不是Visual Basic编程者的一本入门书，而是Visual Basic程序员的参考用书。书中详细介绍了每一条语句和函数的用法，包括其语法格式、说明、示例及需参阅的其他相关语句和函数。当在编程中遇到不太确定的问题或不会使用某个语句和函数时通过查阅本书得以解决。
VB.Net常用语法
03-15
VB.Net常用语法 一：Try………Catch………finally………end try 捕获错误 把一个可能出错的语句放在try后面，如果出错，执行catch语句， catch可以有多个，第一个catch不能捕获的错误，将被下一个catch语句 所捕获。在所有的处理结束后，执行finally语句。 在一个try………end try　过程中可以使用catch与finally两个中的一 个，或者两个一起用， 二：Protected，　private，　Public　封装控制 这三个关键字一般放在语句最前面，而会置于overloads与Overrides的 后面 public是工程级别外部访问 protected是本族级别以下内部访问 private是不提供非本地访问 三：ByVal sender As Object, ByVal e As System.EventArgs　　 这是最赏用事件传递参数。被封装于两个对象内， 如果你要传递相应的参数，要在这两个对象里面找，如当前鼠标位置为 e.X　e.Y。在ＶＢ.Net中有些事件是要自已动手写的， 如窗体鼠标过程，一般加上这个参数在后面的括号内就解决了。 四：重载语法Overloads 如：class class1 public strtem as string overloads public sub subx()重载subx（A状态） strtem=”3” end sub overloads public sub subx(x as string) 重载subx（B状 态） strtem=x end sub end class 如果你如果调用subx()中间没有参数，则VB自动调用重载subx（A状 态）， overloads public sub subx()重载subx（A状态） strtem=”3” end sub 结果就是strtem=”3” 如果你这样调用，subx(“这是一个不同的结果”),则VB自动调用重 载subx（B状态） overloads public sub subx(x as string) 重载subx（B状 态） strtem=x end sub 结果就是 strtem=“这是一个不同的结果” 您可以在函数中调用，包括在API中（当然VB.Net不再使用winAPI）. 甚至一些至关紧要的过程也不例外：如new过程(此方法王国荣文章中 有介绍) 如：　class class1 Overloads Public Sub New() 。。。。。。 。。。。。。 end sub Overloads Public Sub New(s as string) 。。。。。。 。。。。。。 end sub end class 同样有两种调用的方法，如dim as as class1=new class 调用前面 一个无参数的new过程， 而dim asb as class1=new class(“string”)调用第二个new 过程. 切记，如果一个过程或一个函数只有一种状态，不能这样运用。如果您试 图使用overloads关键字，则VB.Net会出现错误的提示要求你移去 overloads 五：Overrides改写 如常见的dispose过程： Overrides Public Sub Dispose() MyBase.Dispose components.Dispose End Sub Overrides表示完全的改写父类提供的过程与函数 不过要记住使用改写的前提是在父类的同一过程或函数的前面也使用了 overrides关键字 六：mybase.new 与mybase.dispose ublic Sub New() MyBase.New Form1 = Me InitializeComponent End Sub Overrides Public Sub Dispose() ' MyBase.Dispose components.Dispose End Sub 这两个过程是任何一个新建工程都会有的，mybase.new是调用当前类的 父类的new过程，同样你也可以加上参数配合父类的重载New过程。如： Overloads Public Sub New () MyBase.New() End Sub Overloads Public Sub New (string) MyBase.New(string) End Sub 七：Structure构造 自定义类型,如： Structure Type1 Dim x as y Dim a as b 。。。。。。。 end structure 这个取代VB６中的使用type………end type方式自定义类型的方法。 八：return返回值 function functionname() return X。。。。。。 end funtion 他的作用与下面一样： function functionname() functionname = X。。。。。。 end funtion
RFID 标签 DLL SDK 开发指南 V3.5
10-17
RFID 标签 读写操作 DLL SDK 开发指南 V3.5 SDK开发指南 本SDK 包是公司为方便用户开发应用程序而开发的软件开发包。 SDK 以动态链接库文件 形式提供给用户使用。 用户使用本公司系列读写器进行用户应用软件开发时，根据本公司提供的SDK 开发包， 用户可以高效、正确地完成DRF 系列读写器应用软件的开发。 SDK 支持VC、 VB、 C#、 VB.NET、 C++ Builder 和Delphi 的开发。 使用函数注意事项： 1.对标签操作时（包括读标签，写标签），最好在主从模式下使用， 因为读写器 UART 通讯是半双工的，定 时模式下，此时读卡器定时读标签并上传数据，这时容易跟上位机发送的命令冲突而造成读取成功率下降， 如果要在定时模式下使用的话，最好先发送停读标签命令，再来操作。此时如若要恢复到定时模式，要发 送复位读头命令以再次进入到定时模式。 2.如果要读单标签， 使用我们的 DEMO 软件，到参数设置那里把读写器首先要设置到单标签模式。 3.如果要读多标签， 使用我们的 DEMO 软件，到参数设置那里把读写器首先要设置到多标签模式。 1、 OpenComm 函数原型： HANDLE OpenComm(int portNo); 功能说明： 打开串口。 返回值： 成功时返回串口句柄，失败时返回 INVALID_HANDLE_VALUE（-1） 参数： ●——portNo： 串口号 调用例程： HANDLE hCom = OpenComm(1); // 打开串口 1 if(hCom != INVALID_HANDLE_VALUE) AfxMessageBox(“打开串口成功!” ); else AfxMessageBox(“打开串口失败!” );
(vb.net)类方法调用关系图
07-13
在程序集缓存中，加载程序集，然后点击图，左键显示（被调用），右键显示（调用）
VB.NET函数大全
02-19
很不错的参考资料，VB.NET里的函数都比较全了，值得下载
VB.NET数字计算函数的使用方法
UgmbRuby的博客
09-28 610
通过使用这些函数，您可以轻松执行各种数学运算，如获取绝对值、向下取整、向上取整、四舍五入以及获取最大值和最小值。这些函数提供了灵活性和方便性，使您能够更轻松地处理数字数据。在VB.NET中，有许多内置的数字计算函数可用于执行各种数学运算。这些函数提供了处理数字的便利和灵活性，使开发人员能够轻松执行各种数学操作。本文将介绍一些常用的VB.NET数字计算函数，并提供相应的源代码示例。请注意，以上示例代码仅用于演示目的，实际应用中可能需要根据具体需求进行适当的调整和错误处理。四舍五入: 3.14。
VB.NET 教程_01_基础语法
热门推荐
pre_eminent的JAVA学习园地
08-08 3万+
    VB.Net教程简介： VB.Net是一种简单，现代，面向对象的计算机编程语言，由微软开发，将.NET Framework和公共语言运行库的强大功能与作为Visual Basic标志的生产力优势相结合。 Visual Basic .NET（VB.NET）是在.NET Framework上实现的面向对象的计算机编程语言。 虽然它是经典的Visual Basic语言的演变，但是它不...
VB.Net - 函数
9.歌工作室
03-01 1318
VB.Net - 函数过程是一组调用时一起执行任务的语句。执行该过程之后，控制返回到调用过程的语句。 VB.Net有两种类型的程序：FunctionsSub procedures or Subs函数返回一个值，而Subs不返回值。定义函数函数语句用于声明函数的名称，参数和主体。 函数语句的语法是：[Modifiers] Function FunctionName [(ParameterList)]...
vb.net数组常用方法
最新发布
07-24
vb.NET 数组是一种数据结构，可以存储一组值，并允许通过索引来访问它们。VB.NET 提供了许多用于操作数组的方法，下面列举了一些常用的数组方法： ### 1. `Array.Resize()` 此方法允许调整数组大小。如果传入的是负数，则表示增加数组长度；如果是正数，则表示减少数组长度。 ```vbnet Dim arr As Integer() = New Integer(3) {} arr = Array.Resize(arr, 5) ``` ### 2. `Array.Clear()` 将数组的所有元素设置为零或其他特定值。 ```vbnet Dim arr As Integer() = New Integer(3) {} Array.Clear(arr, 0) ``` ### 3. `Array.Copy()` 复制数组或数组的一部分到另一个数组。 ```vbnet Dim src As Integer() = New Integer() {1, 2, 3} Dim dest As Integer() = New Integer(6) {} Array.Copy(src, 0, dest, 0, src.Length) ``` ### 4. `Array.IndexOf()` 查找指定元素在数组中的索引位置。 ```vbnet Dim arr As String() = {"apple", "banana", "cherry"} Dim index As Integer = Array.IndexOf(arr, "banana") ``` ### 5. `Array.LastIndexOf()` 类似于 `IndexOf()`，但是从右向左搜索，返回最后一个匹配项的位置。 ```vbnet Dim arr As String() = {"apple", "banana", "cherry"} Dim index As Integer = Array.LastIndexOf(arr, "banana") ``` ### 6. `For Each Loop` 遍历数组并对其元素执行某些操作。 ```vbnet Dim arr As String() = {"apple", "banana", "cherry"} For Each item In arr Console.WriteLine(item) Next ``` ### 7. `Select()` 和 `ToList()` 用于 LINQ 查询，可以对数组进行过滤、排序等复杂操作。 ```vbnet Imports System.Linq Dim arr As Integer() = New Integer() {1, 3, 2, 4, 5} Dim sortedArr As Integer() = arr.OrderBy(Function(x) x).ToArray() ``` ### 8. `Length` 属性 获取数组的长度。 ```vbnet Dim arr As Integer() = New Integer(3) {} Console.WriteLine("Array length is: " & arr.Length) ``` ### 相关问题: 1. 如何在 vb.NET 中初始化动态数组? 2. vb.NET 中如何遍历数组的每个元素并执行操作? 3. vb.NET 的数组是否支持多重维度?
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值