VB代码自动缩进工具
2020-01-21 03:04:52 648KB VB
1
用VB写的名片管理系统,对初学者非常有用,去下载学习下吧!
2020-01-03 11:37:59 391KB 名片
1
在vb程序将字符串转为vb代码执行,非原创,收集自网络
2019-12-21 22:10:11 26KB vb
1
vb6.0,免费破解版,随下随用,绿色安全,方便代码新手。
2019-12-21 21:51:07 5.86MB vb 代码
1
可以实现矩阵的求逆运算 。在测量平差中经常使用
2019-12-21 21:35:29 1KB 矩阵求逆 VB
1
我这里花了一百大洋买了个通信控件 但是卖的那个贱人不给我说明书就 不理了 我的QQ345324289 麻烦有需要的人去试试 顺便告诉下我 或者加我QQ一起讨论下 加的时候 注明来意 这个控件我已经测试过VB区域的读写 但是M区的 不会用 希望大家 多多指教
2019-12-21 21:32:08 68KB 西门子 通信控件 VB代码
1
VB代码利用FTP实现文件上传于下载代码和总结
1
'此代码发布后,可随意改哈,欢迎光临我的网址导航网站 http://www.97tt.org Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() On Error Resume Next RichTextBox1.Text = "" Dim Tables As IHTMLElementCollection Set Tables = WebBrowser1.Document.getElementsByTagName("Table") Dim Table1 As HTMLTable Dim Row As HTMLTableRow, Cell As HTMLTableCell For Each Table1 In Tables 'Next For i = 1 To Table1.rows.length - 2 ' 逐行处理 Set Row = Table1.rows(i) j = 0 For Each Cell In Row.cells ' 逐列处理 RichTextBox1.Text = RichTextBox1.Text + Trim(Row.cells(j).innerText) + "," j = j + 1 Next ' 一行处理完毕后,去除行尾的逗号并加上回车 RichTextBox1.Text = Left(RichTextBox1.Text, Len(RichTextBox1.Text) - 1) + vbCrLf Next Next End Sub
1
Modbus IEEE754 浮点数 转换 方法 VB 代码 使用VB6把MODBUS协议中的32位整数,变换为浮点数 MODBUS协议 数据 转换 IEEE754 Float Long
2019-12-21 20:58:57 226KB Modbus IEEE754 数据转换 VB
1
非常实用的VB转C#工具,可直接把VB的项目源码转换成C#源码,亲自验证过,简单粗暴好用,可以帮组节省代码转换的时的大量时间,对不懂VB的人有很大帮助!
2019-12-21 20:11:52 6.61MB VB转C#
1