精华内容
下载资源
问答
  • 这只一个word文档 !里面包含了 !VB编程里最基本的几个小例子!对VB的练习有很大的帮助!包括:记事本、简易科学计算器、选择题!其中代码以及各功能键的代码都写得很详细!以及界面设计都很明了!!!
  • 今天,我们共同来学习用VB编程读取记事本和Word文档内容。用到的VB知识主要有控件的应用、文件的读写操作。VB读取记事本和Word文档运行图程序实现过程1、首先添加控件,如下图2、读取记事本文件代码实现Private Sub ...
    点击上方蓝字 高效学编程喽5b3e1581e90334aa2a3b54da0ca26340.pngVB编程,功能强大。今天,我们共同来学习用VB编程读取记事本和Word文档内容用到的VB知识主要有控件的应用、文件的读写操作

    69c87ec3cd39399627e6971b1778c165.png

    VB读取记事本和Word文档运行图

    程序实现过程

    1、首先添加控件,如下图

    3a91fc61573ff0279c8ad86e4482c794.png

    2、读取记事本文件代码实现

    Private Sub Command1_Click() '读取记事本文件内容Dim content As StringOpen App.Path & "\test.txt" For Input As #1 '读取文件语句Do While Not EOF(1)Line Input #1, content '按行读取文件内容List1.AddItem content LoopClose #1End Sub

    3、读取Word文档内容实现

    Private Sub Command2_Click() '读取Word文档内容Dim wordDoc As Object    Set wordDoc = GetObject(App.Path & "\test.doc")    Text1 = wordDoc.content.Text    Set wordDoc = NothingEnd Sub

    最后,点击运行按钮,即可完成读取文档内容功能。

    程序实现相关知识

    顺序文件读写 

     打开文件

    Open “文件名” For 模式 As [#]文件号OutPut(写):新建或打开一个文件,进行写操作。文件若存在,则打开,写入信息覆盖原有信息;文件若不存在,则新建。Input (读) :打开一个文件,进行读操作。文件必须存在,否则出错。Append(追加):新建或打开一个文件,进行写操作。文件若存在,则打开,写入信息追加在原有信息之后;文件若不存在,则新建。

    [实例] 如果要打开“C:\USER”目录下一个文件名为“SCORE.TXT”的文件,对它写数据,指定文件号为#1,命令为代码怎么写呢?

    e70a55c11e25232316adb588236df300.png

     写操作

    写文件Print # 文件号,[输出列表]Write # 文件号,[输出列表]Write命令的功能和Print相同,区别在于Write命令是以紧凑格式输出,在数据项之间自动添加“,”分隔符,并给字符型的数据加上双引号。

    [实例] 区分Write#命令和Print#命令。

    bb5269fb90568557820198ceaf148f54.png

     读操作

    读文件 -Input # 文件号,变量列表  将读出的数据分别赋给指定的变量。  -Line Input # 文件号,字符型变量  从文件中读出一行赋给指定变量。  -Input $ (读取的字符数,# 文件号) 从文件中读取指定数目的字符。

    读/写文件时常用的两个重要函数:

    16d6dd8d25126b1b7d1d5a9451cacbc4.png

     关闭文件

    Close [[[#]文件号1] ,[[#]文件号2]…]

    (1)关闭1号文件:close  #1

    (2)关闭所有文件:close all 或 close

    相关函数讲解

    Input

    a52f588da2b008e7ef8d975fd8fe8037.png

    Input:Input (字节数,[#]文件号)

            从文件的访问当前位置读入指定字节数的数据。仅适用于顺序文件和二进制文件。

    EOF

    EOF:EOF(文件号)

            判断文件的访问位置是否在文件尾,如果是,返回True,否则,返回False。

    f4b1b334f34a84f902891e554ead122e.png冬季学VB正当时1VB视频学习教程特惠发放

    VB基础入门教程、VB从入门到精通全套视频教程、VB与数据库开发专项讲解视频、串口通信视频教程特惠发放,助力大家高效学习!

    2VB视频直播讲解开启

    从VB零基础开始讲解,循序渐进,每节结合实际例子,每个知识点详细讲解,一对一单独指导讲解,轻松掌握VB编程!

    适合VB零基础、VB基础薄弱需要考试的同学以及工作需要的朋友学习。

    VB编程学习中有问题或者需要视频讲解资料可添加下图老师微信号,学习问题在线答疑。

    4d2cf631dc28f3c9a05855271882ec89.png

    祝大家学习成功!


    1076fe60cd9ee56e748f69eaea415a35.png

    跟我学VB

    帮助你顺利掌握VB编程语言

    展开全文
  • 今天学习了刘金玉老师VB编程教程的第21期,学习的主要内容是冒泡排序算法。一、算法的主要种类1.算法的种类有冒泡排序法、选址排序法、折半查找法、快速排序法、穷举法等。2.补充知识:variant数据是一种特殊的数据...

    今天学习了刘金玉老师VB编程教程的第21期,学习的主要内容是冒泡排序算法。

    一、算法的主要种类

    1.算法的种类有冒泡排序法、选址排序法、折半查找法、快速排序法、穷举法等。

    2.补充知识:variant数据是一种特殊的数据类型,除了定长string数据及用户定义类型外,可以包含任何种类的数据。使用vartype函数或者typename函数来决定如何处理variant中的数据。

    二、冒泡排序法

    1.定义变量时如果没有明确变量类型,那么它默认的类型为variant类型。

    Dim n = dim n as variant

    2.初始化

    N=array(1,9,3,12,2,77,41,28)

    3.求数组的长度:知道ubound函数(上边界的位置),lbound函数(下边界的位置)。求数组n的长度=ubound(N)-lbound(N)+1。这种算法可以动态计算数组的长度。

    4.冒泡排序案例:

    Private Sub Form_Load()

    Show

    Dim n As Variant

    n = Array(4, 7, 2, 5, 77, 43, 33, 88)

    Dim length As Integer

    length = UBound(n) - LBound(n) + 1

    Dim i As Integer

    Dim s As String

    For i = 0 To length - 1 Step 1

    s = s & n(i) & " "

    Next i

    Print s

    Dim j As Integer

    For i = 1 To length - 1 Step 1

    For j = 0 To length - 2 Step 1

    If n(j) > n(j + 1) Then

    Dim Z As Integer

    Z = n(j)

    n(j) = n(j + 1)

    n(j + 1) = Z

    End If

    Next j

    Next i

    R = ""

    For t = 0 To length - 1 Step 1

    R = R & n(t) & " "

    Print R

    Next t

    End Sub

    e40a9d218203c68c9cdbe28eab7e7364.png

    输入代码

    97340128cd41a89678418d5d9841686c.png

    运行结果

    今天这节课把我难住了,感觉上一节课的for循环没有吃透,这节课用到for循环来排列数据,有点吃不消了,跟着老师写代码,写出来运行效果却不一样,郁闷啊。

    展开全文
  • VB编程经典资源,包括记事本VB的制作。VB编程经典资源,包括记事本VB的制作。VB编程经典资源,包括记事本VB的制作。VB编程经典资源,包括记事本VB的制作。VB编程经典资源,包括记事本VB的制作。VB编程经典...
  • Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Dim strtemp As String * 60 ...
        
    VB编程:用Shell函数打开记事本-54


    Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
    Dim strtemp As String * 60

    Private Sub Command1_Click()
        Dim L, S
        Dim paths As String

        L = GetSystemDirectory(strtemp, Len(strtemp))
        paths = Left(strtemp, L) & "\NOTEPAD.EXE"
        S = Shell(paths, vbNormalFocus)
    End Sub
    展开全文
  • 这估计是我的第一个C#程序吧(如果HelloWorld不算),虽然只写了开头,应该是没什么犹豫,为了督促自己搞定这个记事本,故有此文。  考虑到自己的习性,博客可能会不定时更新,运气好每天都有更,但愿每天都好运。...

         这估计是我的第一个C#程序吧(如果HelloWorld不算),虽然只写了开头,应该是没什么犹豫,为了督促自己搞定这个记事本,故有此文。

         考虑到自己的习性,博客可能会不定时更新,运气好每天都有更,但愿每天都好运。

    废话略多,进入正题。

         高中学过VB,加上后来接触过AU3,画个窗口还是驾轻就熟。 

    由于对C#很不熟悉,脱离了AU3强大的(个人感觉是的。。。如果有问题欢迎指出)UDF,连最基本的保存文件都不会。

         所以果断从界面上下手,先着手于Richtextbox的自动换行问题, 搜索网络知这是wordwrap属性,于是解决了第一个menuitem。

         下面考虑开始操作输入输出流。新建,保存,另存为,以及退出等。我是这样考虑的,首先需要一个保存项目的方法,观察记事本中新建的文件保存时弹出的窗口是另存为,那么可为另存为写一个方法。新建,判断是否有修改,如果修改需保存,使用另存为方法,写到这里,感觉方法最好先判断是否是打开的文件,是则保存,否则另存。然后保存判断是否为打开的文件,判断是否另存为。退出也需判断,是否需保存。

         那么,开始干活了。 

    展开全文
  • 代码 Private Sub Command1_Click() Text1.FontSize = Text2.Text End Sub Private Sub Command2_Click() Open App.Path & "\保存.txt" For Append As #1 Print #1, Text1.Text Close #1 End Sub ...
  • vb编程记事本程序帮助热爱vb编程的人参考学习,一起努力进步。
  • vb-私密记事本开发

    2013-01-22 13:07:37
    vb菜鸟编程,跟简单的东西,有兴趣的下载看看
  • 今天,我们共同来学习用VB编程读取记事本和Word文档内容。用到的VB知识主要有控件的应用、文件的读写操作。VB读取记事本和Word文档运行图程序实现过程1、首先添加控件,如下图2、读取记事本文件代码实现Private Sub ...
  • 有个红外测温探头,下位机装置接收4-20MA信号,然后转换成数字信号通过串口记录到VB程序中,VB程序通过线性比将温度算出来,然后显示在text里,并记录到记事本,主要就是想看红外探头在运行中会出现异常温度数据吗...
  • Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Dim strtemp As String * 60 Private Sub Command1_C...
  • vb6.0 仿notepad程序源码,是一个记事本字符处理程序,在Windows中使用频率挺高,本记事本程序将一些常用的操作选项比如复制、粘贴、剪切、全癣保存等放在菜单栏上了,方便了用户的使用,也是你学习基本窗口编程的...
  • VB IDE编程环境增强插件Amic For VB(多标签、滚轮、API、自动缩进)。 主要功能: 1、自动收集需要打包控件和动态链接库、 2、自带API字典和快捷生成器、 3、快捷代码记事本、 4、快捷窗体类似控件矩阵生成助手、 5...
  • 记事本 VB2005 无源码 用于学习交流 陈泽楠 自己做的一个记事本,自己做编程的联系作品 其中有部分源码由网友提供,谢谢网友的大力支持与合作
  • 这是一个很不错的记事本。 1 自定义语法高亮,支持HTML, XML, CSS, JavaScript, VBScript, ASP, PHP, CSS, Perl/CGI,C/C++, C#, Java, VB, Pascal, 汇编, SQL, Python, NSIS,INI, REG, INF, BAT,DIFF等众多脚本...
  • 本节课程开始,我们一起来学习VB编程中的一个重要元素——菜单栏的设计。菜单栏是VB中一个重要内容,作为可视化编程,合理的设计菜单栏,可以极大的方便用户使用,让用户快速选择所需的各项功能,提升用户体验。下面...
  • *.pgx中的图片(13KB) 28,f029.ZIP VB编程中突破64K的文本显示限制(3KB) 29,f028.ZIP 文件的拖拉操作(5KB) 30,f027.ZIP 实现多文档界面的记事本, 需要active threed control(29KB) 31,f026....
  • 任何一个应用程序,都需要通过各种命令来达成某项功能,而这些命令,大多数是通过程序的菜单来实现的,如我们常常用到的记事本的菜单,如下图: 实例一: VB 提供了一个菜单编辑器,专门用来制作各式各样的...
  • g017 3维的breaKthrough游戏(8KB) 582,g016.zip 小蜜蜂射击游戏源程序, 不仅演示了 vb 的图形操作技巧,键盘操作,还演示了怎样使用 npmod32.dll(已包含,免费) 来播mod,s3m,mpp,med,xm,it,mdz,itz,xmz,s3z 等...
  • g017 3维的breaKthrough游戏(8KB) 582,g016.zip 小蜜蜂射击游戏源程序, 不仅演示了 vb 的图形操作技巧,键盘操作,还演示了怎样使用 npmod32.dll(已包含,免费) 来播mod,s3m,mpp,med,xm,it,mdz,itz,xmz,s3z 等...
  • g017 3维的breaKthrough游戏(8KB) 582,g016.zip 小蜜蜂射击游戏源程序, 不仅演示了 vb 的图形操作技巧,键盘操作,还演示了怎样使用 npmod32.dll(已包含,免费) 来播mod,s3m,mpp,med,xm,it,mdz,itz,xmz,s3z 等...
  • g017 3维的breaKthrough游戏(8KB) 582,g016.zip 小蜜蜂射击游戏源程序, 不仅演示了 vb 的图形操作技巧,键盘操作,还演示了怎样使用 npmod32.dll(已包含,免费) 来播mod,s3m,mpp,med,xm,it,mdz,itz,xmz,s3z 等...
  • VB简单的编程 亮灯,查询,记事本,键盘鼠标事件等等
  • 在 Windows中,文档分为单文档(SDI)和多文档(MDI)两种,如我们熟悉的“记事本”就是一个典型的单文档程序,它最明显的特点是一次只能打开一个文件,当新建一个文件时,当前文件自动被替换掉。 多文档界面,如...
  • Windows应急记事本

    2020-03-03 11:07:02
    本程序由VB语言编写而成,算是初学VB的一点小小成果,欢迎大家下载! 若有不足还望大家多多给建议,大家的下载是每一个编程初学者的动力! 谢谢。
  • 超级记事本Notepad

    2010-02-11 08:55:06
    超级记事本Notepad 支持ASCII和 UNICODE 编码 可以自动识别C,C++,C#,JAVA,VB,CSS,PHP,ASP等所有编程人员所用的语言。
  • 记事本(5KB)...

    2009-10-07 15:35:25
    VB之文件处理精彩编程-记事本(5KB)
  • xms记事本(23KB)...

    2009-10-07 14:53:15
    文件处理 源代码 VB之文件处理精彩编程-xms记事本(23KB)
  • StatusStrip:状态栏控件,一般情况下显示于窗体最底部,用于显示窗体相关信息,例如记事本的状态栏显示了鼠标当前所在的行和列: 在vs编辑器中添加了StatusStrip后,它也显示在窗体的底部: 按下小箭头,我们...

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 132
精华内容 52
关键字:

vb记事本编程