- 博客(132)
- 资源 (36)
- 收藏
- 关注

原创 Visual Basic 6.0 中文企业版
Visual Basic6是现阶段最多人使用的一款Basic编程软件,Visual Basic又被称作VB,是很多软件工程学生必学的课程之一,通过Visual Basic用户可以轻松的制作出软件窗口,尤其是在这个大多数软件开源的时代,通过Visual Basic可以制作许多软件的接口以及界面,非常方便好用。【安装】解压之后运行根目录里面的“安装向导”文件,单击"安装VB6.0"开始安装,单击序列号码可复制序列号。【下载】...
2021-10-11 00:30:01
2324
原创 VB利用API调用系统的通用颜色对话框
lpCustColors = String$(64, vbUnicode) '设置自定义颜色(转换为Unicode)Const CC_RGBINIT = &H1 '指定 rgbResult 颜色值。.hInstance = App.hInstance '设置应用程序的实例。.lStructSize = Len(cc) '设置结构尺寸。.hwndOwner = Me.hWnd '设置所有者。.rgbResult = Color '指向颜色值。(cc.rgbResult)) '转为16进制。
2024-07-21 21:59:22
493
原创 VB获得文件夹或文件的大小
Strtxt(1) = Format(Gtlng, “#,###,####,###”) & " 字节"’ Fso.GetFolder(Path).Files.Count '文件夹内包含的文件数量。B = Fso.GetFolder(Path).Size '文件夹大小。B = Fso.Getfile(Path).Size '文件大小。If FileType > 0 Then '文件夹。Strtxt(1) = 0 & " 字节"
2024-05-08 20:06:46
634
原创 直接显示二进制图片
LoadFromFile App.Path & “\1.jpg” '图片路径。Private Const adTypeBinary = 1 '二进制模式。Private Mstream As Object '二进制转换对象。B = Mstream.Read '将转好的二进制图片赋予BYTE值。.Type = adTypeBinary '二进制模式。Mstream.Close '关闭Mstream对象。.Open '打开"ADODB.Stream"对象。MsgBox “无法转换为IPicture!
2024-05-07 20:51:16
507
原创 多列列表OCX控件
VB6写的一个多列列表OCX控件源码,核心就是利用数组划分成多列数据,可装载亿条数据以上,控件引用了四个PictureBox控件分别作为:索引号显示,列表,垂直滚动条和横向滚动条,基本实现列表的添加、修改和删除等功能,因为时间问题,没有进一步实现更多功能,感兴趣的VB迷们可以自行编写,也希望大家编改后或有更好的源码多多分享,深夜写码不易,转载请注明文章出处,相互学习,相互进步!
2024-05-03 22:58:52
260
原创 VB超级模块函数VB读写记事本-防止乱码支持UTF-8和GB2312编码
Open txtpath For Output As #1 '打开XXX路径的XXX文件(双引号里表示文件位置和文件名)Writein “C:\Users\Administrator\Desktop\1.txt”, “文本文内容”Print #1, txt '写入Text1的Text内容。Dim EncodingMode As String '编码模式。Dim EncodingMode As String '编码模式。Close #1 '关闭。'防止 记事本 乱码。
2024-03-09 22:35:24
578
原创 VB自定义版影音播放器
利用VB开放自定义播放器,基于系统Quatrz.dll的接口将媒体显示到指定的控件容器中,比如PictureBox,实现播放的基本功能,播放,暂停,停止,音量,平衡,进度,媒体的总时间和进度时间……感兴趣的VB发烧友可以下载研究研究。
2023-11-08 11:46:55
202
原创 PS之ICO插件ICOFormat
强大的图片编辑处理软件photoshop竟然一直不支持ico格式的图标文件,这真让人恼火。还好,有热心人开发了一款名叫ICOFormat的PS插件,利用它,就可以在photoshop中打开,编辑和保存ico文件了。如果你也使用photoshop,还喜欢制作一些网站favicon.ico缩略图标,或者个性的文件夹图标,那么,一定不要错过ICOFormat了……但在新建图像时的【宽度】和【高度】一定不能大于255*255 像素,否则在保存时“存为ICO格式”的选项将被插件自动过滤掉。
2023-10-04 18:53:23
3174
原创 在VB类模块中使用计时器
'Debug.Print “类模板中的计时器:”, uMsg, idEvent, dwTime。Debug.Print “Timer 事件”'* 模块名称:clsTimer.cls。'* 功能:在VB类模块中使用计时器。'* 作者:lyserver。
2023-09-28 12:48:37
420
原创 VB利用GDI+显示资源文件中的PNG文件
'显示资源文件中的PNG(场景DC,左偏移X值,右偏移Y值,显示局部宽度,显示局部高度,资源文件的ID号,类型)'在代码编辑窗口复制粘贴以下代码,按F5运行后鼠标点击窗口即可显示资源文件中的PNG文件。Dim ImgW As Long, ImgH As Long '图像的宽度高度。'加载并打开资源文件,点击"添加自定义资源",添加一个PNG文件,保存。'创建与指定设备上下文相关联的图像对象(Graphics)显示到设备上。'加载资源文件到一个byte变量数组中。'设置图像对象的渲染质量(反锯齿)
2023-08-06 18:44:24
753
原创 VB自绘List列表OCX控件
纯代码编写的一款VB列表OCX控件,它与VB自带的ListBox列表类似,作者只是在外观上添加了一些功能,比如,背景可设置纯颜色,双色渐变(多选),斑马,图片,透视,网格线。鼠标经过和选中的行背景颜色,改变滚动条样式和颜色,添加项目可加载图标图片,单独一行的序列号和备注显示,界面有平面和立体选项等。对追求外观界面控件的VB爱好者,以及小白,对数组编写有很好的学习价值,该实例还有很有扩展的地方,可以自行编写,更多VB源码就在https://blog.csdn.net/ty5858?返回/设置背景显示的样式。
2023-07-16 22:01:41
390
原创 VB窗口自动停靠桌面边界
ByVal fuWinIni As Long) As Long '去掉lpvParam的Byval修饰符才可以正常工作。'声明:修改模块常数Private Const Margin As Long = 20可调整距离。
2023-06-06 18:41:37
685
原创 VB一个可以改变箭头方向的气泡提示
m_Tip.Show Me.hwnd, “这是一个可以指定位置和箭头方向气泡提示!” & vbCrLf & _m_Tip.Delay = 1500 '1500毫秒后气泡自动消失。'* 功能:一个可以改变箭头方向的气泡提示类。“第二行信息”, “信息”, 20, 50。'* 模块名称:clsTip.cls。'窗口调用,窗口添加两个Command。m_Tip.Hide '也可以手动消失。
2023-05-29 12:47:21
739
原创 VB一款实现图像浏览的ActiveX控件
利用GDI实现浏览图片的ActiveX控件,功能:支持读取PNG格式的图片,支持鼠标飞轮对图片进行缩放,镜像,旋转,移动等功能,其中用到了功能强大的GDI,GDI+,对初及vb编程爱好者运用GDI-API有很大的研究价值,控件利用GDI实现了基本功能,更多功能大家自己扩展。[工程包下载:https://download.csdn.net/download/ty5858/87815530]https://download.csdn.net/download/ty5858/87815530)
2023-05-25 17:08:28
1052
原创 利用VB6结合E4A在同一区域网手机控制电脑锁屏关机重启等
将"调试版_我的电脑.apk"APP安装到安卓手机上,安装好后运行该APP,点击右上角的设置图标,输入电脑的IP地址和解屏密码。获取电脑IP地址按下Win+R打开系统运行对话框,输入cmd,回车,输入ipconfig,回车,IPv4 地址 或 默认网关其中一个便是IP,将其输入到APP第一个输入框,输入完成按手机返回键转到主界面。在电脑上双击"CoolEasily.exe"程序,运行后如果成功手机会显示连接成功,连接失败换个电脑IP地址试试,(注:手机和电脑必须同在一个区域网)。
2023-05-17 23:33:49
344
原创 VB模仿CAD十字光标
End TypeOk = 0End EnumEnd TypeNone = 0Draw = 1Drag = 2End EnumEnd SubEnd IfEnd IfEnd SubMe.RefreshMe.ClsEnd IfEnd SubDim X, YMe.RefreshMe.Cls。
2023-04-27 15:09:47
958
原创 VB拖动外部文件到程序图标时进行删除
N = MsgBox(“真的要永久删除“” & PathIntegral(Filepath, 1) & “”?'将文件生成EXE文件后,拖动要删除的文件或目录文件夹到程序图标上即可,本代码只能一次单个文件进行处理,如进行多个文件删除,请自行修改。FOF_RENAMEONCOLLISION = &H8 '如果目标已经存在,则重命名。FOF_SIMPLEPROGRESS = &H100 '不要显示每个文件的名称。FOF_MULTIDESTFILES = &H1 '目标指定多个文件。'删除文件夹或文件的函数。
2023-04-23 12:48:08
463
原创 一款VB纯自绘的下拉式列表控件源码
一款VB纯自绘的下拉式列表控件,其中包括数组的添加与删除函数,绘制滚动条的函数,鼠标飞轮事件的函数等一些纯源码的实现,对VB爱好者有很大的学习专研,有兴趣编写列表控件的同学可以下载参考参考。
2023-04-10 14:01:05
364
原创 常用的VB函数
Val()将数字字符串转换为数值类型,当字符串中出现数值类型规定的字符外的字符,则停止转换,函数返回的是停止转换前的结果。例如表达式:Val("-123.45ty")的结果为- 123.45;注意:Str()函数将非负数值转换成字符类型,会在转换后的字符串左边增加空格,即数值的符号位。例如表达式:"abc"+Str(123)的结果为"abc 123"而不是"abc123"。注:区分区整数Int()、Fix()和Round()的异同。
2023-03-21 18:28:15
1134
原创 VB纯代码调用系统打开对话框(多选)
'lMaxFileNum 文件个数,长度的数值,一般是255,如果文件多,可以使用65535。Public sFileName() As String '用于打开文件时的数组。sFileName(0) = FileNames(0) '如果只是选了一个。'uFlag 指是否可以选择多个文件,1可以,其他就只能选一个。'在窗口上画一个List1和一个Command1按钮。'hwnd 指窗体的HWND值。'sTitle 指对话框的标题。.*,多个可以使用分号隔离。
2023-03-21 17:33:19
1462
2
原创 VB实现点爆炸效果
If S < 1 Then Call Init '所有喷发物已飞出可见区,重新初始化喷发物。Me.Caption = “宇宙大爆炸 - 演示”Command1.Caption = “开始演示”Check1.Caption = “闪烁光点”'显示一次爆炸的瞬时状态。
2023-03-11 09:49:13
666
1
原创 VB实现火焰的效果
'锁定指定窗口,禁止它更新。同一时刻间只能有一个窗口处于锁定状态,可用在界面作大弧度布局改变时。'将一幅位图从一个设备场景复制到另一个。源和目标DC相互间必须兼容。If Go.Caption = “开始” Then。Me.Caption = “VB实现火焰的效果”'在指定的设备场景中设置一个像素的RGB值。Go.Caption = “开始”Go.Caption = “开始”.Caption = “暂停”
2022-12-22 23:59:08
780
3
原创 VB通过子类化添加滚动条
Public Const SM_CYHSCROLL = 3 '水平滚动条的宽度。Command1.Caption = “隐藏垂直滚动条”Command2.Caption = “隐藏水平滚动条”Command1.Caption = “显示垂直滚动条”Command1.Caption = “隐藏垂直滚动条”Command2.Caption = “显示水平滚动条”Command2.Caption = “隐藏水平滚动条”Label1 = “垂直滚动条的值”Label2 = “水平滚动条的值”'滚动条的显示与隐藏。
2022-11-02 21:01:16
714
原创 vb 中控件随窗体的改变成比例改变大小
'InStr函数,返回 Variant (Long),指定一字符串在另一字符串中最先出现的位置。'----------------------------- 窗体:Form -----------------------------------------------'Mid函数,返回Variant (String),其中包含字符串中指定数量的字符。'Each是一个关键字,作用是针对一个数组或集合中的每个元素,重复执行一组语句。'根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小。
2022-10-16 15:14:43
1577
原创 VB实现长标题文本压缩
Private Const DT_VERTICAL = (DT_SINGLELINE Or DT_LEFT Or DT_VCENTER) '垂直居中左对齐。Call DrawTextEx(Me.hDC, “这里就是要在窗口或其他控件对象上显示的文本”, TxtRect, DT_VERTICAL)'返回文本函数(文本,矩形,显示位置格式)'当文本宽度...
2022-08-17 00:46:10
445
原创 VB开发OCX控件的属性之自定义列表项
到这里一个OCX控件属性的编写就结束了,测试,打开Form窗体,在左边的部件栏中单击刚编写的UserControl控件图标,然后在Form窗体中拖出一个UserControl1控件,在这个控件的属性栏我们就可以看到"BorderStyle"这个属性了。“Style”是类的名称(自设),而这个类里面的“0-1-2-3-4-5”便是该类中包含的成员,“[]“中的字符串可以是中文或其他语言,但”=“后必须是数字,字符串和等号后的数字是对等的,在设计中可以用”[]“里的字符串或相应的数字相互对替。...
2022-08-16 16:14:27
881
原创 vb自制选卡控件
我们在设计多类功能排版上会用到分类的选卡控件,为了使VB初学者能通俗的了解选卡控件的制作,小编编写一个超简单明了的选卡控件供大家学习及研究,用兴趣的小伙伴不妨下载看看,核心源码一目了然,弄明白原理,你就可以扩展更多功能、界面等。.........
2022-08-07 20:34:45
415
原创 VB更改盘符图标
利用VB6实现更改磁盘盘符的图标,过程通过修改系统注册表来实现这个小小的功能,感兴趣的小伙伴可以下载研究研究,当中用到一些API来进行对注册表读写,部分代码:Private Const ZCBURL As String = “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons”Dim ListText As String, Ltext As String, i As IntegerPrivate Function PFSize(By
2022-06-22 01:18:11
406
原创 VB利用SHFileOperation实现拷贝、删除、重命名文件
Private Declare Function SHFileOperation Lib “shell32.dll” Alias “SHFileOperationA” (lpFileOp As SHFILEOPSTRUCT) As LongPrivate Type SHFILEOPSTRUCThwnd As Long ’wFunc As LongpFrom As StringpTo As StringfFlags As IntegerfAnyOperationsAborted As Long
2022-06-09 22:20:22
1209
原创 VB实现制作复选框OCX
实现VB复选框的制作,该控件跟VB自带的CheckBox功能类似,只是增加了鼠标动作颜色变换和复选框利用图片代替,对初学者有一定研究价值,感兴趣的VB爱好者可以下载学习,或扩展自己想要的功能。工程包下载地址:https://download.csdn.net/download/ty5858/85571500...
2022-06-07 02:32:55
538
原创 VB中利用DrawText输出字符串且自动换行
VB中有个Print函数可以对字符串输出到窗体、图像框、立即窗口、打印机等对象上,但它也有一定的局限性,比如长文本时需要自动换行是很麻烦的,但是利用API就很容易做到,接下来我们就利用DrawText来实现长文本自动换行,且加上文本背景和文本颜色的方法,如图:首先我们先设定一个限定文本输出的RECT范围架构,而这个RECT架构我们可以用一个API函数"SetRect"来设置:RECT结构 Private Type Rect Left As Long ...
2022-05-27 21:14:11
2080
VB多列列表控件.rar
2024-05-03
VB自定义版影音播放器.rar
2023-11-07
PS-ICOFormat
2023-09-27
自绘VB列表OCX控件
2023-07-16
vb combobox.ocx
2023-06-18
VB自绘下拉式列表控件源码
2023-04-10
VC运行库(32-64位系统)
2022-09-25
控件开发,实现制作选卡,选卡,多项功能分类
2022-08-07
制作VB CheckBox复选框OCX
2022-06-07
VB集成无标题栏图片按钮Activex
2022-05-25
一款代替VB自带的ListBox列表控件
2022-05-08
VB简易绘图板,实现鼠标画自由曲线、直线、矩形、椭圆、橡皮擦以及无规则异形颜色填充,还支持撤销与重做功能。
2022-04-23
VB新的列表框控件.RAR
2022-03-15
VBPowerWrap
2021-11-22
Anyi-阿艺文档编辑
2021-02-10
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人