首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vb编程在同一天如有重复复制则弹出对话框提示,该怎么解决

2012-01-13 
vb编程在同一天如有重复复制则弹出对话框提示vb编程 按Command1复制Text1的输入内容时,在同一天如有重复复

vb编程在同一天如有重复复制则弹出对话框提示
vb编程 按Command1复制Text1的输入内容时,在同一天如有重复复制则弹出对话框提示,“是否重复提交?”按“是”确认,按“否”取消。代码如何写?最好能具体点。 下面写的为什么不对,应该怎么写? 
 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


[解决办法]
编写程序之前,首先搞明白要做什么。

你的逻辑没有理顺。

热点排行