| 1 | Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) |
| 2 | '送出CTRL+C(複製) |
| 3 | 'SendKeys.Send("^C") |
| 4 | '送出CTRL+X(剪下) |
| 5 | 'SendKeys.Send("^X") |
| 6 | '送出CTRL+V(貼上) |
| 7 | SendKeys.Send("^V") |
| 8 | End Sub |
| 1 | Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) |
| 2 | If Me.DataGridView1.SelectedCells.Count > 0 Then |
| 3 | '送出CTRL+C(複製) |
| 4 | 'SendKeys.Send("^C") |
| 5 | End If |
| 6 | TextBox1.Focus() |
| 7 | '送出CTRL+V(貼上) |
| 8 | SendKeys.Send("^V") |
| 9 | End Sub |
http://www.blueshop.com.tw/board/show.asp?subcde=BRD20110708100140U3F
沒有留言:
張貼留言