清风雅士 发表于: 2009-1-18 19:59 来源: 扑奔PPT网
1.05 MB, 下载次数: 565)
QUOTE:
原帖由 amwyq 于 2009-1-18 21:56 发表 Private Sub CommandButton1_Click() On Error Resume Next '如果出现错误,继续运行下面的代码 '清空各位评委打的分数 PF1.Text = "" PF2.Text = "" PF3.Text = "" PF4.Text = "" ...
原帖由 haiyangbinggan 于 2009-1-19 19:36 发表 :$ :$ :$ :$
原帖由 amwyq 于 2009-1-20 11:24 发表 还要做什么,你的附件就是成品啊,你修改使用就可以了
1.05 MB, 下载次数: 565)
On Error Resume Next '如果出现错误,继续运行下面的代码
'清空各位评委打的分数
PF1.Text = ""
PF2.Text = ""
PF3.Text = ""
PF4.Text = ""
PF5.Text = ""
PF6.Text = ""
PF7.Text = ""
PF8.Text = ""
Slide1.TotalScore.Caption = ""
'清空这一张幻灯片的最终得分
End Sub
这个是让所以文本框为空
QUOTE:
但是运行不好使?能不能帮改改!!:$ :$QUOTE:
老大你做出来了吗?能不能发上来看看啊QUOTE:
老大 还是 不行啊!!!你能 给我发一个吗 ??谢谢 您了,给您拜年了!!!c++与PPT的完美结合.