ACCESS用TOP排序示例

2002-5-2 23:36| 发布者: admin| 查看: 952| 评论: 11|原作者: 竹笛|来自: www.office-cn.net

摘要: 这是一个关于排行榜的例子！严正申明：本例子面向新手，老鸟下载气掉大牙本人概不负责…… 文件下载

一个关于排序的示例，用top关键字排序。通过鼠标移动事件来查看源代码。窗体会在一点情况下移动

当点击成功后，就能查看程序的源代码了。

Private Sub cmd否_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim N As Integer

N = Me.cmd否.Top

If N > 7000 Then

Me.cmd否.Top = 1245

Me.cmd是.Top = 1245

Me.lab提问.Top = 1245 - 500

MsgBox "这就没意思了！", vbCritical, "情人小语"

End

End If

Me.cmd否.Top = N + 100

Me.cmd是.Top = N + 100

Me.lab提问.Top = N - 500

End Sub

Private Sub cmd是_Click()

MsgBox "我也爱你！" + vbNewLine + "晕倒……", vbInformation, "情人小语"

End Sub

Private Sub Form_Load()

Dim I, J As Integer

Access.SetOption "Show Status Bar", False

DoCmd.RunCommand acCmdAppMaximize

DoCmd.Maximize

I = Me.WindowWidth

J = Me.WindowHeight

DoCmd.Restore

DoCmd.MoveSize 0, 0, I, J

Me.Picture = CurrentProject.Path & "\mm.jpg"

End Sub

上一篇：ACCESS管理多个同一窗体的实例下一篇：Access程序入口、界面控制的设计技巧

帐号		自动登录	找回密码
密码			注册

相关分类