efan 版主,晚辈请教!

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

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

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

用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

2dzozsaebre.gif

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

efan 版主,晚辈请教!

发表回复

精选推荐