發(fā)表于:2003/11/18 21:52:00
#0樓
Private Sub menueditcut_Click()
If Text1.SelLength > 0 Then
Clipboard.SetText = Text1.SelText
Text1.Text = ""
End If
End Sub
Private Sub menueditpaste_Click()
If Len(Clipboard.GetText) > 0 Then
Text2.SelText = Clipboard.GetText
End If
End Sub
我照書(shū)編寫(xiě)一個(gè)菜單的程序,運(yùn)行的時(shí)候,執(zhí)行剪切的命令,提示參數(shù)不可選,光標(biāo)提示在SetText上,請(qǐng)問(wèn)這是為什么,這不是Clipboard自帶的屬性嗎?如何解決?
還望各位高手指點(diǎn)?。。?!
If Text1.SelLength > 0 Then
Clipboard.SetText = Text1.SelText
Text1.Text = ""
End If
End Sub
Private Sub menueditpaste_Click()
If Len(Clipboard.GetText) > 0 Then
Text2.SelText = Clipboard.GetText
End If
End Sub
我照書(shū)編寫(xiě)一個(gè)菜單的程序,運(yùn)行的時(shí)候,執(zhí)行剪切的命令,提示參數(shù)不可選,光標(biāo)提示在SetText上,請(qǐng)問(wèn)這是為什么,這不是Clipboard自帶的屬性嗎?如何解決?
還望各位高手指點(diǎn)?。。?!
