ACCESS用TOP排序示例

摘要: 這是一個(gè)關(guān)于排行榜的例子！嚴(yán)正申明：本例子面向新手，老鳥(niǎo)下載氣掉大牙本人概不負(fù)責(zé)…… 文件下載

一個(gè)關(guān)于排序的示例，用top關(guān)鍵字排序。通過(guò)鼠標(biāo)移動(dòng)事件來(lái)查看源代碼。窗體會(huì)在一點(diǎn)情況下移動(dòng)

當(dāng)點(diǎn)擊成功后，就能查看程序的源代碼了。

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提問(wèn).Top = 1245 - 500

MsgBox "這就沒(méi)意思了！", vbCritical, "情人小語(yǔ)"

End

End If

Me.cmd否.Top = N + 100

Me.cmd是.Top = N + 100

Me.lab提問(wèn).Top = N - 500

End Sub

Private Sub cmd是_Click()

MsgBox "我也愛(ài)你！" + vbNewLine + "暈倒……", vbInformation, "情人小語(yǔ)"

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管理多個(gè)同一窗體的實(shí)例下一篇：Access程序入口、界面控制的設(shè)計(jì)技巧

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			注冊(cè)

相關(guān)分類(lèi)