顔文字ソフトのような！（ＶＢ5）

質問

突然ですが、ＤＬサイトでよく見かける顔文字ソフトのように、アトランダムに選択されたウインドウのテキスト画面にＶＢで作った文字データを貼り付ける簡単な方法がありましたら教えていただきたいのですが。

回答No.2

2ch · ベストアンサー

Option Explicit

Private Sub Command1_Click()
　　Dim strFase As String
　　Dim lngSts　As Long

　　strFase = GetFaseStr

　　Clipboard.Clear
　　Clipboard.SetText strFase

　　Me.Visible = False
　　DoEvents
　　Call SendKeys("^v", True)
　　Me.Visible = True
End Sub

Private Function GetFaseStr() As String
　　Dim varWk　 As Variant
　　Dim strWk　 As String
　　Dim i　　　 As Integer
　　varWk = Array(-32391, -32432, 32, 76, 32, -32432, -32390, 121, 45, 126, 126, 126)
　　For i = LBound(varWk) To UBound(varWk)
　　　　strWk = strWk & Chr(varWk(i))
　　Next i

　　GetFaseStr = strWk
End Function

お礼

ありがとうございました。とても参考になりました。
さっそくTEXTやLISTBOXなどで試してみました。
あの顔見字がとてもしゃれててよかったです。
ここに書いた以上に感激しました。それにとても短くまとめていただいてて驚きました。

回答No.1

taka_tetsu

>ＤＬサイトでよく見かける顔文字ソフトのように、

たとえばどこにあるのでしょうか？
みたことないもんで(^^;;

補足

たとえばなんですけど、
http://www.vector.co.jp/vpack/filearea/win/writing/kao/index.html
ここにある顔文字辞書以外のもののなかにアクティブなウインドウのテキストに貼り付けるようになってるものなんです。この方法ってほかにも使えるんじゃないかって思ったんです。