-
VB.NET将任意图像文件设置为鼠标形状
VB.NET将任意图像文件设置为鼠标形状,变换光标,光标文件读取,支持自定义光标的图像文件格式为:图像文件(*.jpg;*.gif;*.png;*.bmp)。操作方法挺简单的,点击 按钮选择一个格式合适的光标文件即可,注意查看鼠标光标的变化。
- 2022-05-05 06:26:41下载
- 积分:1
-
VB 演示创建视图 使用视图保存数据
VB 演示创建视图 以及使用视图保存数据,数据库选择了MSSQL,根据各数据库字段创建视图,并使用这个视图进行数据保存,测试前请确保数据库连接成功。
- 2022-07-17 20:55:23下载
- 积分: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 MSChart图表控件实例:柱状图的实现
VB 柱状图生成的例子,看看,是不是很实用的图表效果,这种图表也叫做直方图表,这是纵向的,也有横向的柱状图.本柱状图的生成是使用了Vb内置的微软图表控件MSChart控件,因此可看作是此控件的应用范例.
- 2022-04-15 23:55:01下载
- 积分:1
-
VB演示三种FileSystemObject文件操作方法
FSO对象模型提供了三种创建和打开文件的方法:其实本示例是创建了FileSystemObject对象,然后用FSO对象的FileExists、CreateTextFile、OpenTextFile方法,对文件进行操作,演示了三种FSO对象的操作方法,对学习初级的FSO文件操作有相当好的帮助作用。
- 2022-02-07 21:26:36下载
- 积分:1
-
vb.net复制、移动删除及获取文件的各种属性
vb.net获取TXT文件的各种属性参数,除了复制、移动文件、删除文件外,还可获取到文件的各种属性参数,不过只是针对TXT文本文件,可以获取到以下的参数:文 件 名 、路 径 、文件大小 、创建文件时间、最近访问时间、最近写入时间、是否隐藏文件、是否只读文件、是否系统文件 、是否脱机文件等 。
- 2022-01-26 07:50:33下载
- 积分:1
-
VB 数据库连接通用类
VB 数据库连接通用类,这个数据库连接类支持的版本比较多了,不过有些老了,但是大致的连接原理都一样,支持Access95、Access2000、SQLServer、Dbfiles、Excel等各类存储型数据库的连接方法,并制作成了窗口的形式,以及测试程序,可以打开此数据库测试连接方法。
- 2023-04-15 17:45:04下载
- 积分:1
-
VB 利用Tag属性存储用户名
VB 利用Tag属性存储用户名
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "用户名或密码不能为空", vbCritical, "信息提示"
Exit Sub
Else
If Text1.Text = "TSoft" And Text2.Text = "111" Then
Me.Tag = Text1.Text
Frm_Main.Show 1
Unload Me
Else
MsgBox "输入的名户名或密码不正确", vbCritical, "信息提示"
End If
End If
- 2022-02-04 07:45:58下载
- 积分:1
-
VB 网络连通检测
VB 网络连通检测,单击命令按钮可进行网络连通检测,判断是本机否连接到Internet。操作很简单,将连通测试检测结果输出到屏幕上。
- 2023-08-30 14:45:02下载
- 积分:1
-
VB 值参与变参举例
VB 值参与变参如何用的小例子源码,这个其实平时有时候也用到了,只是不知道这是值参或是变参,通过这个小实例,你或许对这两者的用法会更熟悉些,以下代码仅供参考:
Private Sub Command2_Click()
Dim a As Integer, b As Integer
a = 10: b = 20
Picture2.Print "交换前:a="; a; " b= "; b
Swap2 a, b
Picture2.Print "交换后:a="; a; " b= "; b
End Sub
- 2022-07-25 08:20:44下载
- 积分:1