怎样实现点击一个按钮，就将当前窗体指定输入框里的数据复制到Windows剪切板呢？我试过用Clipboard，但不行，似乎没有这个函数有这个功能啊。查一下msdn就可以了啊。 Private Sub mnuCopy_Click () Clipboard.Clear Clipboard.SetText Text1.SelText End Sub
Private Sub mnuCut_Click () Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub
Private Sub mnuPaste_Click () Text1.SelText = Clipboard.GetText() End Sub
VB code:
Private Sub Command1_Click() Clipboard.SetText Me.Text1.Text End Sub
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' 打开刚创建的文件。 ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' 读入所有字符到变量中 ......
