efan 版主,晚辈请教!

pyqzww

用鼠标在一三维图形某处点击一下就出来一个对话框如下:
  序号        2
  名称        外圆1
  材料        45
  精度        5级,
(上面的内容是在一个对话框里的!)
请教版主这段程序如何编写?

efan2000

用MsgBox给用户显示一条信息，而用UserForm则以窗体的形式制作一个对话框，显示内容。

Sub Test()
    Dim Pt As Variant
    Pt = ThisDrawing.Utility.GetPoint(, "指定点: ")
    MsgBox "序号 2" & vbCrLf & "名称 外圆1" & vbCrLf & "材料 45" & vbCrLf & "精度 5级"
End Sub

Sub Test2()
    Dim Pt As Variant
    Pt = ThisDrawing.Utility.GetPoint(, "指定点: ")
    UserForm1.TextBox1 = "2"
    UserForm1.TextBox2 = "外圆1"
    UserForm1.TextBox3 = "45"
    UserForm1.TextBox4 = "5级"
    UserForm1.Show
End Sub

pyqzww

首先谢谢版主对我不厌其烦的教导                                      这是访问数据库的一个程序但是我运行的时候它出现这样的信息：
”实时错误‘3028’：
无法启动应用程序，工作组信息文件丢失，或是已被其他用户一独占方式打开。”
程序如下：
Sub test()
    Dim daoWs As Workspace
    Dim daoDb As Database
    Dim daoRs As Recordset
    Dim daoFields As Fields
    Dim Recordvalue As String

    Set daoWs = CreateWorkspace(",","admin","abuseJet")
    Set daoDb = daoWs.OpenDatabase("序号")
    Set daoRs = daoDb.OpenRecordset(" ")
    set daoFields = daoRs.Fields
    Recordvalue = daoFields(" ")
    MsgBox("value": &"Recordvalue")
    daoRs.Close
    daoDb.Close
    daoWs.Close
End Sub