-
VB6.0 获取汉字拼音简码(首字母)
VB6.0 获取汉字拼音简码,获取汉字拼音首字母,这个比较实用了,现在很多地方都会取首字母作为编号、帐号之类的,代码比较多,这里就不帖核心代码了,大家自行下载本源码吧,运行的效果如截图所示。
- 2022-04-15 06:44:52下载
- 积分:1
-
VB.NET API函数画线条示例
VB.NET API函数示例,使用VB api函数画线条的一个例子,如图所示的效果中,鼠标单击两端,即可画出一条直线,主要是学习使用VB.NET中的API画图函数用法。示例运行效果请参见截图所示,本页提供该实例的源码下载。
- 2022-03-22 10:44:12下载
- 积分:1
-
窗体分割 窗口分栏程序- vB版
窗体分割 窗口分栏程序- vB版,这个可将窗口分为上下部分、左右部分,可分成二栏、三栏,通过程序左侧的参数设置面板,决定程序窗口要经过怎么的切割。本源码同样来自于国外源代码网站。代码注释英文,这里就不帖代码,你可以单击页面底部的“下载源码”按钮,下载本窗口切割实例的完整源码。
- 2022-09-05 06:00:03下载
- 积分:1
-
vb6 批量生成证书、房屋等编号
vb6 批量生成证书、房屋等编号,学会了本例子,是个比较实用的技巧,在一些需要批量生成编号的地方,你都可以借鉴本程序,来实现编号生成,在本例中,是批量生成房屋的编号,用户可选择楼层范围、单元范围等参数后,即可快速生成编号。十分方便哦。这个小程序从界面和功能易用上来说,都设计的都好用的。
- 2022-10-19 14:10:03下载
- 积分:1
-
VB6.0 如何计算加权平均值
VB6.0 代码演示如何计算加权平均值,计算加权平均值可编写以下代码实现:
Private Sub Command1_Click()
Text7.Text = jiaquan(Text1, Text2, Text3, Text4, Text5, Text6)
End Sub
Private Function jiaquan(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer)
Dim sum As Integer
sum = (a * b + c * d + e * f) / (b + d + f)
sum = Round(sum, 2)
jiaquan = sum
End Function
- 2022-02-25 12:19:27下载
- 积分:1
-
VB Windows文件操作监视程序
VB Windows操作监视程序,一个 Windows的文件目录操作即时监视程序,可以监视在Explore中的重命名、新建、删除文件或目录;改变文件关联;插入、取出CD和添加删除网络共享都可以被该程序记录下来。源程序来源于国外,注释英文。运行界面效果如图所示。当有文件操作时,在程序运行窗口中会有所提示。
- 2023-06-19 19:00:03下载
- 积分:1
-
VB.net与OMRON CP系列PLC通讯的实例
VB.net与OMRON CP系列PLC通讯,截图是辅助程序:FCS校验计算器的运行效果,与PLC通讯的实例在PLC-PC文件夹下,源码在VB.NET环境编译。
LBIndustrialCtrls.dll放在debug目录中,与exe文件同级。
- 2023-03-30 11:55:03下载
- 积分:1
-
VB将程序图标添加到托盘
VB将程序图标添加到托盘,任务栏的系统托盘上有本程序的图标,并可通过图标的右键菜单,调出程序主窗口、退出关闭程序等功能,是一种比较常见的添加系统托盘的示例。
- 2022-03-24 10:49:35下载
- 积分: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制作可移动按钮位置的Toolbar工具栏
VB制作可移动按钮位置的工具栏,这个窗口中的Toolbar允许用户自己调整位置,可以拖动至指定位置,记得word中的工具栏就是这样,当你改变默认的工具栏布局时,程序会使用 MsgBox ("您确实要调整工具栏按钮的位置吗?")弹出确认信息。另外,本范例也可看作是一个在VB窗口中制作图标菜单的好范例,如示例图所示的效果。
- 2022-11-01 12:50:03下载
- 积分:1