VB新手入门问题

Posted 2023-04-16

问题可能有点多，但是分值也不低，请高手赐教~1：VB保存文件后生成4个后缀为.frm、.vbp、.frx、.vbw的文件，他们各代表什么，有什么意思？2：VB的CommonDlg控件怎么使用3：VB的编辑框调到“只读”4：VB有没有像易语言一样的“透明标签”控件，如果有，请说明在哪里可以调到；如果没有，请写出能标签实现类似于透明标签的代码5：VB编译的软件怎么修改描述、版权、产品名称、版本、.......6.VB怎么实现先读入桌面的文本后进行分割文本77.VB怎么读、写配置项8.VB有想易语言一样的插入字节集或常量什么的吗9.如果想要保存一个文本到程序内，但不写出去，易语言可以用文本常量，VB可以用什么？10.一些常量怎么使用，比如我知道了换行的VB常量为10，那在代码中该怎么写？另寻找VB免费食府一名，本人不是小白有易语言基础！

参考技术A 1：Vbp文件：即VisualBasic Project，就是一个VB工程概括文件。在我们保存工程后，会生成很多的文件，但是我们只需要双击Vbp文件就能打开整个工程。 Frm文件：即Visual Basic Form，每一个Frm文件就是一个窗体，一个Frm文件中包含了一个窗体的所有信息，包括控件设置，窗体本身的设置，这个窗体的代码等。Frx文件：即Visual Foxpro 报表文件，这个文件默认不是由VB打开的，但是却也是由VB生成的。它的功能是存储某一个窗体上的图像，窗体的Icon（图标）属性和Picture（图片）属性（包括这个窗体上所有能显示图像的控件的Picture属性）的图像并不是由文件加载的，而是从这个文件里加载的。（以后的《VB6.0生成文件内部构造简述》中会说到)Vbw文件：即Visual Basic ProjectWorkSpace，这是VB工程的工作区文件。用过VC++的都知道，VC++的工程不是从工程文件打开，而是从工作区文件中的打开的。但是VB的工作区文件默认是打不开的，而且这个文件即使被删除也不会影响工程。2.commondlg控件是用来操作诸如“打开，保存，另存”等操作的控件，主要参数为filefilter以及操作模式。3.textbox1.readonly=true4.Label是可以取消背景色的，也就实现了透明。5.在工程属性和编译属性中可以修改类似的描述和参数。6.用open方法可以打开各种文件，包括文本文件和二进制文件。7.不知道你说的配置项是不是指的注册表，vb中有专门的函数读取注册表。8.没用过易语言，不清楚你想实现什么9.vb可以用文本常量10.常量定义比较简单，vb中也有一些常用的常量，例如vbcrlf代表回车符，vbtab，代表TAB等等。 另外，本人曾经学过点vb，不知道还能记起来否，愿意和你一起讨论。 参考技术B Vbw文件：是vb工程组文件，有时我们会把多个工程加入到一个工程组中进行工作commondlg：公用对话框控件，用来进行诸如“打开，保存，另存”等操作自定义常量用const，如Const n = 3，vbcrlf之类的是系统定义的VB常量 参考技术C 在同一目录下，放有数字（HScroll1取值范围）.jpg图片文件
Private Sub HScroll1_Change()
image1.picture=loadpicture（HScroll1.Value & ".jpg"）
End Sub

VB - 检索自上次更改以来对 .txt 文件的新增内容

【中文标题】VB - 检索自上次更改以来对 .txt 文件的新增内容

【英文标题】：VB - Retrieving new additions to .txt file since last changed

【发布时间】：2017-09-27 11:26:11

【问题描述】：

所以基本上我要做的是创建一个日志监视器。我需要监视 .txt 日志文件的更改，当它更改时，检索自上次更改数组以来的最新行。从那里我将根据行的内容制作事件。但我无法弄清楚的部分是日志监控。我是 VB 的新手，本学期刚开始我的 VB 入门课程，但我已经将 PHP 作为一种爱好编程了 6 年。有什么建议吗？

【问题讨论】：

你可以在这里找到 C# 实现：***.com/a/2373515/5601657

【参考方案1】：

这是这个 C# 实现的 vb.net 转换 (https://***.com/a/2373515/5601657)

您可以存储上次读取操作的偏移量，并在收到更改的文件通知时将文件查找到该偏移量。下面是一个例子：

主要方法：

Public Shared Sub Main(args As String())
    File.WriteAllLines("test.txt", New String() )
    New Thread(Function() ReadFromFile()).Start()
    WriteToFile()
End Sub

从文件读取方法：

Private Shared Sub ReadFromFile()

    Dim offset As Long = 0
    Dim fsw As New FileSystemWatcher() With  _
    Key .Path = Environment.CurrentDirectory, _
    Key .Filter = "test.txt" _


    Dim file__1 As FileStream = File.Open("test.txt", FileMode.Open, FileAccess.Read, FileShare.Write)

    Dim reader As New StreamReader(file__1)
    While True
        fsw.WaitForChanged(WatcherChangeTypes.Changed)

        file__1.Seek(offset, SeekOrigin.Begin)
        If Not reader.EndOfStream Then
            Do
                Console.WriteLine(reader.ReadLine())
            Loop While Not reader.EndOfStream

            offset = file__1.Position
        End If
    End While
End Sub

写入文件方法：

Private Shared Sub WriteToFile()
    For i As Integer = 0 To 99
        Dim writeFile As FileStream = File.Open("test.txt", FileMode.Append, FileAccess.Write, FileShare.Read)

        Using file__1 As FileStream = writeFile
            Using sw As New StreamWriter(file__1)
                sw.WriteLine(i)
                Thread.Sleep(100)
            End Using
        End Using
    Next
End Sub