-
VB演示 FileToSplit分割文件与合并文件
VB演示分割文件与合并文件，这里使用到比较多的文件操作函数，比如FileToSplit、FileLen、UBound、FileCount、FileInfo等。本范例文件分割的思路：程序通过调用FreeFile函数来取得可以的文件号，以二进制的方式打开文件，根据文件的长度FilesLen和每个分割单位的比较，得出被分割之后的子文件个数，重新定义最后一个子文件的大小，将所取得的内容，分别存储到各个子文件中，将文件分割情况，存储到自定义的结构类型FileInfoFile中，最后将文件分割的情况，存入到模版文件中。
关于文件合并，则可看作是上述的逆过程，不再详述，请参见源码中的文件注释。
- 2022-11-15 13:30:03下载
- 积分：1
-
vb 将数字格式化为金额
vb 将数字格式化为金额，这个更像是一个自动计算程序，根据用户输入的单位、数量、价格等参数，自动计算出金额，这才是程序要表达的功能，相差代码：
Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = &H80000005
If Index = 3 Then Text1(3) = Format(Text1(3), "0.00")
End Sub
- 2023-01-25 23:50:04下载
- 积分：1
-
VB Socket获取主机名和IP地址
VB Socket获取主机名和IP地址，获取主机名是使用了VB中的GetComputerName直接得到，然后对Socket初始化，使用gethostbyname取得主机地址，再获取到IP后进行转化为标准的IP格式。转换过程如下：
RtlMoveMemory host, hostent_addr, LenB(host)
RtlMoveMemory hostip_addr, host.hAddrList, 4
ReDim temp_ip_address(1 To host.hLength)
RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLength
For i = 1 To host.hLength
ip_address = ip_address & temp_ip_address(i) & "."
Next i
ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)
MsgBox "IP:" + ip_address
- 2022-10-23 19:55:03下载
- 积分：1
-
vb根据用户输入的内容决定显示指定内容
vb根据用户输入的内容决定显示指定内容，从例子来看，是一个数据库搜索的例子，也就是用户搜索的什么，列表中会显示出相关内容。只是说法不同而已，为了可以正常运行，本示例中的数据库采用Access数据库，数据库文件为：db_Client.mdb。
- 2022-08-23 09:42:29下载
- 积分：1
-
VB在数据库端禁止录入重复数据
VB在数据库端禁止录入重复数据，对插入的数据进行判断，在写入数据库时进行判断是否已经存在于数据库中，判断是基于数据库的，数据库采用的是Access，在数据库端进行重复数据判断：
rs1.Open "select * from 客户类别表 where 客户类别= + Text1(0) + _
", Cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 And Text1(0) DataGrid1.Columns(0) Then
MsgBox "此记录已存在！", , "提示窗口"
Else
Cnn.Execute ("update 客户类别表 set 客户类别 = + Text1(0) + ,备注= + Text1(1) + _
,修改日期= + Str(Date) + where 客户类别= + DataGrid1.Columns(0) + ")
Adodc1.Refresh
tlbState Toolbar1, False
Text1(0).Locked = True: Text1(1).Locked = True
End If
- 2022-08-14 15:01:13下载
- 积分：1
-
VB6.0 使用列表播放midi等媒体文件
VB6.0 使用列表播放midi等媒体文件，代码中添加了注释，了解VB如何操作MIDI文件进行播放，核心是调用了msdxm.ocx文件，如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.
- 2022-03-23 18:50:41下载
- 积分：1
-
VB 只允许输入特殊字符
VB 只允许输入特殊字符，这只是一个普通的用户查询窗口，字段名称、运算符、关 键 字，然后对其进行查询，因为要向cbofields中添加规范化数据，所在再输入时只能输入“>”、“
- 2022-03-19 10:07:52下载
- 积分：1
-
VB 6.0 将数组中的数据利用图表分析
VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码:
Private Sub Form_Load()
Dim i
i = Array(1, 2, 3, 4, 5, 6, 7)
Dim j
For j = 0 To UBound(i)
With MSChart1
.RowCount = UBound(i) + 1
.Row = j + 1
.ColumnCount = 1
.Data = i(j)
.RowLabel = i(j)
End With
Next j
End Sub
- 2022-01-25 18:47:19下载
- 积分：1
-
vb 拉霸游戏源代码
vb 拉霸游戏，这个游戏我没玩过，玩上去像是抽奖的游戏，有个杠杆可以搬动，搬动后左边的数字滚轮会不停的变化，右边可以设置难度等级，同时这个游戏的窗口也是很特别的，采用不规划的椭圆形，在设计创建不规则的VB窗口时，本源码中的窗口编写技巧也是可以用上的，本游戏是由国外源码改写，在VB6.0环境下可直接编译运行。
- 2022-04-29 19:05:48下载
- 积分：1
-
VB 6.0 在字符串中用一子串替换另一子串
VB 6.0 在字符串中用一子串替换另一子串，采用VB中内置的Replace函数来实现，类似这种的替换字符串方法，在平时使用十分广泛，在WEB编程的ASP/PHP/ASP.NET中，同样使用广泛。本示例中，主要是替换一个字符串中的指定位字符串，将其替换成其它字符。
关于Replace的用法，请看以下代码片段：
Text3.Text = Replace(Text1, Mid(Text1, 2, 2), Text2)
- 2022-01-26 05:32:59下载
- 积分：1
