添加模块和过程代码 你好,世界

信息概述

声明公共变量 在标准模块中

为了在应用程序中使用公共(全局)变量,我们必须声明它们 和 标准 模组,否则这些变量将不是公共变量(即使已声明它们 像公众!)

我们将在应用程序中需要以下四个 上市 (全局)变量:

标头创建过程 HelloWorld程序()

我们还需要创建一个新过程。我们可以编写过程头 手动或使用对话框 加 程序。根据我们的经验,我们建议使用 对话框中,添加新过程更加容易和快捷。

添加新过程的过程 使用“添加过程”对话框

显示一个空过程 代码窗口中的Hello World()

新的Sub过程的声明显示在代码窗口中:

现在没有什么阻止我们进入程序 你好,世界() 完成以下 程序代码。

完成代码的各个部分 HelloWorld程序()

在编写函数时,VBA将帮助您使用该函数编写程序代码 智能感知.

  Public Sub 你好,世界()
    Dim utilObj As Object
     ' 宣言 objektu
    Set utilObj = ThisDrawing.Utility
     ' pøiøazeni objektu Utility
  
    gtextInsertsText = "Nazdárek svìte!"
     'ini hodnota 文本u
    gtextVyska = 5     'ini hodnota výšky 文本u
    utilObj.CreateTypedArray gvarStredKruz, vbDouble, 50, 50, 0
     ' pøevod tøí hodnot souøadnic na pole Variant
    gboolDraw = 假  'ini nevykreslovat
 
    UserForm1.Show
     'zobrazení 形成e pro zadání hodnot
 
     If gboolDraw Then
      Set 文本Obj = ThisDrawing.ModelSpace.AddText _
        (gtextVkladanyText, gvarSouradnice, gtextVyska)
     'Vytvoøení 文本ového objektu
      文本Obj.Color = acRed   'nastavení barvy 文本u na èervenou
      ThisDrawing.Application.ZoomExtents
     'zvìtšení výkresu
      ThisDrawing.SaveAs ("PozdravSFormularem.dwg")
     'uložení výkresu pod novým jménem
    Else
      MsgBox ("Spatné zadání nebo byl dialog stornován")
     ' 显示 chybové zprávy
    End If
  End Sub

下一步

现在我们必须完成 码 操作功能.