精华内容
下载资源
问答
  • 易语言与VB代码互换源码,与VB代码互换,转换VB函数,删除函数编辑框空行,删除编辑框空行,转换VB函数_2,转换VB常数,转换VB自定义数据类型,转换VB子程序,转换VB全局变量,转换VB局部变量,子程序1
  • 去除空行[vb.net源码]

    2010-04-21 22:24:14
    在网页中复制的代码很多时候都有空格,可以用此工具去除文本中的空行
  • 删除excel某列空行

    2018-09-26 14:00:58
    有时候待处理的excel表格里有很多空数据的行,vb6删除excel某列空行
  • vb中运行vba代码 When changes need to be made to code, the easiest thing to do is obviously to just add, change or delete lines and be done with it. The problem with that is that after m...

    vb中运行vba代码

    When changes need to be made to code, the easiest thing to do is obviously to just add, change or delete lines and be done with it. The problem with that is that after making several modifications you may find that you need to undo something you did and it may be difficult to remember what changes were made. It can also be difficult to remember

    当需要对代码进行更改时,最简单的事情显然就是添加,更改或删除行并使用它来完成。 这样做的问题是,在进行了几处修改之后,您可能会发现您需要撤消所做的某些操作,并且可能很难记住所做的更改。 也可能很难记住

    why and/or when you made the changes.

    I learned by experience that the easy method is not the best method and so I started annotating my changes like the following...

    我从经验中学到,简单的方法不是最好的方法,因此我开始注释我的更改,如下所示...

    where this is the original code

    这是原始代码

        gbQuit = True
        frmProject.lblCounting.Caption = "Quit command accepted..."
        frmProject.tbarProject.Buttons(3).Enabled = False
        mnuPrint.Enabled = False
    

    and this is the modified code.

    这是修改后的代码。

        
        gbQuit = True
        'new
        frmProject.lblCounting.Caption = "Quit command accepted..."
        'frmProject.tbarProject.Buttons(3).Enabled = False
        frmProject.tbarProject.Buttons(4).Enabled = False
    
        mnuPrint.Enabled = False
    

    That would indicate to me that I changed the line that refers to the 'Buttons' and showed me what is was before, and the blank line indicated that the change ended on the line above it. That's all well and good but it doesn't help resolve the why and when issue.

    这将向我表明我已更改了引用“按钮”的行,并向我显示了之前的内容,而空行则表明更改已在其上方的行结束。 一切都很好,但这无助于解决问题的原因和时间。

    My annotation scheme now includes two ingredients.

    我的注释方案现在包括两个要素。

    Part 1.

    第1部分。

    I add a module named ChangeLog to every project. The contents of ChangeLog always look something like the following. For certain projects there may be a Programmer Name column and/or other data, but the actual format isn't important as long as the why and when information is included.

    我向每个项目添加一个名为ChangeLog的模块。 ChangeLog的内容始终类似于以下内容。 对于某些项目,可能会有“程序员名称”列和/或其他数据,但是实际格式并不重要,只要包括为什么和何时包含信息即可。

    Option Explicit

    显式期权

    '*********************************************************************************

    '***************************** ********** ********** ********** ********** ********** ******

    '*                                                          CHANGE LOG                                                         *

    '*更改日志*

    '*********************************************************************************

    '***************************** ********** ********** ********** ********** ********** ******

    'Release   Date      Change Description

    '发布日期更改说明

    '-------   --------  -------------------------------------------------------------

    '------- -------- ------------------------- ---------- ---------- ---------- ------

    '01.00     07/07/08  (a) Initial release

    '01 .00 07/07/08(a)初始版本

    '01.10     07/15/08  (a) Several changes to zoom function including:

    '01 .10 07/15/08(a)缩放功能的多项更改,包括:

    '                        - Prevent zoomed image from becoming too large, or smaller than

    '-防止缩放的图像过大或过小

    '                          original size

    ' 原始尺寸

    '                        - Ctrl_r = re-center

    '-Ctrl_r =重新居中

    '                        - Magnifying glass cursor

    '-放大镜光标

    '                    (b) Found a second camera manufacturers comment,

    '(b)找到第二家相机制造商的评论,

    '                        so created frmComment dialog, gcolExclude (comments to be excluded),

    '这样就创建了frmComment对话框,gcolExclude(要排除的注释),

    '                        and mnuComments

    '和mnuComments

    '                    (c) Corrected problems when app closed in "Full Screen" mode

    '(c)更正了在“全屏”模式下关闭应用程序时的问题

    '01.20     07/25/08  (a) Added crop function

    '01 .20 07/25/08(a)添加了裁剪功能

    '                    (b) Added tooltips to frmDisplay

    '(b)在frmDisplay中添加了工具提示

    '                    (c) Corrected a problem where the same starting tooltip was always shown

    '(c)更正了始终显示相同的启动工具提示的问题

    '                        depending on how they were handled

    '取决于处理方式

    Part 2.

    第2部分。

    I've developed add-ins for both VB6 and Excel VBA that allow for easy code annotation. The VBA version probably works for other Office applications in addition to Excel but I haven't tried it. Please leave a comment to let me know if you were successful or not.

    我已经为VB6和Excel VBA开发了加载项,这些加载项可简化代码注释。 VBA版本可能适用于除Excel之外的其他Office应用程序,但我还没有尝试过。 请发表评论,让我知道您是否成功。

    Once installed and turned on (see instructions below), this toolbar will appear. Excel users note: This toolbar will appear in the Visual Basic toolbar, not in the workbook ribbon or in the workbook Add-Ins drop-down.

    一旦安装并打开(请参阅下面的说明),该工具栏就会出现。 Excel用户注意:此工具栏将显示在Visual Basic工具栏中,而不出现在工作簿功能区或工作簿加载项下拉列表中。

    Annotate Add-in Toolbar

    Annotate Selected Text

    注释选定的文本

    Set Descriptive Text

    设置描述文字

    Set Templates

    设置模板

        '******* 01.20a Start *******
        ' Initialize zoom parameters
        mintZoomClicks = 0
        ReDim mDimensions(1 To 15) As ImageDimensions
        '******* 01.20a End *********
    

    After writing the two lines of actual code and adding the comment (like every good programmer does), the steps that resulted in the annotation were:

    在编写了两行实际代码并添加了注释之后(就像每个好的程序员一样),导致注释的步骤是:

    1. This step just needs to be done just once as it is saved for all programming sessions. Click the 'Set Templates' button which will show you this window.

    1.

    Set Templates

    2. Click the 'Set Descriptive Text' button which will show you this window

    2.单击“设置描述性文字”按钮,将显示此窗口

    Enter-descriptive-text.jpg

    3. Finally, just highlight the lines that you added or changed and press the 'Annotate' button and you'll get something like my annotation shown above.

    3.最后,只需突出显示您添加或更改的行,然后按“注释”按钮,您将得到上面显示的类似我的注释的内容。

    When you close Excel or VB6 and you've changed the descriptive text you'll see a message like this:

    当您关闭Excel或VB6并更改了描述性文字时,您会看到以下消息:

    Descriptive Text changed

    I haven't mentioned the other two buttons yet because they have nothing to do with annotation. You can consider them a bonus and they are:

    我还没有提到其他两个按钮,因为它们与注释无关。 您可以将它们视为奖励,它们是:

    Clear Immediate Window

    清除即时窗口

    Close other IDE Windows

    关闭其他IDE Windows

    Installing the Add-Ins

    安装加载项

    VB6 VB6

    Download the AnnotateVB6.txt attachment and change the name to AnnotateVB6.dll. It doesn't matter where you store it. Once you have the file renamed you need to register the dll. To do that go to Start|Run and enter regsvr32 C:\AnnotateVB6.dll on the 'Open:' line and press OK. You should get a message saying that the registration was successful.

    下载AnnotateVB6.txt附件,并将名称更改为AnnotateVB6。 dll文件 。 存放在哪里都无所谓。 将文件重命名后,您需要注册dll。 为此,请转到“开始” |“运行”,然后在“打开:”行上输入

    AnnotateVB6.txt AnnotateVB6.txt

    The final step is to go to the VB6 IDE and select the Add-Ins|Add-In Manager… menu item and select 'AnnotateVB6' from the list. Under 'Load Behavior I suggest selecting both available options.

    最后一步是转到VB6 IDE,然后选择“

    Excel 电子表格

    Download the AnnotateVBA.txt attachment and change the name to AnnotateVBA.dll. It doesn't matter where you store it. Once you have the file renamed you need to register the dll. To do that go to Start|Run and enter regsvr32 C:\AnnotateVBA.dll on the 'Open:' line and press OK. You should get a message saying that the registration was successful.

    下载AnnotateVBA.txt附件,并将名称更改为AnnotateVBA。 dll文件 。 存放在哪里都无所谓。 将文件重命名后,您需要注册dll。 为此,请转到“开始” |“运行”,然后在“打开:”行上输入

    AnnotateVBA.txt AnnotateVBA.txt

    The final step is to go to the Excel VBE and select the Add-Ins|Add-In Manager… menu item and select 'AnnotateVBA' from the list. Under 'Load Behavior I suggest selecting both available options.

    最后一步是转到Excel VBE,然后选择“

    Note that while this is a COM add-in you won't see it listed if you go to either File|Options|Add-Ins|COM Add-Ins (or Excel Add-ins).

    请注意,尽管这是一个COM加载项,但是如果您转到File | Options | Add-Ins | COM加载项(或Excel加载项),则不会看到它的列出。

    If you find that this article has been helpful, please click the “thumb’s up” button below. Doing so lets me know what is valuable for EE members and provides direction for future articles. It also provides me with positive feedback in the form of a few points. Thanks!

    如果您发现本文对您有所帮助,请单击下面的“竖起大拇指”按钮。 这样做可以让我知道对EE成员有价值的内容,并为以后的文章提供指导。 它还以几点的形式为我提供了积极的反馈。 谢谢!

    翻译自: https://www.experts-exchange.com/articles/11093/Documenting-changes-to-VB6-or-VBA-code.html

    vb中运行vba代码

    展开全文
  • vb如何删除空行

    千次阅读 2010-12-27 15:11:00
    str=replace(str,vbcrlf&vbcrlf,vbcrlf)

    str=replace(str,vbcrlf&vbcrlf,vbcrlf)

    展开全文
  • VB怎么改变字体?

    2020-12-31 09:25:30
    比如一个控件text1然后我打了个代码text1.text="日"怎么使运行的时候出现的"日不是宋体"?不好意思.我是个菜鸟PrivateSubCommand2_Click()Label1.Caption="这是print方法的事例"+vbCrL...比如一个控件text1然后我打了...

    比如一个控件text1然后我打了个代码text1.text="日"怎么使运行的时候出现的"日不是宋体"?不好意思.我是个菜鸟PrivateSubCommand2_Click()Label1.Caption="这是print方法的事例"+vbCrL...

    比如一个控件text1

    然后我打了个代码text1.text="日"

    怎么使运行的时候出现的"日不是宋体"?不好意思.我是个菜鸟

    Private Sub Command2_Click()

    Label1.Caption = "这是print方法的事例" + vbCrLf + "当输入项有多个时,各输入项之间可用逗号,分割" + vbCrLf + "3 + 5 = 8" _

    + vbCrLf + "当无输出项时,则可以理解成一个空行后换行" _

    + vbCrLf + "" + vbCrLf + "也可以用字符串常量vbcrlf换行" _

    + vbCrLf + "" + vbCrLf + "" + vbCrLf + "当输出项有多个时,各输出项之间也可将两种分割符混用" _

    + vbCrLf + "3 + 5 = 83 + 5 = 8"

    Label1.FontSize = 8

    End Sub

    Private Sub Label1_Click()

    Label1.Caption = "这是print方法的事例" + vbCrLf + "当输入项有多个时,各输入项之间可用逗号,分割" + vbCrLf + "3 + 5 = 8" _

    + vbCrLf + "当无输出项时,则可以理解成一个空行后换行" _

    + vbCrLf + "" + vbCrLf + "也可以用字符串常量vbcrlf换行" _

    + vbCrLf + "" + vbCrLf + "" + vbCrLf + "当输出项有多个时,各输出项之间也可将两种分割符混用" _

    + vbCrLf + "3 + 5 = 83 + 5 = 8"

    Label1.FontSize = 10

    现在我按Label1会出现那些我打的字..然后我按Command2会出现变大2号的字..那怎么让我按Command2的时候字除了边大,还能改变字体和颜色?

    展开

    展开全文
  • 程序代码 Private Sub Command1_Click()  Dim j As Integer  Dim i(100) As String  Text2 = ""  For j = 1 To Len(Text1)   i(j) = Mid(Text1, j, 1)   Text2 = Text2 & i(j...

    image

    程序代码

    Private Sub Command1_Click()
        Dim j As Integer
        Dim i(100) As String
        Text2 = ""
        For j = 1 To Len(Text1)
            i(j) = Mid(Text1, j, 1)
            Text2 = Text2 & i(j) & Chr(13) & Chr(10)
        Next j
       
        '去除文本框首尾空行
        If Left(Text2, 2) = Chr(13) & Chr(10) Then
            Text2 = Right(Text2, Len(Text2) - 2)
        End If


        If Right(Text2, 2) = Chr(13) & Chr(10) Then
            Text2 = Left(Text2, Len(Text2) - 2)
        End If
    End Sub

    总结:

    Chr(13) & Chr(10)表示回车换行

    展开全文
  • 本程序支持对sln(解决方案文件)、csproj(c#项目文件)、vbproj(vb.net项目文件)下所包含的源代码进行代码行数统计工作. 支持vs2003\2005\2008等版本所生成的解决方案文件或者项目文件 程序针对的语言为.net ...
  • vb代码规范

    2020-01-07 11:03:49
    vb代码规范 初次总结,随着以后学习的不断深入,会进行陆续补充,附加图例。如有明显谬误请指正。 代码书写的可读性要求 1. 可读性第一,效率第 2. 保持注释与代码完全一致 3. 每个函数,都应该有函数说明 ...
  • 实现代码1: 单元格删除Delete方法 单元格删除的通用算法 实现代码2 利用Union获取整个单元格区域进行统一操作 Union方法的注意事项 单元格插入Insert方法 示例: 如图所示,该表为某公司入库流水账,由于...
  • 这里是 利用replace 函数 在vb中实现 消除空行的一个程序这里的容器是richtext 可以扩充到其他容器 和其他字符 用于编写查找替换功能----------------------------------------------------------------------------...
  • VB代码计算器可以显示出你编写的VB代码一共写了多少行,自动排除空行,计算结果非常准确,同时也支持其他类型(例如文本文件、in文件等)的文件计算。可以用于Visual Basic编辑器的外接程序,独立使用,需要的用户...
  • dgvCal.Rows.Clear() '添加各列,并加表头 dgvCal.Columns.Add(0, "") For intI = 1 To intNum - 1 dgvCal.Columns.Add(intI, "第" & intI & "场") Next '输出各行数据 '显示多了一行空行,不如原因 For intI = 1 To...
  • 内容索引:VB源码,字符处理,编辑器 VB版简易文本编排器,对文字进行简单的排版,全角半角转换、删除空行及回车符、重载文本等,完成的都是些常规的功能,希望对VB新手有所帮助。  注:转载本站资源请注明出处!!
  • VBProject:代码操作代码之常用语句

    千次阅读 2013-08-27 09:13:12
     ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块"  系统常量vbext_ct_StdModule=1 2.增加一个类模块,命名为“我的类”  ThisWorkbook.VBProject.VBComponents.Add(vbext
  • 问题描述:文件tesxt.txt内容,如下,按行读取文件后,打印到控制台出现多个空行的问题。 使用部分代码: #代码1 with open('test.txt','r') as f: lines = f.readlines() for line in lines: print(line) f....
  • 精简VB程序的代码

    2011-12-10 17:43:05
    空行  其他元素,如变量、窗体和过程,确实要占用内存的一部分空间,最好将它们精简以使效率更高。当应用程序作为一个.exe文件运行时,有几项技术可用于缩小应用程序所需内存。以下技术可缩小代码大小:  1.减小...
  • VB命名规则及代码规范

    千次阅读 2010-02-23 11:21:00
    VBA命名规则及代码规范 马维峰(maweifeng@263.net) 1. VBA命名规则一个好的命名规则可以提高程序的可读性,减少错误发生的概率,命名规则不是一定的,不同的人有不同的规则和习惯,但在编程过程中,对于个人或...
  • 一、有关环境问题 针对Word开发的软件,不仅要自己电脑上可以用,应该在其他机器上也可以用。从引用开始,就面临了使用环境的...所以我也拆开了一条条说明,而不是完整代码。 创建一个类 myword 声明一个Word应用...
  • Word光速排版(VB6源码)

    2016-10-21 16:02:29
    VB6制作的Word自动排版插件,可自动清除段前断后空格,清除空行,自动设置章节目录为中文大写数字,批量替换文档中的字符,对23MB的文档仅需35秒。
  • 优化之路:精简VB程序的代码Java教程  1.标志符名称 2.注释 3.空行 其他元素,如变量、窗体和过程,确实要占用内存的一部分空间,最好将它们精简以使效率更高。当应用程序作为一个.exe文件运行时,有几项技术可...
  • word 2003的使用方式:工具→宏→宏,输入宏名“DelBlank”,后创建,在弹出的代码编辑窗口中,将文本文档中的内容覆盖代码编辑窗口中的内容,保存,使用时,运行该宏即可,会提示删除了多少空行。word 2010的使用...
  • 本文将通过“个性签名”这样一个简单的例子,来说明如何在图片上输出文字。 步骤一: 新建一个项目,控件只有两个:一个窗体,...编写窗体加载的代码,如下所示: Private Sub Form_Load() Me.Caption = "个性签名
  • VB.Net 删除空白行(原创)

    千次阅读 2007-03-12 10:08:00
    刚学VB.Net,代码很简单。有什么好的优化,还是那个地方要修改请通知我。用VS 2005的VB.Net,[文本文件操作]支持中文显示。界面设计如下: Imports System.IOImports System.DrawingPublic Class ...
  • 如图所示——如果能看到图的话。...如果各位有什么高见一定要给在下指教 本程序支持对sln(解决方案文件)、csproj(c#项目文件)、vbproj(vb.net项目文件)下所包含的源代码进行代码行数统计工作.
  • HTML、JSP、ASP、PHP内部包含的语言(JavaScript,StyleSheet)也可以分别计算。甚至JSP内部的Java代码,ASP内部的VB代码都可以分别统计。计算速度相当快。
  • 有时需要将自己的源码复制并且还需要带上行号,代码行数少到好说,如果行数很多,那就杯具了。...【此工具可以选择是否保留空行,可以选择是用Tab或者空格将行号和源码隔开。使用方便,实用,小巧】。

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,848
精华内容 1,139
关键字:

vb空行代码