日志
- 分享 分享抄来的"试用版限制时间与日期的方法"
- 抄来的试用版限制时间与日期的方法, 看看对朋友们有没有帮助的. 可用注册表简单地保存已用的天数或次数 ' 次数限制（如30次）： Private Sub Form_Load() Dim a As Long Dim b As Long b = GetSetting("MyApp", "set", "times", 51345) a = b Xor 51345 If a 30 Then MsgBox "现在剩下：" 30 - a "试用次数 ...
- 分享 关闭窗体时不保存
- PrivateSubFORM_BeforeUpdate(CancelAsInteger) IfMsgBox(" 保存吗 ?",vbYesNo,Me.Caption)vbYesThen Cancel=True & ...
- 分享 定时检测网络状态
- Private Sub Form_Timer() On Error GoTo Err_Form_Timer Dim CONNDL As New ADODB.Connection Set CONNDL = CurrentProject.Connection Dim RSTDL As New ADODB.Recordset RSTDL.Open "SELECT * FRO ...
- 分享 TreeView控件知识
- TreeView控件知识 说明： ●TreeView控件是以树形结构显示 数据 的控件。利用TreeView控件，可以设计出树形结构图，便于用户选择不同的项目。 ●要使用TreeView控件，需要首先将其添加到控件工具箱，控件名称为“Microsoft TreeView Control 6.0(p4)”。 使用TreeView控件时应注意的几点： ●在TreeView控 ...
- 分享 OUTLOOK2000的收件箱内容复制到ACCESS数据库
- 自己做的, 请各位达人指点一下: Sub CopyMessages() Const MailBox = "个人文件夹" Dim Cnt As New ADODB.Connection Dim Mbox As New ADODB.Recordset Dim fld As ADODB.Field Dim Hist As New ADODB.Recordset Dim ConnectString As String Dim conn As New ADODB.Connection Dim cntstring As String ConnectS ...
- 分享 Format
- Format$(Now,"EEOA") 只要这么一句~~~~~就可以得到“ 二○○六年五月二十六日” --------------------------------- Format ( expr ) format 返回变体型 format$ 强制返回为文本 -------------------------------- 数字类型的格式化 -------------------------------- 固定格式参数： General Number 普通数字，如 ...
- 分享 缇等于多少像素？
- 问题： 在VBA中常会遇到距离单位缇，比如Docmd.Movesize x,y,a,b （调整窗口显示尺寸）， 这里的x,y,a,b 都是以缇为单位，请问缇等于多少像素？ 回答： 缇(Twips) （缇：计量单位，等于“磅”的 1/20，英寸的 1/1,440。一厘米有 567 缇。 像素(Pixels)：监视器或打印机分辨率的最小单位 右键单击桌面，选择属 ...
- 分享 窗体多条件筛选函数
- Function GetFilterStr(strFilter As String, strField As String, intType As Integer, varArg As Variant) As String '调用的时候需要传递窗体的原筛选条件, 新筛选条件的字段, 字段的类型(数字, 字符串, 日期, 新筛选条件的参数) Dim strNewFilter As String Dim aryFilter A ...
- 分享 用Dcount解决查询中名次排列问题
- select *,dcount("*","成绩表","分数=" 分数) as 排名 from 成绩表 order by 分数 desc
- 分享 得到屏幕分辨率的函数
- Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Dim RateX As Integer, RateY As Integer RateX = GetSystemMetrics(0) RateY = GetSystemMetrics(1)
