-
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
-
VB6 获取当前打开窗口数量
VB6 获取当前打开窗口数量，如何获取当前打开窗口数量，本示例打开一个窗口后，在测试时会打开另外一个窗口，然后主窗口中会统计到这个打开的窗口，把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的用法。调用新窗口显示可参考以下代码：
Private Sub Command1_Click()
Form2.Show
Call Form_Activate
End Sub
Private Sub Form_Activate()
Text1.Text = DoEvents()
End Sub
- 2022-07-19 06:40:19下载
- 积分：1
-
VB 以TextStream流的方式打开文本文件
VB 以流的方式打开文本文件，创建FileSystemObject MyFSO对象，创建TextStream对象，然后使用对象GetFile文件，最后使用对象OpenAsTextStream读取流文件，具体用法，可参见以下代码：
Private Sub Form_Load()
Dim MyFSO As New FileSystemObject
Dim MyFile As File
Dim MyTS As TextStream
Set MyFile = MyFSO.GetFile(App.Path & "MyFile.txt")
Set MyTS = MyFile.OpenAsTextStream(ForReading)
Text1.Text = MyTS.ReadAll
MyTS.Close
End Sub
完整的可编译实例，请下载源码包。
- 2022-06-14 22:18:23下载
- 积分：1
-
VB6.0 顺序文件写操作的操作演示
VB6.0 顺序文件写操作的操作演示，三种方法写数据，包括了完整的源码项目下载，是学习VB文件读写操作的好范例。
这三种方法是：
把文件的内容一次性的写入
把字符一个一个写入
依次写入顺序文件
- 2022-01-26 17:24:14下载
- 积分：1
-
VB SetWindowRgn创建椭圆形窗口
VB创建一个个性化的椭圆形窗口界面，使用 SetWindowRgn创建椭圆形窗口的例子。个性的窗口形状可增加程序的趣味性，可以使程序更具吸引力。见惯了方方正正的矩形窗体，椭圆形窗体更会使用户眼前一亮。本实例设计一个椭圆形的窗体，运行程序，窗体为椭圆形，单击窗体，即可退出程序。
- 2022-10-27 20:55:03下载
- 积分：1
-
VB的保存文件对话框调用创建一例
VB的保存文件对话框调用创建一例，弹出“打开”对话框，还有保存对话框，另存为对话框，通用对话框，cdlOFNFileMustExist当用户输入非法的文件名时,要显示一个警告。
cdlOFNReadOnly指示对话框关闭时只读复选框的状态。。
- 2022-02-11 13:06:23下载
- 积分：1
-
VB NET sqlserver 销售管理系统
VB NET sqlserver 销售管理系统，销售业务，销售发货，销售退货，回款管理，统计报表，基础信息管理、系统设置、备份和恢复数据、货品基本信息管理、业务员管理等。
版权所有(C) 作者个人自由创作室
VB.NET 销售管理系统 V1.0，SQLSERVER2000数据库。
- 2022-03-16 19:52:06下载
- 积分：1
-
vb.net复制、移动删除及获取文件的各种属性
vb.net获取TXT文件的各种属性参数，除了复制、移动文件、删除文件外，还可获取到文件的各种属性参数，不过只是针对TXT文本文件，可以获取到以下的参数：文 件 名 、路 径 、文件大小 、创建文件时间、最近访问时间、最近写入时间、是否隐藏文件、是否只读文件、是否系统文件 、是否脱机文件等 。
- 2022-01-26 07:50:33下载
- 积分：1
-
VB利用地址偏移访问内存
VB利用地址偏移访问内存，整个处理过程 封装在事件函数中，用户单击后，执行以下代码：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
Dim i As Long
Dim j As Long
i = 1234
j = 4321
Debug.Print VarPtr(i)
Debug.Print VarPtr(j)
CopyMemory ByVal VarPtr(i), ByVal VarPtr(i) - 4, 4
Text1.Text = i
End Sub
- 2022-08-20 12:19:05下载
- 积分：1
-
股票采集数据源码
用VB编的股票采集数据源码、分享出来希望对大家有用。
- 2022-07-10 11:37:10下载
- 积分：1
