Question

帮我写一个VB代码。很简单的。谢谢

做以下工作：

在生成的VB程序上有一个text

用户在text中输入内容（假如是VB的话）

选取一个word文档，按下Esc键

自动在文档中输入以下内容：“你好 VB”

谢谢了

Answer 1

直接把A窗体隐藏不就好了，你说得这样太麻烦了。要么A程序里面的控件全部设置为不可用。

更多内容百度谷歌搜搜 VB之家 或搜 TTBBA编程组

Answer 2

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Text1.SetFocus
Sleep 100
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Sleep 100
SendKeys "^C"
Sleep 100
Shell "cmd /c start " & CommonDialog1.FileName
Sleep 10000
SendKeys "ESC"
Sleep 100
SendKeys "^V"
Sleep 100
End If
End Sub

Private Sub Form_Load()
CommonDialog1.Filter = "旧版Word文档 (*.doc)|*.doc|新版Word文档 (*.docx)|*.docx"
End Sub

追问

看要求：

生成一个exe程序。上面有一个text文本框

我，在这个text中文本框中任意输入文字（现在举例，假如是“小李”）
然后，不管这个exe程序了。懂？

我进入一个论坛回复帖子，按下Esc键。系统就帮我打字。帮我打字！打字的内容是什么呢？是什么呢？就是“你好 小李”
我在玩游戏，在游戏里和网友聊天，按下Esc键也可以达到一样的效果。明白了么？就是不管我在哪按下Esc键，系统都帮我打出这几个字来。

我纠结

Answer 3

选取一个word文档，按下Esc键
自动在文档中输入以下内容：“你好 VB”

这是什么意思？

追问

就是我打开一个word文档。按下Esc键。系统就自动在文档中输入“你好 VB”几个字。我表达的很不清楚吗？ 谢谢了

追答

Private Sub Text1_Change()
If Text1.Text = "VB" Or Text1.Text = "vb" Then
' SendKeys "{Esc}" '按下ESC
Dim WordObject As Object
Dim WordDoc
Set WordObject = CreateObject("Word.Application")

WordObject.Visible = 1
Set WordDoc = WordObject.Documents.Add
WordObject.Application.Activate
WordDoc.Paragraphs.Last.Range.Text = "你好 VB ！"

End If
End Sub

追问

看要求：

生成一个exe程序。上面有一个text文本框

我，在这个text中文本框中任意输入文字（现在举例，假如是“小李”）
然后，不管这个exe程序了。懂？

我进入一个论坛回复帖子，按下Esc键。系统就帮我打字。帮我打字！打字的内容是什么呢？是什么呢？就是“你好 小李”
我在玩游戏，在游戏里和网友聊天，按下Esc键也可以达到一样的效果。明白了么？就是不管我在哪按下Esc键，系统都帮我打出这几个字来。

我纠结

Answer 4

还要什么vb嘛，直接用现成的软件“按键精灵”就能满足一切要求了。

Answer 5

你的意思应该是这样吧：在窗口中有一个textbox，用户在里面输入什么，自动生成一个word文档，并把输入的内容写入此文档中吧。

追问

不是自动生成word文档。难道我的表达能力这么差么。。。。。。。

就是说，我运行程序后，按下Esc键，系统就帮我打字。不管在哪里，word也好，网站上也好。游戏里面也好。都能满足我的要求

追答

你的意思是窗体上有一个输入框，然后你按下esc键的时候，在text里打出文字，然后呢？

追问

看要求：

生成一个exe程序。上面有一个text文本框

我，在这个text中文本框中任意输入文字（现在举例，假如是“小李”）
然后，不管这个exe程序了。懂？

我进入一个论坛回复帖子，按下Esc键。系统就帮我打字。帮我打字！打字的内容是什么呢？是什么呢？就是“你好 小李”
我在玩游戏，在游戏里和网友聊天，按下Esc键也可以达到一样的效果。明白了么？就是不管我在哪按下Esc键，系统都帮我打出这几个字来。

我纠结

追答

是不是就是在任何地方按下esc时，把已存的字符粘贴出来。是这意思吧。

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Timer1.Interval = 500
Clipboard.Clear
Clipboard.SetText (Me.Text1.Text)
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyEscape) Then
SendKeys "^v"
End If

End Sub

经测试成功

追问

呃。。。实时错误424. 好纠结啊。 还是谢谢你啊！

追答

你要在form1上面放一个textbox，再放一个timer控件啊

Answer 6

好多人不理解,有回答的你也别见怪.别人回答了你还在这里有意见.
你不就是想把ESC键搞成全局的么.不管在什么程序里,按下ESC就向这个程序里发送你要的内容.这还要看运行了的程序或软件,VB的全局比起其它的程序写的全局要差一步了.ESC那就不一定有用.