-
VB6.0使用InPutBox显示密码输入框
VB6.0使用InPutBox显示密码输入框,InPutBox大部分情况下是用于输入数据,与用户交互,但这些数据并不是密码类型的,本实例是展示是使用InPutBox作为密码输入框,其实也是挺简单的:
Private Sub Command1_Click()
On Error GoTo Err_Out
Dim lTemp As Long
Dim sTemp As String
lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc)
sTemp = InputBox("请输入密码", "密码输入框")
Err_Out: End Sub
- 2023-02-13 07:30:04下载
- 积分:1
-
VB.NET 获取全局鼠标坐标范例
VB.NET 获取全局coordinate鼠标坐标,显示窗体内的XY坐标,窗体外凡是显示屏幕的任意位置都可以显示出坐标,获取全局鼠标坐标,测试截图是获取本窗口外的鼠标坐标,请参见截图效果。随着鼠标移动会显示出各个鼠标坐标点的XY坐标信息。单击窗口的“开始”按钮后,将执行以下代码获取全局坐标:
GetCursorPos(p)
tooltip1.SetToolTip(Me, "当前鼠标位置 X=:" & p.x & "Y=:" & p.y)
tooltip1.Active = True
- 2022-11-10 13:15:03下载
- 积分:1
-
VB演示 FileToSplit分割文件与合并文件
VB演示分割文件与合并文件,这里使用到比较多的文件操作函数,比如FileToSplit、FileLen、UBound、FileCount、FileInfo等。本范例文件分割的思路:程序通过调用FreeFile函数来取得可以的文件号,以二进制的方式打开文件,根据文件的长度FilesLen和每个分割单位的比较,得出被分割之后的子文件个数,重新定义最后一个子文件的大小,将所取得的内容,分别存储到各个子文件中,将文件分割情况,存储到自定义的结构类型FileInfoFile中,最后将文件分割的情况,存入到模版文件中。
关于文件合并,则可看作是上述的逆过程,不再详述,请参见源码中的文件注释。
- 2022-11-15 13:30:03下载
- 积分:1
-
vb串口调试助手源码,可用于自己做调试测试工具
1.用易懂的VB语言编程 2.可设置串口号波特率 3.支持十六进或字符形式发送或接收,可定时发送。3,可自己换程序的图片
- 2022-07-13 02:02:52下载
- 积分:1
-
窗体分割 窗口分栏程序- vB版
窗体分割 窗口分栏程序- vB版,这个可将窗口分为上下部分、左右部分,可分成二栏、三栏,通过程序左侧的参数设置面板,决定程序窗口要经过怎么的切割。本源码同样来自于国外源代码网站。代码注释英文,这里就不帖代码,你可以单击页面底部的“下载源码”按钮,下载本窗口切割实例的完整源码。
- 2022-09-05 06:00:03下载
- 积分:1
-
一个演示VB API高速搜索文件的程序
一个演示VB高速搜索文件程序,基于API来实现,用于快速查找文件,类似的例子在前几年的书籍实例中,有很多,这一个也是从VB的书中整理出来的,代码中有丰富的注释,主要是分享给VB新手参考学习的。
- 2022-10-25 13:25:04下载
- 积分:1
-
vb.net 捕获键盘按键和鼠标XY坐标位置
vb捕获键盘按键和鼠标坐标位置,监测鼠标的位置和鼠标按键的名称,如窗体所示,随意移动鼠标,即可适时显示出鼠标坐标,若敲击键盘,则会获取到哪一个键被按下,两个功能的代码写在按钮事件中,获取鼠标XY坐标位置:
Me.Label3.Text = "x=" + e.X.ToString() + " y=" + e.Y.ToString()
获取键盘按下:
Me.Label4.Text = "code=" + e.KeyCode.ToString() + " value=" + e.KeyValue.ToString()
- 2023-06-22 15:00:03下载
- 积分:1
-
VB 调用API函数设计关于窗体
VB 调用API函数设计关于窗体,看第一眼,我还以为是调用Windows系统的关于窗口,仔细看,定义了自己的信息,这个例子可看作是VB使用API函数的例子,了解一些用法,关于本例子中的API用法,可看以下代码:
API函数声明:
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
Private Sub Form_Load()
Call ShellAbout(hWnd, "源码素材网", " 欢迎访问网站:http://www.codesc.net!", Me.Icon)
调用了ShellAbout显示信息,更多内容请下载源码。
- 2022-01-25 16:50:26下载
- 积分:1
-
VB 实现FTP功能的小程序 包括FTP操作类
VB 实现FTP功能的小程序 包括FTP操作类,将诸多功能收集到一块,实现了一个简单的FTP客户端程序,可用来下载和上传一些文件,该程序由busywxp改编,修复了源程序中的一些bug。现在可程序可完成文件编码类型的切换,比如ASCII、二进制的转换,还可选择传输的类型是主动类型或是被动类型,程序窗口基于分隔条进行分割,用于显示不同的功能,你可了解超多的VB网络编程知识和窗口可视化的相关操作。
- 2022-06-30 23:29:33下载
- 积分:1
-
VB6.0 使用递归过程实现阶乘运算
VB6.0 使用递归过程实现阶乘运算
Function F(n As Integer) As Single
If n > 1 And n
- 2022-04-27 22:53:13下载
- 积分:1