タイトル : 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 |