vb代码
vbcrack
这个作者很懒,什么都没留下…
展开
-
在程序中判断一个Access数据库中有几张表
Private Sub Form_Load()菜单“工程”-->"引用"-->"Microsoft ActiveX Data Objects 2.7 Library"Microsoft ADO Ext.2.7 for DDL ado Security Dim cat As ADOX.CatalogDim adocon As ADODB.ConnectionSet adocon = New AD转载 2005-03-03 09:08:00 · 1212 阅读 · 0 评论 -
用 MsHFlexgrid 控件和 command控件组合完成功能
我以vsFlexGrid表格控件和普通的按钮控件为例给你举个例子:表格控件名: Mygrid按钮控件名: Command1注意事项:在窗体放控件的时候要将按钮控件置前!不然看不到效果的哦!---定义表格Private Sub Form_Load() Command1.Visible = False With Mygrid .Cols = 3 .Rows = 3 .T转载 2005-03-03 09:17:00 · 968 阅读 · 0 评论 -
将文件从本地机拷贝到远程
Option ExplicitPrivate Sub Command1_Click()Dim DstFilePath As StringDim fs As ObjectDstFilePath = "//chenfeng/c:/" 目标文件路径Set fs = CreateObject("Scripting.FileSystemObject") 创建文件系统对象If fs.FileEx转载 2005-03-03 10:10:00 · 1062 阅读 · 0 评论