日志
- 分享 延迟系统的秒数
- Option Compare Database Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '声明系统延时用的API函数SLEEP '==================================================================== ' 名称: delytime ' 作用: ...
- 分享 使窗体透明函数转贴
- Option Compare Database ' AnimateWindow是一个窗口打开和关闭时产生动画效果的新函数，因为是一个新的函数, 所以在 API Viewer中是找不到的,必需自己定义: ' Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags A ...
- 分享 获得屏幕分辩率的函数
- Option Compare Database Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Public Function getscreenw() As Long '获得屏幕分辩率的长 hdc = GetDC(0) ...
- 分享 设置窗体菜单的函数(收集+修改)
- Option Compare Database Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long '在CLOSE 事件中使用X = unloa ...
- 分享 ACCESS函数参考
- 'Access2000常用函数 '--access内置函数:(适用access2000) '▲日期/时间 'CDate 将字符串转化成为日期 select CDate("2005/4/5") 'Date 返回当前日期 'DateAdd 将指定日期加上某个日期select dateAdd("d",30,Date())将当前日期加上30天,其中d可以换为yyyy或H等 'DateDiff 判断两个日期之间的间隔 select DateD ...
- 分享 OFFICE精英收集来的函数
- '判斷程序是否在MDE還是在ADE中運行 Public Function atIsitMDE() As Byte On Error Resume Next Dim dbs As Object Dim strMDE As String If Application.CurrentProject.ProjectType = acAD ...
- 分享 切换子窗体的函数
- 用法'x = SelectChildForm(Me.frmx, "FRMB") Function SelectChildForm(主窗体上的子窗体控件 As Object, 要加载的子窗体名称 As String) As Boolean If Len(要加载的子窗体名称) = 0 Or IsNull(要加载的子窗体名称) Then MsgBox "Childform. load error ,Child form. name is miss !", vbExclamation, "Access error" Else ...
- 分享 ACCESS带给我什么？
- 天气 : 阴雨 心情 : 郁闷 第一次：单位是一家港资公司，第一次接确ACCESS感觉好便找到了宝，一头扎下去，结果呢，误了正业，单位里网管说：“电脑坏了，就是XXX弄什么ACC搞的”惨！ 第二次：单位是一家温州公司，搞了一下食堂购菜核算系统，没有回报，只是手下的一个文员用了，减轻了她一部分负担，算是用ACCESS ...
