随笔分类 - VB6.0
摘要：在我们写程序的时候,有时需要记录当前窗体位置和大小,以便下次打开时恢复上次的大小跟位置，像一般的播放器 浏览器就有这个功能通过注册表记录窗体的大小跟位置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
阅读全文
摘要：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'
阅读全文
