模块拆分或Form.Code

hendie · 发表于 2007-3-9 11:16:27

我有一个关于哪个更好的问题（我知道的一个相对术语），表单中的所有代码还是拆分成模块？我有一个带有一堆按钮的表单，当用户选择一个按钮时，它会调用应用的模块。我遇到的问题与范围有关。我有一个实用程序函数，它将当前层设置为变量，更改层，工作，并将层更改回来。我的问题似乎是变量（全局声明）似乎正在失去它的价值。我知道如果我将所有代码都保留在1个模块内，我就不会/不应该有范围问题。把所有代码放在一个地方有什么问题吗？

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

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

Bryco · 发表于 2007-3-12 04:38:14

将所有代码放在一个地方没有错，比如表单等。这完全取决于您希望代码的可移植性和模块化程度。
当我第一次开始编写vba时，我倾向于将所有代码放在一个地方，99%的时间都放在表单模块中。
然而，我现在倾向于尽可能地编写模块化，并且仅将表单用于直接相关的事件

Bryco · 发表于 2007-3-12 10:10:07

因为我喜欢“在未处理的错误上中断”而不是“在类模块中中断”,所以我尽量在标准模块中写。从长远来看，从表单中分离一些subs似乎更快，因为首先让它做它需要做的事情，然后让它适应表单。此时，您只是对表单本身进行错误捕获。
因为它是以这种方式编写的，所以它更有可能用于其他目的，因此希望将其留在标准模块中。
所以我想这是我不把所有代码放在一个表单中的主要原因，如果我可以在其他地方使用其中一些代码，就把它们放在一个模块中。

Bryco · 发表于 2007-3-12 14:16:05

没想到要尝试一下。我是否会在表单初始化中声明枚举，然后在错误检查选择大小写时引用它？

Kerry · 发表于 2007-3-12 14:20:02

常量来自RR的用户按ESC时的错误检查代码。如果有更好的方法，我也许可以永远扔掉这个常量

Kerry · 发表于 2007-3-12 14:22:06

意义

Kerry · 发表于 2007-3-12 14:22:49

我真的不想白费口舌，但是我觉得这个词让我很困惑。以下是其中一个模块代码1]
您的意思是对此进行更改？

copy

Option Explicit
Public Enum CloseMode
  CloseMode_Close=???
  CloseMode_Cancel=&H1B  ' Added here and I would reference CloseMode.CloseMode_Cancel  ?
End Enum
Public Declare Function GetAsyncKeyState Lib "user32" _
                                         (ByVal vKey As Long) As Integer
Public Function AddBKR()
      Dim dimsc As Integer
      dimsc = ThisDrawing.GetVariable("DIMSCALE")
      Dim InsPT As Variant
      Dim intOsMode As Integer
      Dim dblRotation As Double
      Dim objBlockRef As AcadBlockReference
      '************** Esc Code *************
      Dim varCancel As Variant
      On Error GoTo Err_Control
      '************** Esc Code *************
      Call LayerSet("3D-EQPM", acRed)
      intOsMode = ThisDrawing.GetVariable("OSMODE")
      ThisDrawing.SetVariable "OSMODE", 32
      InsPT = ThisDrawing.Utility.GetPoint(, "Pick Insertion Point: ")
      ThisDrawing.SetVariable "OSMODE", 512
      dblRotation = ThisDrawing.Utility.GetAngle(InsPT, "Pick Cabinet Side: ")
      Set objBlockRef = ThisDrawing.ModelSpace.InsertBlock(InsPT, Path & "breaker.dwg", 1, 1, 1, dblRotation)
      '************** Esc Code *************
Exit_Here:
      LayerReSet
      ThisDrawing.SetVariable "OSMODE", intOsMode
      ThisDrawing.SetVariable "DIMSCALE", dimsc
      ThisDrawing.SetVariable "INSUNITS", 1
      Exit Function
Err_Control:
      Select Case Err.Number
            Case -2147352567
                  'Debug.Print Err.Number, Err.Description
                  varCancel = ThisDrawing.GetVariable("LASTPROMPT")
                  If InStr(1, varCancel, "*Cancel*")  0 Then
                        If GetAsyncKeyState(VK_ESCAPE) And 8000 > 0 Then
                              Err.Clear
                              Resume Exit_Here
                        ElseIf GetAsyncKeyState(VK_LBUTTON) > 0 Then
                              Err.Clear
                              Resume
                        End If
                  Else
                        If GetAsyncKeyState(VK_SPACE) Then
                              Resume Exit_Here
                        End If
                        'Missed the pick, send them back!
                        Err.Clear
                        Resume
                  End If
            Case Else
                  MsgBox Err.Description
                  Resume Exit_Here
      End Select
End Function

Kerry · 发表于 2007-3-12 14:24:01

当我有时间的时候，我会再看看，但是将const设为私有，应该可以正常工作。

Bryco · 发表于 2007-3-12 14:35:27

不完全是。我并不是说你应该完全使用我发布的内容。只是那种一般形式。这里有更适合您特定需求的东西。
顺便说一句，在我发布的另一个示例中，我没有明确为枚举的每个成员分配一个值，因为它在我从中提取的代码中是不相关的。
不。枚举应该在文件范围内（在任何过程之外）。
顺便说一句。我认为Bryco是对的。只是将Public Const更改为Private Const会更方便。抱歉，如果我让你白费力气了。

模块拆分或Form.Code

发表回复

精选推荐