-
VB 演示如何使用WeekdayName获取星期名称
VB 演示如何获取星期名称,这里获取星期几是使用了VB内置的WeekdayName函数,将获取到的日期和星期几直接显示在Text控件中,下面是这个函数的具体用法:
Private Sub Command1_Click()
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub
Private Sub Form_Load()
Text1.Text = Date
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub
在VB6.0 IDE环境中编译此源代码,生成如演示截图所示的运行效果。
- 2022-11-30 01:55:03下载
- 积分: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,在数据库端进行重复数据判断:
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
-
vb.net 串口通讯测试项目源码
vb.net 串口通讯测试项目源码,本源码用于练习SerialPort控件、DataReceived事件、16进制操作,同时用于工程需要。作者:李潇海。
运行后先检测测试需用的COM端口是否打开,弹出提示。
测试时请确保发送周期为正整数!串口测试窗口中,可配置参数:端口、波特率、检验位、数据位、停止位等,支持以十六进制发送和接收数据,还可以毫秒定时发送数据。操作方式上,可设置自动清空测试数据,发送文件或发送数据等。右侧为串口测试时的结果显示区。
- 2023-02-14 09:00:03下载
- 积分:1
-
VB6.0仿迅雷悬浮窗口(图标)的实现源码
VB6.0仿迅雷悬浮窗口(图标)的实现源码,迅雷的悬浮窗相信大家很熟悉了,其实就是显示一个图标,悬浮在屏幕上,通过这个悬浮图标可单击右键调出菜单,双击图标则会显示主窗口,本源码模拟了悬浮窗口的实现,另外是模拟了悬浮窗口双击显示主窗口的功能。代码中注释不多,不过没有使用过多复杂的代码,对VB新手友好。
- 2022-03-24 09:58:35下载
- 积分:1
-
VB删除指定路径下的文件夹【目录】
VB6.0 删除指定路径下的文件夹【目录】 ,删除时请输入要删除文件夹的所在路径和名称,单击按钮即可。支持遍历目录删除文件,我觉得这是一个挺好的使用FSO操作的VB范例,对于VB新手学习相关的文件操作有很好的帮助。
- 2022-03-19 05:31:28下载
- 积分:1
-
VB让窗口标题栏闪烁效果源码
VB让窗口标题栏闪烁效果源码,不过我测试没有发现标题栏闪烁,咋回事呢?实现的思路是:声明API函数Flashwindow,然后编写下面的代码:
Call FlashWindow(hwnd, 1)
If Me.Caption = "闪烁的标题栏" Then
Me.Caption = "欢迎使用管理软件! "
Else
Me.Caption = "闪烁的标题栏-www.codesc.net"
End If
- 2022-08-08 08:27:55下载
- 积分:1
-
VB 删除指定类型文件
VB 删除指定类型文件,用户选择电脑中指定路径下的文件类型后,可删除该目录下所有此类型的文件。
- 2022-10-25 21:50:02下载
- 积分:1
-
文件夹复制VB6.0实例
文件夹复制VB6.0实例源码,这里用了一个用户自定义函数,此函数可以出现一个对话框,并返回所选择的路径,若没有选择返回("")。模拟了Windows系统的文件夹模拟功能,看上去比较低级,只是通过这个功能,熟悉一些VB与文件操作的函数用法。
- 2022-03-05 20:29:32下载
- 积分:1
-
VB 只允许输入特殊字符
VB 只允许输入特殊字符,这只是一个普通的用户查询窗口,字段名称、运算符、关 键 字,然后对其进行查询,因为要向cbofields中添加规范化数据,所在再输入时只能输入“>”、“
- 2022-03-19 10:07:52下载
- 积分:1