摘要： 在我们写程序的时候,有时需要记录当前窗体位置和大小,以便下次打开时恢复上次的大小跟位置，像一般的播放器 浏览器就有这个功能通过注册表记录窗体的大小跟位置Private Sub Form_Load() Me.Width = GetSetting(App.Title, Me.Name, "Width", 7200) Me.Height = GetSetting(App.Title, Me.Name, "Height", 6300) Me.Top = GetSetting(App.Title, Me.Name, "Top", 100) Me 阅读全文

摘要： 大家在做项目的时候经常会用到这个 像什么学生信息管理系统啦 小弟在此汇总一下 供大家参考最简单的方法：结果显示在文本框中 其他同理获取计算机名：Text1.text = VBA.Environ("computername")获取用户名：text1.text=VBA.Environ("username")用API取计算机名：Private Declare Function GetComputerName Lib "kernel32" _Alias "GetComputerNameA" (ByVal lpBuffer 阅读全文

摘要： 我的网易博客http://liushuijinger.blog.163.com 阅读全文

摘要： 阅读全文

摘要： (1)二进制数据类型 二进制数据包括Binary、Varbinary 和 Image Binary 数据类型既可以是固定长度的(Binary),也可以是变长度的。 Binary[(n)] 是 n 位固定的二进制数据。其中，n 的取值范围是从 1 到 8000。其存储窨的大小是 n + 4 个字节。 Varbinary[(n)] 是 n 位变长度的二进制数据。其中，n 的取值范围是从 1 到 8000。其存储窨的大小是 n + 4个字节，不是n 个字节。 在 Image 数据类型中存储的数据是以位字符串存储的，不是由 SQL Server 解释的，必须由应用程序来解释。例如，应用程序可... 阅读全文

摘要： DateDiff(interval, date1, date2[, firstdayofweek[,firstweekofyear]])参数含义：interval必要。字符串表达式，表示用来计算date1和date2的时间差的时间间隔Date1 date2必要；Variant(Date)。计算中要用到的两个日期。Date1开始时间 date2结束时间Firstdayofweek可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。firstweekofyear可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。DateInterval参数的设定值： 阅读全文

摘要： text1.text=""text2.text=""....................上面那种方法太费事了 Dim ctrl As Control For Each ctrl In Me.Controls If TypeOf ctrl Is TextBox Then '是否为文本框TextBox ctrl.Text = "" End If Next代码很简单 很好理解 但着实给我们带来了很大的方便 如果清空其他控件只要少做变化就行例如 清空lable的内容 只需将第三行中的 textbox 改成 lable 第四行的.. 阅读全文

摘要： 全面控制 Excel首先创建 Excel 对象，使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application1) 显示当前窗口：ExcelID.Visible := True;2) 更改 Excel 标题栏：ExcelID.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿：ExcelID.WorkBooks.Add;4) 打开已存在的工作簿：ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' 阅读全文