登录
首页 » VB源码 » VB Seek语句设置随机访问文件的读取位置

VB Seek语句设置随机访问文件的读取位置

于 2022-03-24 发布 文件大小:2.03 kB
0 97
下载积分: 2 下载次数: 2

代码说明:

VB 设置随机访问文件的读取位置,本例中是使用Seek语句来设置随机访问文件的读取位置,代码编写方面,主要是掌握Seek的用法,以下代码将用户的单击行为作为触发Seek的事件条件:   Private Sub Command1_Click()    Dim str As String * 10    Open App.Path & "MyFile.txt" For Binary As #1    Seek #1, 5    Get #1, , str    Text1.Text = str    Close #1   End Sub   当用户单击按钮后,执行seek语句。

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

发表评论

0 个回复

  • 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
  • VB.NET获取Windows 7操作系统信息
    VB.NET获取Windows 7操作系统信息,本程序获取的内容比较多,主要有:显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、控制面板、辅助选项/常规、系统属性、增加打印机、添加/删除程序、显示安装/卸载、显示Windows 安装、添加/删除程序、Windows7时间/日期、Windows7背景设置、外观设置、键盘/速度属性、设备管理器。
    2023-06-05 04:30:03下载
    积分:1
  • vb6.0 字节数组和字符串的相互转换
    vb6.0 编程实现字节数组和字符串的相互转换,演示如何进行字节数组和字符串的相互转换.
    2023-03-14 07:50:04下载
    积分:1
  • vb 判断经历多少个工作日
    vb 判断经历多少个工作日,在两个日期选择器中选择日期值,然后判断选定的两个日期之间相差了多少天,判断两个定点之间的天数,比较基础,但也很有必要学习,时间和日期计算在很多软件中都要用到,这个例子相对简单些。大致代码:   If IsDate(Text1) = True And IsDate(Text2) = True Then    Dim i As Integer    i = gongzuori(CDate(Text1), CDate(Text2))    Label3.Caption = "经历" & i & "个工作日"   Else    MsgBox "请输入日期型"   End If
    2022-03-03 21:14:10下载
    积分:1
  • VB6.0 使用递归过程实现阶乘运算
    VB6.0 使用递归过程实现阶乘运算   Function F(n As Integer) As Single    If n > 1 And n
    2022-04-27 22:53:13下载
    积分: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版跳棋游戏源码,源代码中同样包括了很多注释,不过注释都是英文。这款跳棋感觉和国内的不一样,走棋方法不同,试着玩了,按照国内的走棋方法,棋子并不走动,不知道如何玩。但是源代码在VB6.0下可顺利编译成功,有兴趣的可下载源代码参考学习。运行效果如下图所示。
    2022-04-21 21:15:12下载
    积分: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
  • VB6.0演示的AutoSize实例
    VB6.0演示的AutoSize实例,自动改变图片框的大小以显示图形全部内容,当图片框比图形小时,图形超出部分不被显示,减少图片框高度,使图片框小于图形。
    2022-08-07 04:59:17下载
    积分:1
  • VB演示三种FileSystemObject文件操作方法
    FSO对象模型提供了三种创建和打开文件的方法:其实本示例是创建了FileSystemObject对象,然后用FSO对象的FileExists、CreateTextFile、OpenTextFile方法,对文件进行操作,演示了三种FSO对象的操作方法,对学习初级的FSO文件操作有相当好的帮助作用。
    2022-02-07 21:26:36下载
    积分:1
  • 696518资源总数
  • 105901会员总数
  • 40今日下载