动态按钮闪烁问题

wgf2005

专家给看看

Trynew

1、按钮闪烁问题：在鼠标移动事件中改变控件的属性前先判断一下是否需要改变：

Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Me.a1.Visible = False Then Me.a1.Visible = True

If Me.b1.Visible = False Then Me.b1.Visible = True

If Me.c1.Visible = False Then Me.c1.Visible = True

If Me.d1.Visible = False Then Me.d1.Visible = True

End Sub



2、结果为空时不导出：用Dcount函数判断一下记录数，为0时不导出：

Private Sub Command17_Click()

If DCount("*", "查询1") = 0 Then

    MsgBox "没有数据,请输入合适的查询条件"

Else

    DoCmd.TransferSpreadsheet acExport, 8, "查询1", "c:\01.xls", True, ""

    MsgBox "生成报表成功"

End If

End Sub

另外：a2、b2等的可见性不需改变，还有就是你的代码没有缩进，变量名没有按命名规则定义，没有设置强制声明变量，这是一个基本的编程要求，需养成习惯。

最后，你的主窗体作的挺漂亮，相应的子窗体也要“美容”一下，做成风格一致。

希望以上能对你有所帮助 [em07]