同一天内复制内容相同弹出对话框提示 怎么编写？
vb编程 按Command1复制Text1时，在同一天如有重复复制则弹出对话框提示，“是否重复提交？”按“是”确认，按“否”取消。代码如何写？最好能具体点。
[解决办法]
主要难点就是判断是不是多次提交。
定义静态变量static EnterCount as integer ，每按一下，EnterCount =EnterCount+1
如果>0那么就是重复提交了。
如果真的要判断是否在一天，定义static EnterDate 变量，初始为空或很早的日期，按下后enterDate=Date
if EnterDate=Date() 那么一天内重复提交了多次。
[解决办法]
Private Sub Command1_Click()
If GetSetting(App.Title, "Settings", "d_t", "") = Date Then
'从注册表获取上次复制日期，如果和本次日期相同
If MsgBox("是否重复提交？", vbYesNo + vbQuestion, "提示") = vbYes Then
Clipboard.Clear
Clipboard.SetText Text1.SelText '复制
End If
Else
Clipboard.Clear
Clipboard.SetText Text1.SelText
End If
SaveSetting App.Title, "Settings", "d_t", Date '将本次复制日期存入注册表
End Sub
Private Sub mnuPaste_Click()
Text1.SelText = Clipboard.GetText() '粘贴
End Sub
[解决办法]
试试这个
Private Sub Command1_Click()
If GetSetting(App.Title, "Settings", "d_t", "") = Date And _
Text1.Text = GetSetting(App.Title, "Settings", "tx_t", "") Then
'从注册表获取上次复制日期、上次复制内容，如果和本次日期相同
If MsgBox("是否重复提交？", vbYesNo + vbQuestion, "提示") = vbYes Then
Clipboard.Clear
Clipboard.SetText Text1.SelText '复制
End If
Else
Clipboard.Clear
Clipboard.SetText Text1.SelText
End If
SaveSetting App.Title, "Settings", "d_t", Date '将本次复制日期存入注册表
SaveSetting App.Title, "Settings", "tx_t", Text1.Text '将本次复制内容存入注册表
End Sub
[解决办法]
不建议写入注册表。
思路：创建一个文本文件，以日期命名，每行存储成功提交的text
每次提交都先按行读取今天的文本文件，如果某行内容相同则弹出警告
如果没有今天的文本文件，把昨天的删掉，新建一个
