daojin593-CSDN博客

原创 VB2005 窗体中控件和容器中控件随窗体变化

当初在网上查找了很多类似的代码，可惜都不能应用于VB2005版本，故对其进行了修改，基本实现了控件自动随窗体变化，特窃据为原创，呵呵，希望各位不要拍砖。但是不适用于对于容器内部的附件，故增加了对容器内控件的处理。 '窗体中控件自动随窗体变化大小 Option Explicit On Module ResizeFormCls Private FormOldWidth As

2011-12-31 17:06:07 500

原创 VB2005 文本框RichTextBox中数据处理技巧

在窗体中新建RichTextBox控件 1. 让文本框始终显示在最后一行： Tipbox.SelectionStart = Len(Tipbox.Text) '获取文本结尾位置 Tipbox.ScrollToCaret() '将控件的内容滚动到当前插入符号位置。 2. 使用不同字体或颜色突出显示特定文字例如：对"通讯超时，请重新测试。"这行文字以不同颜

2011-12-31 16:58:33 526

转载 VB2005 延时程序

Public Sub DelayTime(ByVal DelayMsTime As Short) '定量延时程序 Dim TimeDelay As Long TimeDelay = GetTickCount Do System.Windows.Forms.Application.DoEvents()

2011-12-31 16:45:24 405

原创 VB.net 在Gridview中显示Accessl数据

'在Gridview中显示Accessl数据 Private Sub Gridviewexcel(ByVal Exclepath As String, ByVal tabelname As String) Try ' 利用 OleDbConnectionStringBuilder 对象来构建连接字符串。 Dim con

2011-12-31 16:41:38 436

原创 VB2005中通过串口发送命令

Public Sub FtSendStr(ByVal sendstr As String, ByVal RS232 As IO.Ports.SerialPort) Dim i As Integer Dim sj() As Byte ReDim sj(Len(sendstr) / 2 - 1) For i = 0 To Len(

2011-12-31 16:34:44 498

原创 VB2005中按照16进制读取串口缓冲区数据

Function FtBytetoRead(ByVal strbuff As String, ByVal RS232 As IO.Ports.SerialPort) Dim i As Integer 'Dim strbyte() As Byte Dim n As Integer Dim bReadByte() As Byte

2011-12-31 16:31:57 988

<<Visual BasicVisual Basic 数据采集与串口通信测控应用实战>> 源代码

本书从工程应用的角度出发，对用Visual Basic(简称VB)开发测控程序的各种方法进行了全面阐述。内容包括在VB工程中利用MSComm控件、调用API函数、直接端口访问等方法开发串口通信程序，在VB工程中调用ActiveX控件和DLL动态链接库等方法开发板卡数据采集与控制程序。每种程序设计方法都提供了多个实训操作，每个实训都提供了线路图、详细的实训步骤和完整的程序代码，所有代码均编译通过，并经过实际的测试检验达到实战要求。本书配有一张光盘，其中收录了书中所有的程序源代码，实训中用到的智能仪表、板卡等硬件设备的驱动程序等。

2010-12-28

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人