Home > Software engineering > What a great god can help me have a look? Old me the DDE VB6.0 by use of AutoCAD and communication w
What a great god can help me have a look? Old me the DDE VB6.0 by use of AutoCAD and communication w
Time:09-23
Option Explicit
Private Sub cmdLine_Click draw a straight line () ' Text1. LinkExecute "[^ 3 ^ 3 line 3, 8, 8 ^ 3)" End Sub
Private Sub cmdText_Click () 'annotation text Text1. LinkExecute "[^ 3 ^ 3 text 10, 1 90 AUTOCAD! ^ 10]" End Sub
Private Sub cmdLink_click () 'links Text1. LinkMode=0 Text1. LinkTopic="AutoCAD | System", " Text1. LinkMode=2 End Sub
Private Sub cmdExit_click () 'exit End End Sub Sub linkapp (Link As Control, Appname As String, Topic As String) The Link. LinkMode=0 The Link. LinkTopic=Appname + "|" + Topic The Link. LinkMode=2 End Sub Private Sub Layer_Click () AppActivate "AutoCAD" SendKeys "open" {Enter} Linkapp Form1 Text1, "AutoCAD. DDE", "System" Form1. Text1. LinkExecute "[center] Layer M" Form1. Text1. LinkExecute "[center] red Layer C L" End Sub
CodePudding user response:
CodePudding user response:
Students party, please help thanks
CodePudding user response:
You can find a DDE example of Excel try first, Is likely to stop DDE antivirus software,