ch02

OPC 客户端程序 VB编写与西门子机床通信(OPC client program)

usb tool for get a code of usb and serial dongles . it′s necessary run the original program to get it

this is the list view project for help those people who want to show image Image in List View it can be use in show for list of products with images

说明：  TCP/ip通讯客户端的程序。VB程序编写WINSOCK控件应用(TCP/ip messaging client program. VB programming WINSOCK Control Applications)

这是一个表现蝴蝶飞飞的小程序的设计，只是一个小小的尝试，希望大家多多指导。(This is a performance of small butterflies soaring procedures designed only to a small, I hope Members can guide.)

基于RFID技术的射频电子钱包 基于RFID技术的射频电子钱包(RFID technology based on radio-frequency electronic wallet RFID technology based on the RF-based electronic wallet RFID RF technology electronic wallet)

A practical example of moving a form without title bar is simple, effective and worthy of reference.

使用ADO导出数据,在数据库编程中应用很多。(Use ADO export data, many applications in database programming.)

VB写的列表框_自由选择源码，有助于新手学习。(Written in VB source list box _ freedom of choice to help novices learn.)

测试com口程序Private Sub Form_Load() Dim I As Integer Dim Msg As String Me.Enabled = False Msg = 串行端口通讯测试 V & App.Major & . & App.Minor & App.Revision cboCommSettings.Text = GetSetting(App.EXEName, frmCommTest , CommSettings , 2400,N,8,1 ) Me.Show Me.Refresh With MSComm1 For I = 1 To 16 Me.Caption = Msg & - 测试通讯端口:COM & I & ... Me.Refresh Delay 100 On Error Resume Next .CommPort = I .Settings = 2400,N,8,1 .PortOpen = True .PortOpen = False If Err = 0 Then cboCommPort.AddItem COM & Trim(I) Next I End With cboCommPort.ListIndex = 0 optCommData(0).Value = True Me.Caption = Msg & (Programming by WJY) Me.Refresh If cboCommPort.ListCount = 0 Then MsgBox 程序检测不到可用的串行端口! Me.Enabled = True End Sub (test com port)