- 博客(6)
- 资源 (1)
- 收藏
- 关注
原创 VB2005 窗体中控件和容器中控件随窗体变化
当初在网上查找了很多类似的代码,可惜都不能应用于VB2005版本,故对其进行了修改,基本实现了控件自动随窗体变化,特窃据为原创,呵呵,希望各位不要拍砖。 但是不适用于对于容器内部的附件,故增加了对容器内控件的处理。'窗体中控件自动随窗体变化大小Option Explicit OnModule ResizeFormCls Private FormOldWidth As
2011-12-31 17:06:07 516
原创 VB2005 文本框RichTextBox中数据处理技巧
在窗体中新建RichTextBox控件1. 让文本框始终显示在最后一行: Tipbox.SelectionStart = Len(Tipbox.Text) '获取文本结尾位置 Tipbox.ScrollToCaret() '将控件的内容滚动到当前插入符号位置。2. 使用不同字体或颜色突出显示特定文字 例如:对"通讯超时,请重新测试。"这行文字以不同颜
2011-12-31 16:58:33 546
转载 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 419
原创 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 459
原创 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 518
原创 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 1007
<<Visual BasicVisual Basic 数据采集与串口通信测控应用实战>> 源代码
2010-12-28
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人