VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1547|回复: 0

[求助] 如何像輸入法一樣,可以輸入至任何可以輸入的地方

[复制链接]
发表于 2015-2-22 00:24:45 | 显示全部楼层 |阅读模式
?教各位前?,我? VBA 五年了,但VB算是新手。以下是模?中的程式?:

Option Explicit
Option Base 1

    Public 符??() As New 符?表
   
    Public 目前符??? As Object
    Public 目前符? As Object
   
    Public 目前色彩 As Long

Public Sub ?入符?(ByRef 符? As MSForms.CommandButton)

    On Error Resume Next
   
    Clipboard.Clear
   
    Clipboard.SetText 符?.Caption
   
    '----------------------------------------------------------------------------------------------
   
    If 符?表表?.????.Value = True Then
        Exit Sub
    End If
   
    '----------------------------------------------------------------------------------------------
   
    'Selection.Paste ←此行是在Word VBA?的程式?,可以?入至Word的游?所在的地方,但在VB,如何像?入法一?,可以?入至任何可以?入的地方?

End Sub

附上程式?案,先??了!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-1 21:32

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表