在vb6中编写的一个粘贴复制的程序但在启动后老是出现实时错误,怎么办?我是新手,请说的浅显一点,谢谢啊
下面是我编写的代码PrivateSubCmdClear_Click()TxtContent.Text=""EndSubPrivateSubCmdCopy_Click()C...
下面是我编写的代码
Private Sub CmdClear_Click()
TxtContent.Text = ""
End Sub
Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub
Private Sub CmdPaste_Click()
SelText.TxtContent = Clipboard.GetText
End Sub
Private Sub CmdQuit_Click()
End
End Sub
Private Sub TxtContent_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
LblStart.Caption = "起始位置:" & TxtContent.SelStart
LblLenght.Caption = "文本长度:" & TxtContent.SelLength
End Sub 展开
Private Sub CmdClear_Click()
TxtContent.Text = ""
End Sub
Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub
Private Sub CmdPaste_Click()
SelText.TxtContent = Clipboard.GetText
End Sub
Private Sub CmdQuit_Click()
End
End Sub
Private Sub TxtContent_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
LblStart.Caption = "起始位置:" & TxtContent.SelStart
LblLenght.Caption = "文本长度:" & TxtContent.SelLength
End Sub 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询