登录
首页 » VB源码 » VB 6.0 利用文本框组输入数据

VB 6.0 利用文本框组输入数据

于 2022-08-17 发布 文件大小:2.33 kB
0 151
下载积分: 2 下载次数: 1

代码说明:

VB 6.0 利用文本框组输入数据,你会发现这量个矩阵类型的输入框,输入完一组数据后,会提示输入第二组,当所有都输入完成后,以3行4列的矩阵方式输出数组元素,输入的过程中支持光标的自动定位功能,你可以了解一些提高输入效率的基本操作,有利于提高软件的使用体验。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • vb.net复制、移动删除及获取文件的各种属性
    vb.net获取TXT文件的各种属性参数,除了复制、移动文件、删除文件外,还可获取到文件的各种属性参数,不过只是针对TXT文本文件,可以获取到以下的参数:文 件 名 、路 径 、文件大小 、创建文件时间、最近访问时间、最近写入时间、是否隐藏文件、是否只读文件、是否系统文件 、是否脱机文件等 。
    2022-01-26 07:50:33下载
    积分:1
  • VB6.0 获取汉字拼音简码(首字母)
    VB6.0 获取汉字拼音简码,获取汉字拼音首字母,这个比较实用了,现在很多地方都会取首字母作为编号、帐号之类的,代码比较多,这里就不帖核心代码了,大家自行下载本源码吧,运行的效果如截图所示。
    2022-04-15 06:44:52下载
    积分:1
  • VB NET SQLSERVER 酒店客房管理系统
    VB NET SQLSERVER 酒店管理系统,功能模块:基础设置、业务管理、预定管理、入住管理、收钱退房、信息查询、客房管理、预定信息查询、入住信息查询、入住客史查询等,只是一个基础级的酒店客户管理程序,测试前请把Database下的数据库附加,修改数据库连接字符串,然后运行Debug中的exe程序。
    2023-04-22 15:20:03下载
    积分:1
  • VB6.0演示的AutoSize实例
    VB6.0演示的AutoSize实例,自动改变图片框的大小以显示图形全部内容,当图片框比图形小时,图形超出部分不被显示,减少图片框高度,使图片框小于图形。
    2022-08-07 04:59:17下载
    积分:1
  • VB 删除指定类型文件
    VB 删除指定类型文件,用户选择电脑中指定路径下的文件类型后,可删除该目录下所有此类型的文件。
    2022-10-25 21:50:02下载
    积分:1
  • VB 演示创建视图 使用视图保存数据
    VB 演示创建视图 以及使用视图保存数据,数据库选择了MSSQL,根据各数据库字段创建视图,并使用这个视图进行数据保存,测试前请确保数据库连接成功。
    2022-07-17 20:55:23下载
    积分:1
  • VB Windows文件操作监视程序
    VB Windows操作监视程序,一个 Windows的文件目录操作即时监视程序,可以监视在Explore中的重命名、新建、删除文件或目录;改变文件关联;插入、取出CD和添加删除网络共享都可以被该程序记录下来。源程序来源于国外,注释英文。运行界面效果如图所示。当有文件操作时,在程序运行窗口中会有所提示。
    2023-06-19 19:00:03下载
    积分:1
  • VB6.0 实现表格样式的内容生成Excel表格式
    VB6.0 实现表格样式的内容生成Excel表格式,将DataGrid的表格数据转换成Excel格式,生成Excel表文件,用Offie套件就可以打开,在转换前可设置文字格式、样式等参数,看上去是一个国外的程序,代码里的注释全是英文的,如果E文好的话,推荐参考。
    2022-03-21 16:22:21下载
    积分:1
  • VB NET版 五子棋游戏
    VB NET版 五子棋(人机对弈),五子棋游戏源码,单击菜单中的开局即可开始游戏,人先走棋,电脑随后,每一步会有提示,游戏功能不算太复杂。源代码部分,主要实现了游戏数据初始化、获取鼠标单击位置值、绘制棋盘网格、定义图形类对象、重绘控件的控制等,可了解一下VB编写棋牌游戏的一些要领。
    2022-02-03 04:33:28下载
    积分:1
  • VB6.0 Mid判断指定字符串出现的次数
    VB6.0 判断指定字符串出现的次数,判断字符串A在字符串B中出现的次数,使用了VB的Mid函数来判断,如图所示的运行效果,单击按钮即可查看运行结果。代码验证判断部分,采用for循环遍历判断,代码如下:   Dim j As Integer   j = 0   For i = 1 To Len(Text1)    If Mid(Text1, i, Len(Text2)) = Text2 Then    j = j + 1    End If   Next i   Label2.Caption = "出现" & j & "次"
    2022-03-18 12:18:22下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载