tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: ブラウザコントロールで選択された文字をテキストボックスに入れるについて
投稿日: 2014/06/11(Wed) 09:57
投稿者魔界の仮面弁士
>         If e.KeyCode = Keys.ShiftKey Then
シフトキーの押下判定は、
 If e.Shift Then
で行った方がわかりやすいかも。


> 一度テキストボックスをクリックしてからシフトキーを押すときちんと動作します。

方法は幾つかありますが、たとえば――

Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As EventArgs) Handles MyBase.Load
        KeyPreview = True
        WebBrowser1.Navigate(どこかのURL)
    End Sub

    Private Sub WebBrowser1_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles WebBrowser1.PreviewKeyDown
        OnKeyDown(New KeyEventArgs(e.KeyData))
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.Shift Then
            WebBrowser1.Document.ExecCommand("Copy", False, Nothing)
            TextBox1.Text = Clipboard.GetText(TextDataFormat.UnicodeText)
        End If
    End Sub
End Class

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。