boxlist显示最新一行从VB6.0到VB2010的改动

最新推荐文章于 2024-10-28 18:50:01 发布
最新推荐文章于 2024-10-28 18:50:01 发布
阅读量361 收藏
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lincheng15/article/details/51734441
版权
VB6原本的程序 
  form1.lstResults.AddItem "add string"
  form1.boxlist1.ListIndex = form1.boxlist1.ListCount - 1



VB2010 
  Form1.boxlist1.Items.Add("add string" )
  Form1.boxlist1.SelectedIndex = Form1.boxlist1.Items.Count - 1


lincheng15
关注
Win10下VB6.0开发之串口通信基础(一)控件属性篇
qq_36749906的博客
11-02 5581
前言：VB串口通信的方法一般有两种：一是通过Windows的通信API进行通信；另一种是通过VB的标准控件MSComm来实现。这篇文章要讲的是上位机如何通过VB的串口控件MSComm和下位机进行串口通信的过程。 以下是给VB初学者推荐的两本书籍： 《Visual+Basic+6.0基础教程》 《Visual_Basic与RS-232串行通信控制》 其中，《Visual+Basic+6.0基础教...
VB6.0 对ACCESS的控制总结——无需控件版（建库，删库，建表，删表，增加行，删除行）
qq_18603023的专栏
11-29 4853
'前言： VB6.0对数据库的操作方法很多，对于初学者来说也比较乱.用控件操作数据库是很简洁的，但相对的局限性也变大了.总结了相对简介而使用的几个功能希望大家喜欢. '引用"Microsoft ActiveX Data Objects 6.0 Library"， '这个东西的简称就是ADO，它是VB6数据库最核心的 '对象群，也是VB数据库开发人员经常所引用的对象
VB中的ListBox多列显示实例
03-06
VB环境中的ListBox多列显示实例源码，以多列的方式显示ListBox中的数据内容，多了 解一种技巧是不多余的。
C# ListBox实现显示插入最新的数据的方法
weixin_34226182的博客
10-17 325
在我们使用ListBox控件时，如果我们在里面不断的添加一条条数据，但是在我们添加的数据过多超过了ListBox显示的窗口时（此时会产生滑动条）， 发现我们无法看到最新添加的数据。实现倒序显示此处有两种方法： //第一种，使用listBox.Items.Add("字符串"),之后加上一句代码 这种方法会让数据向上移动，下方会一直显示最新数据 1 listBox.Items.Add(...
（一）VB 2010 开发环境
最新发布
qq_42885951的博客
10-28 787
使用。
VB2010官方教程实例
02-21
微软发布的VB2010教学实例，里面包含了几乎所有vb2010的功能实例，从桌面程序到网络程序到，从服务器程序到TabletPC程序，从WCF程序到其它，应有尽有。
VB2010 与 access 数据库编程实例
11-26
VB2010 与 access 数据库编程实例,对数据库实行，数据插入，修改，栓除等
VB6.0 增加编辑器支持鼠标滚轮插件
11-29
在VB6.0（Visual Basic 6.0）编程环境中，开发者可能会遇到一个不便之处，那就是默认的编辑器不支持鼠标滚轮滚动代码。这在处理大量代码时可能会造成一些不便，因为用户需要频繁地使用箭头键或滚动条来浏览代码。...
VB6.0制作vb安装程序
03-04
VB6.0是微软公司开发的一种编程语言，VB6.0制作vb安装程序是VB6.0编程语言中的一种常见的应用场景。本文将详细介绍VB6.0制作vb安装程序的步骤和技巧。 第一步：运行打包向导 在VB6.0中，用户可以使用VB自带的打包...
VB6.0鼠标
07-17
4. 打开VB6.0 IDE，如果需要，可能需要重新启动IDE，以使改动生效。 5. 检查是否现在可以通过鼠标滚轮在代码编辑器中进行滚动。 通过这些步骤，开发者能够在VB6.0环境中享受更现代的用户体验，利用鼠标滚轮浏览代码...
VB2010(第6版)完整版
11-26
Visual Basic 2010 入门经典(第6版)完整版共20章 其中第1-13章可鼠标取字 后边是扫描版 共2部分，2部分放在一起解压缩 这是 .part1.rar
VB2010 Express.zip
09-22
Microsoft Visual Basic 2010 Express 中文版 +上密鑰
usb communication
11-15
利用USB接口进行通信的数据源码MemberIndex = 0 Do 'The cbSize element of the MyDeviceInterfaceData structure must be set to 'the structure's size in bytes. The size is 28 bytes. MyDeviceInterfaceData.cbSize = LenB(MyDeviceInterfaceData) Result = SetupDiEnumDeviceInterfaces _ (DeviceInfoSet, _ 0, _ HidGuid, _ MemberIndex, _ MyDeviceInterfaceData) Call DisplayResultOfAPICall("SetupDiEnumDeviceInterfaces") If Result = 0 Then LastDevice = True 'If a device exists, display the information returned. If Result <> 0 Then lstResults.AddItem " DeviceInfoSet for device #" & CStr(MemberIndex) & ": " lstResults.AddItem " cbSize = " & CStr(MyDeviceInterfaceData.cbSize) lstResults.AddItem _ " InterfaceClassGuid.Data1 = " & Hex$(MyDeviceInterfaceData.InterfaceClassGuid.Data1) lstResults.AddItem _ " InterfaceClassGuid.Data2 = " & Hex$(MyDeviceInterfaceData.InterfaceClassGuid.Data2) lstResults.AddItem _ " InterfaceClassGuid.Data3 = " & Hex$(MyDeviceInterfaceData.InterfaceClassGuid.Data3) lstResults.AddItem _ " Flags = " & Hex$(MyDeviceInterfaceData.Flags) '****************************************************************************** 'SetupDiGetDeviceInterfaceDetail 'Returns: an SP_DEVICE_INTERFACE_DETAIL_DATA structure 'containing information about a device. 'To retrieve the information, call this function twice. 'The first time returns the size of the structure in Needed. 'The second time returns a pointer to the data in DeviceInfoSet. 'Requires: 'A DeviceInfoSet returned by SetupDiGetClassDevs and 'an SP_DEVICE_INTERFACE_DATA structure returned by SetupDiEnumDeviceInterfaces. '******************************************************************************* MyDeviceInfoData.cbSize = Len(MyDeviceInfoData) Result = SetupDiGetDeviceInterfaceDetail _ (DeviceInfoSet, _ MyDeviceInterfaceData, _ 0, _ 0, _ Needed, _ 0) DetailData = Needed Call DisplayResultOfAPICall("SetupDiGetDeviceInterfaceDetail") lstResults.AddItem " (OK to say too small)" lstResults.AddItem " Required buffer size for the data: " & Needed 'Store the structure's size. MyDeviceInterfaceDetailData.cbSize = _ Len(MyDeviceInterfaceDetailData) 'Use a byte array to allocate memory for 'the MyDeviceInterfaceDetailData structure ReDim DetailDataBuffer(Needed) 'Store cbSize in the first four bytes of the array. Call RtlMoveMemory _ (DetailDataBuffer(0), _ MyDeviceInterfaceDetailData, _ 4) 'Call SetupDiGetDeviceInterfaceDetail again. 'This time, pass the address of the first element of DetailDataBuffer 'and the returned required buffer size in DetailData. Result = SetupDiGetDeviceInterfaceDetail _ (DeviceInfoSet, _ MyDeviceInterfaceData, _ VarPtr(DetailDataBuffer(0)), _ DetailData, _ Needed, _ 0) Call DisplayResultOfAPICall(" Result of second call: ") lstResults.AddItem " MyDeviceInterfaceDetailData.cbSize: " & _ CStr(MyDeviceInterfaceDetailData.cbSize) 'Convert the byte array to a string. DevicePathName = CStr(DetailDataBuffer()) 'Convert to Unicode. DevicePathName = StrConv(DevicePathName, vbUnicode) 'Strip cbSize (4 bytes) from the beginning. DevicePathName = Right$(DevicePathName, Len(DevicePathName) - 4) lstResults.AddItem " Device pathname: " lstResults.AddItem " " & DevicePathName '****************************************************************************** 'CreateFile 'Returns: a handle that enables reading and writing to the device. 'Requires: 'The DevicePathName returned by SetupDiGetDeviceInterfaceDetail. '****************************************************************************** HidDevice = CreateFile _ (DevicePathName, _ GENERIC_READ Or GENERIC_WRITE, _ (FILE_SHARE_READ Or FILE_SHARE_WRITE), _ 0, _ OPEN_EXISTING, _ 0, _ 0) Call DisplayResultOfAPICall("CreateFile") lstResults.AddItem " Returned handle: " & Hex$(HidDevice) & "h" 'Now we can find out if it's the device we're looking for. '****************************************************************************** 'HidD_GetAttributes 'Requests information from the device. 'Requires: The handle returned by CreateFile. 'Returns: an HIDD_ATTRIBUTES structure containing 'the Vendor ID, Product ID, and Product Version Number. 'Use this information to determine if the detected device 'is the one we're looking for. '****************************************************************************** 'Set the Size property to the number of bytes in the structure. DeviceAttributes.Size = LenB(DeviceAttributes) Result = HidD_GetAttributes _ (HidDevice, _ DeviceAttributes) Call DisplayResultOfAPICall("HidD_GetAttributes") If Result <> 0 Then lstResults.AddItem " HIDD_ATTRIBUTES structure filled without error." Else lstResults.AddItem " Error in filling HIDD_ATTRIBUTES structure." End If lstResults.AddItem " Structure size: " & DeviceAttributes.Size lstResults.AddItem " Vendor ID: " & Hex$(DeviceAttributes.VendorID) lstResults.AddItem " Product ID: " & Hex$(DeviceAttributes.ProductID)
VB - 通过vs2010编写vb程序操作word与excel
bailang_zhizun的博客
04-09 8830
通过vs2010编写vb程序操作word与excel1、开发环境 配置开发环境，将vs2010的c++开发环境转换到vb的开发环境。 点击菜单栏-&gt;工具-&gt;导入和导出设置，打开如下所示界面： 选中“重置所有设置”，点击下一步： 选中“否，***”，点击下一步： 选中“Visual Basic开发设置”，点击完成，等待配置即可。配置完成之后，选择新建Visu...
VB6.0 与 VS2010 在VB编程上的区别小总结
热门推荐
张健翮 廊坊师范学院九期信息技术提高班
03-09 2万+
这段时间相信大家已经慢慢习惯使用VB6.0来制作各自的小程序了，不过除了VB6.0以外，VS2008和VS2010都可以进行VB程序设计，这一点想必没有太多同学去关注。        其实发现这个也纯属巧合，因为笔记本重装系统之后程序不全，而我有急着编程，所以就准备用家里的电脑写程序。之后才发现家里一直都没有安装VB6.0，而且网络也不甚通畅，所以只能用VS2010碰碰运气，好运的是VS2010
vb.net VS2010编程
Goldxwang的博客
10-20 2191
 http://jingyan.baidu.com/article/76a7e409dac152fc3b6e1590.html?allowHTTP=1 工具/原料 《Microsoft Visual Studio 2010》 百度经验:jingyan.baidu.com 方法/步骤 1 运行“Microsof
VB6.0编写代码时的注意事项：
09-19
7. 跨平台兼容性：虽然VB6.0是一个Windows环境下的开发工具，但仍应考虑到可能的跨平台兼容性问题。尽量避免使用仅在Windows平台上可用的特定API和功能。 8. 使用版本控制：使用版本控制工具来管理代码的变更和版本...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值