其他信息
| Http://www.cnng.net |  |
首页 原创软件
VB文挡 VB资源
乱舞人生 资源
Tags 给我留言 |
 用户登陆 站点统计 最新评论 日志搜索 友情链接 |
对不起，本日志为隐藏日志，只有管理员或者作者可以查看！ function MoveFileEx( lpExistingFileName: PChar; // 来源文件名，指向一个以零结尾的字符串的指针。 lpNewFileName: PChar; // 目标文件名，指向一个以零结尾的字符串的指针。 dwFlags: DWORD // 移动标记，见定义 ): BOOL; stdcall; // 返回执行结果，成果或失败  阅读全文……Sub SaveAsSheet() Dim AtAPP As Excel.Application Dim AtBook As Excel.Workbook Dim AtSheet As Excel.Worksheet 阅读全文……'/写在前面: '/对于INPUTBOX函数 , 头疼的是, 如果不填东东, OK和cancel的传回值是一样的 '/VB中的解释是“StrPtr：返回真正的UNICODE字符串缓冲区的地址” '/利用这一特性,制作了这个有返回值的InputBox函数... 相关链接：vb,,返回值,InputBox,函数 阅读全文……
Option Explicit Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long 相关链接：vb,磁盘,文件系统 阅读全文……Option Explicit '获取特殊文件夹 '引用 Microsoft Shell Controls And Automation '添加 textbox listbox '石陆软件屋 http://www.cnng.net 相关链接：特殊 | 文件夹 | vb,文档 阅读全文……'得到文本筐的总共行数、光标所在行数、光标所在例数 '添加 textbox label1 '设置 Text1.MultiLine = True Text1.ScrollBars = 2 相关链接：文本筐 | 总共行数 | 光标所在行数 | 光标所在例数,vb,文档 阅读全文…… |
