vb 小时分钟秒换算秒 互换
Private Function ZToFSAll(ByVal ZT As Long) As String'全存样式'从天,时,分,秒整合为秒Dim T, S, F, M As Integer '天,时,分,秒Dim T1, S1 As Integer '天,时,分,秒Dim M1 As Strin...
Imagemagick 后台图片处理插件常用命令
Imagemagick文档：http://www.imagemagick.org/script/command-line-options.php convert功能强大，用来批处理图片的放大、缩小、裁剪、旋转、合并、水印、拼接、格式转换等都非常方便，特别适合后台的图片处理。1，获取图片信息 ...
VB 复制文件或文件夹到系统剪贴板
VB 复制文件或文件夹到系统剪贴板'-----------------------------------------------------------模块内容Option ExplicitPrivate Type POINTAPI x As Long y As LongEnd Typ...
冒泡排序法
Private Sub Command1_Click()Dim a(1 To 10) As IntegerRandomizeList1.ClearFor i = 1 To 10a(i) = Rnd * 100List1.AddItem a(i)NextEnd SubPrivate Sub Comma...
2020-04-01 全局热键
'******************* .Bas 模块里面的代码Option ExplicitPublic Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsMod...
2020-10-01 vb6 使用twain_32.dll开发扫描仪，摄像头等程序的demo
'模块'*******************************************************************************'' Description: VB Module for accessing TWAIN compatible scanner (V...