?
Solved

Is there a way to go into...

Posted on 1999-01-19
1
Medium Priority
?
170 Views
Last Modified: 2010-05-03
Is ther a way to go into another program like word or word pad and delete a word in the thing please help this would be so helpful to me??? See I am making a progarm where a goat walks across the screen and eats a word and i just need one word to disappear. It is kinda as a joke on my friend but i also want it for learning expierence. I am posting all my points so enjoy!
0
Comment
Question by:Moo122398
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 

Accepted Solution

by:
HMWT earned 220 total points
ID: 1469502
look up dde (Dynamic Data Exchange) I've got a example ple prog that came with my version of VB. Word was one of the programs that it suposedly can conect to. It works fine on the other example conections. I'v ordered Word but it hasn't yet arived.
You might look to see if an example came with you version of VB.

Here is an example asuming you just your app to look like word, then you can manipulate your window the when you close it word is still the same. ;>

'ctl is a textbox or a picturebox.
'appname is usualy the name of the exe file my example expects 'it to be "WinWord"
'topic must match the value of the linktopic property of the 'window you are trying to access.
'item is the Name of the control you want to access.
'I don't have a clue about the last 2
Function CreateLink% (Ctl As Control, appname$, topic$, item$, LinkType%)
On Error Resume Next
    Ctl.LinkMode = NONE
    Ctl.LinkTopic = appname$ & "|" & topic$
    Ctl.LinkItem = item$
    Ctl.LinkMode = LinkType%
    CreateLink% = Err
    If Err = 0 And LinkType% <> 1 Then 'if linktype<>automatic
        Ctl.LinkRequest
    End If
End Function

you'l have to experiment to see if word prefers ctl to be a picture box or a text box.

if creatlink(...)=282 then 'no app responded.
    'try to start. or in your case you might not want to start
    if shell(appname$)>31 then 'i don't know what the 31 means
        if creatlink(...)<>0 then
            msgbox "huston we'v got a problem..."
        end if 'try to conect again
    end if 'try to start
end if 'no app responed

'do this when ever you want to update your control's data
ctl.LinkRequest

'That about covers every thing except the exact string info you need. try looking at microsoft.com. And of course your manuals now that you no to look for "DDE".
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Suggested Courses
Course of the Month12 days, 21 hours left to enroll

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question