问题-刚刚开始

TimSpangler · 发表于 2006-7-14 14:51:22

随着所有这些关于VBA-lisp的谈话，我决定打开VBAIDE并开始探究我的头。我对VBA的技能水平约为-1。我必须说，我确实比DCL更喜欢表单编辑器。好的，所以首先我打开了帮助并开始浏览。我决定从小处着手（非常小）。我在帮助中找到了一个项目;

copy

Sub Ch4_IteratingLayers()
    Dim layerNames As String
    Dim entry As AcadLayer
    layerNames = ""
    For Each entry In ThisDrawing.Layers
        layerNames = layerNames + entry.Name + vbCrLf
    Next
    MsgBox "The layers in this drawing are: " + _
           vbCrLf + layerNames
End Sub

我开始改变一些东西，看看到目前为止有什么好。
我的问题是什么是“vbCrLf”？
我希望做的是创建一些可重用的功能并存储它们。要做到这一点，我是否创建一个新模块并向其添加函数？
如何让子返回信息，即如何让上面的子返回可以在列表框中使用的列表？
谢谢大家。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Atook · 发表于 2006-7-14 15:07:34

我很确定它是:
vbCrLf=Visual Basic Carraige换行符。
字符串中“回车”字符的常数。

TimSpangler · 发表于 2006-7-14 15:07:59

vbCrLf 表示回车行源。它基本上是一个换行符语句。
我通常将所有功能保存在一个模块中，然后将其导入到每个项目中。不确定这是否是最好的方法，但它对我有用。
如果希望函数返回某些内容，则需要将其命名为这样。例如，如果我想要一些东西来返回一个布尔值，你需要创建一个函数
，比如

copy

Public Function IsItemValid(Item as string) as Boolean
'perform validation code here
If ValidationCodeIsTrue then
    IsItemValid = True
Else:
    IsItemValid = False
End Function