pyqzww 发表于 2003-5-17 13:50:00

efan 版主,晚辈请教!

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

efan2000 发表于 2003-5-17 15:41:00

对话框可以用MsgBox或者UserForm创建

用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 发表于 2003-5-18 22:08:00

这个程序哪里错了？

首先谢谢版主对我不厌其烦的教导                                    这是访问数据库的一个程序但是我运行的时候它出现这样的信息：
”实时错误‘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
页: [1]
查看完整版本: efan 版主,晚辈请教!