2021年01月_键盘上的舞指

12月 11月 10月 09月 08月 05月 04月 03月 02月 01月

原创 VB实际读写INI文件

在窗体上画两个按钮(Command1、Command2)，一个输入框(Text1),代码如下：Option ExplicitPrivate Declare Function GetPrivateProfileString Lib “kernel32” Alias “GetPrivateProfileStringA” (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lp

2021-01-31 22:45:00 951

原创 VB窗体透明的实现

'添加一个标准模块，代码如下：Option ExplicitDeclare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As LongDeclare Function SetWindowLong Lib “user32” Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As L.

2021-01-31 00:50:55 2110

原创 VB将一张图片按比例缩放显示在一个Form或图像控件中

Option ExplicitPrivate Sub Form_Resize()Call Image_Scaling(Me, App.Path & “\1.jpg”)End Sub'函数(显示图片的容器，图片路径)Private Sub Image_Scaling(P As Object, URL As String)Dim RX1 As Long, RY1 As Long, RX2 As Long, RY2 As Long, Pic As New StdPictureDim Ret.

2021-01-31 00:24:10 1479

原创 VB两种移动无标题Form的方法

第一种：利用API移动，代码如下：Private Declare Function ReleaseCapture Lib “user32” () As LongPrivate Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Form

2021-01-30 22:29:38 276

原创 VB开机启动本程序(读写注册表)

在窗体中加入一个CheckBox控件，加入以下代码：Option ExplicitPrivate Sub Form_Load()Check1.Caption = “开机启动本程序”Check1.Value = WinVilerEnd SubPrivate Sub Check1_Click()Dim MySet My = CreateObject(“WScript.Shell”)If Check1.Value > 0 Then '将程序写入注册表的启动项中My.regWrite “.

2021-01-30 22:10:18 1070 2

原创 VB一款图片加解密小工具

程序除了可以对图片进行加解密以外，还可以对图片进行格式转换，对其他文件进行加解密等，有兴趣的V友欢迎下载研究学习！点击这里下载工程包提取码：PIC9

2021-01-29 15:07:06 226

原创 VB图片动态按钮控件

'新建一个ActiveX控件工程，粘贴以下代码：Option ExplicitPrivate Declare Function GetCursorPos Lib “user32” (lpPoint As POINTAPI) As LongPrivate Declare Function GetWindowRect Lib “user32” (ByVal hwnd As Long, lpRect As RECT) As LongPrivate Type RECTLeft As LongTop A.

2021-01-29 14:13:22 587

原创 VB一款笔记本电脑电池显示状态信息工具

程序很简单，有兴趣的V友们可以下载看看！点击这里下载工程包提取码：DVB1

2021-01-29 13:43:17 277

原创 VB图片分割器九宫格

'一款图片分割的小工具，控件开源，感兴趣的V友们可以下载研究研究学习学习！点击这里下载工程包提取码：GVB8

2021-01-29 13:26:05 375

原创 VB可以换背景图片的Form程序

该VB程序可以进行自定义窗体图片背景或设置纯颜色背景，还可以对图片进行淡化设置和窗体透明度设置等，适合换肤的程序使用。该程序希望对VB初学者有所研究和学习！支持原创！更多VB源码欢迎访问 https://blog.csdn.net/ty5858点击这里下载工程包提取码：FVB2...

2021-01-29 00:35:59 947

原创 VB一个平滑的字幕滚动控件(开源)

'添加一个ActiveX控件工程，代码如下：Option Explicit'自定类Public Enum TDO_Text '滚动方向[Right to left] = 0 '由右向左滚动[Left to right] = 1 '由左向右滚动End EnumPrivate Type FontZti As String '字体Zxing As String '字形Dxiao As Long '大小End TypeDim Rolling As Integer '滚动方向:[0]由右向.

2021-01-28 23:46:48 1216

原创 VB过滤相同的数字

'在窗体上画两个输入框(Text1、Text2)和一个Command1按钮,代码如下：Option Explicit'去除相同数函数Public Function Screening(ByVal txt As String) As StringDim S As String, I As Integer, J As Integer, b() As String, kkk As String, M As IntegerFor M = 1 To Len(txt)S = S & Mid(txt.

2021-01-28 23:10:01 497 1

原创 VB数值从小到大排序

'在窗体上画两个输入框(Text1、Text2),一个Command1按钮,代码如下：Option Explicit'数值从小到大排序的函数Public Function PPSRS(txt As String)Dim x, y, temp As IntegerDim arr(1 To 10) As IntegerDim K As StringDim i%On Error Resume Next'-------------先给arr赋值。。For i = 1 To 10arr(i) .

2021-01-28 22:56:38 4196

原创 VB一个漂亮的渐变时钟

'在窗体画一个Picture1和一个Timer1，属性为默认，加入以下代码：Option Explicit'渐变的时钟Private Sub DrawText(Dx As Object, Txt As String, BRed As Long, BGreen As Long, BBlue As Long, ERed As Long, EGreen As Long, EBlue As Long, Optional Nx As Double = 0)Static L(3) As Integer, Wx.

2021-01-28 21:07:31 333

原创 VB编写简易动态按钮控件

'添加一个UserControl1，加入以下代码：Option Explicit'将鼠标捕获设置到指定的窗口。在鼠标按钮按下的时候，这个窗口会为当前应用程序或整个系统接收所有鼠标输入.Private Declare Function SetCapture Lib “user32” (ByVal hwnd As Long) As Long'为当前的应用程序释放鼠标捕获.Private Declare Function ReleaseCapture Lib “user32” () As LongD.

2021-01-28 20:33:19 1399

原创 Vb查找ListBox列表数据，在原列表中显示查找到的数据。

'在窗体中画三个控件(Text1、Command1、List1)，属性为默认，加入以下代码：Option ExplicitPrivate Sub FindThe(List As ListBox, Txt As String, N As Boolean)Static Sstxt() As String, S(2) As Integer, Lt As BooleanIf N ThenIf Lt = False ThenFor S(0) = 0 To List.ListCount - 1ReDim

2021-01-28 00:20:24 1571

原创 VB运行后去除窗体标题栏且可改变窗口大小及移动窗体

'新建一个标准模块，放入以下代码：Option ExplicitPrivate Declare Function GetActiveWindow Lib “user32” () As Long '获取窗体焦点Private Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Functio

2021-01-27 23:51:52 2061 4

原创 VB让窗体图片随着窗体大小而缩放，适合做换肤窗口

'将下面的代码放到标准模块中：Option ExplicitPrivate Declare Function AlphaBlend Lib “msimg32.dll” (ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt

2021-01-27 23:27:23 1038

原创 vb6纯代码调用系统的打开与保存对话框

Private Declare Function GetOpenFileName Lib “comdlg32.dll” Alias “GetOpenFileNameA” (pOPENFILENAME As OPENFILENAME) As Long '"打开"APIPrivate Declare Function GetSaveFileName Lib “comdlg32.dll” Alias “GetSaveFileNameA” (pOPENFILENAME As OPENFILENAME) As Lo

2021-01-24 13:57:10 841 1

原创 VB纯代码调用系统的打开对话框

'模块Private Declare Function GetOpenFileName Lib “comdlg32.dll” Alias “GetOpenFileNameA” (pOPENFILENAME As OPENFILENAME) As Long '“打开”Private Declare Function GetActiveWindow Lib “user32” () As Long '获得活动窗口的句柄Private Type OPENFILENAMElStructSize A

2021-01-24 13:53:27 664

原创 VB创建网页浏览

Private WithEvents Ie As VBControlExtender'动态删除控件Private Sub Command2_Click()Controls.Remove “Ie”End SubPrivate Sub Command1_Click()Dim strweb As StringText1 = WebDaima(Ie, “All”)End SubPrivate Sub Command3_Click()'Ie.object.document.parentwindow

2021-01-24 13:40:30 540

闪酷休闲小游戏-读取器

2024-07-02

一款利用VB6编写的系统优化小工具，系统优化、桌面优化、清理垃圾、查找文件等功能

一款利用VB6编写的系统优化小工具，系统优化、桌面优化、清理垃圾、查找文件等功能。

2024-06-14

VB多列列表控件.rar

VB6写的一个多列列表OCX控件源码，核心就是利用数组划分成多列数据，可装载亿条数据以上，控件引用了四个PictureBox控件分别作为:索引号显示，列表，垂直滚动条和横向滚动条，基本实现列表的添加、修改和删除等功能，因为时间问题，没有进一步实现更多功能，感兴趣的VB迷们可以自行编写，也希望大家编改后或有更好的源码多多分享，深夜写码不易，转载请注明文章出处，相互学习，相互进步！

2024-05-03

VB自定义版影音播放器.rar

利用VB开放自定义播放器，基于系统Quatrz.dll的接口将媒体显示到指定的控件容器中，比如PictureBox,实现播放的基本功能，播放，暂停，停止，音量，平衡，进度，媒体的总时间和进度时间……感兴趣的VB发烧友可以下载研究研究。

2023-11-07

一款桌面优化小工具.rar

一款桌面优化小工具

2023-10-04

PS-ICOFormat

ICOFormat简介：强大的图片编辑处理软件photoshop竟然一直不支持ico格式的图标文件，这真让人恼火。还好，有热心人开发了一款名叫ICOFormat的PS插件，利用它，就可以在photoshop中打开，编辑和保存ico文件了。这绝对是一个好东东，是ps爱好者们一直在寻找的插件。如果你也使用photoshop，还喜欢制作一些网站favicon.ico缩略图标，或者个性的文件夹图标，那么，一定不要错过ICOFormat了…… 本插件可以使用在多个版本的photoshop中，包括最新的Photoshop CS5.1/CS6。注意事项： ICOFormat插件可以使用于64位或32位的windows系统和PS版本。但在新建图像时的【宽度】和【高度】一定不能大于255*255 像素，否则在保存时“存为ICO格式”的选项将被插件自动过滤掉！另存为：文件名必须带后缀名，如:123.ico，选择"StendardICO(use for favicon.ico)"，按"OK"即可。

2023-09-27

自绘VB列表OCX控件

纯代码编写的一款VB列表OCX控件，它与VB自带的ListBox列表类似，作者只是在外观上添加了一些功能，比如，背景可设置纯颜色，双色渐变(多选)，斑马，图片，透视，网格线。鼠标经过和选中的行背景颜色，改变滚动条样式和颜色，添加项目可加载图标图片，单独一行的序列号和备注显示，界面有平面和立体选项等。对追求外观界面控件的VB爱好者，以及小白，对数组编写有很好的学习价值，该实例还有很有扩展的地方，可以自行编写，更多VB源码就在https://blog.csdn.net/ty5858?type=blog 控件属性说明： hwnd：控件的句柄。 ListCount：列表数组数据的总数量。 List：返回/设置控件的列表部分中包含的项。 ListIndex：返回/设置该控件中当前选定项目的索引。 Text：返回/设置控件中包含的文本。 BackColor：返回/设置列表对象的背景颜色。 BackIndex：返回/设置编辑列表对象背景颜色索引号。 BackStyle：返回/设置背景显示的样式。 BackzShade：返回/设置对象背景渐变的样式(当前 BackS

2023-07-16

vb combobox.ocx

VB6一款自绘的下拉式列表控件combobox,功能与VB6自带的combobox类似，作者只是在外观界面设计上做了美化，如输入框前显示一个图标，弹出的列表添加了光标热追踪，选中的样式，滚动条平面化和渐变化等等……

2023-06-18

利用VB6实现显示图像控件

一款显示图像的ActiveX控件，支持PNG图片，支持鼠标滚轮对图像进行缩放，镜像，旋转，鼠标移动图像。

2023-05-24

VB6同一区域网手机控制电脑的实现之VB源码包

2023-05-16

VB6同一区域网手机控制电脑的实现之手机源码包(E4A)

2023-05-16

VB自绘下拉式列表控件源码

一款VB纯自绘的下拉式列表控件，其中包括数组的添加与删除函数，绘制滚动条的函数，鼠标飞轮事件的函数等一些纯源码的实现，对VB爱好者有很大的学习专研，有兴趣编写列表控件的同学可以下载参考参考。

2023-04-10

VC运行库(32-64位系统)

系统程序错误：应用程序无法正常启动(0xc0000005)，请单击"确定"关闭应用程序。这是因为系统缺失了应用程序启动文件所导致的，解决的办法就是重新安装一下运行库文件，然后按Win+R打开运行对话框，输入"Services.msc"运行服务，在右边栏下滑找到"Windows Modules Installer"双击打开，将启动类型设为"自动"，再单击"启动"按钮，转到"恢复"栏，将前三个选项设为"运行一个程序"，按"确定"退出服务，最后就可以在系统安装其他软件了。

2022-09-25

控件开发，实现制作选卡，选卡，多项功能分类

我们在设计多类功能排版上会用到分类的选卡控件，为了使VB初学者能通俗的了解选卡控件的制作，小编编写一个超简单明了的选卡控件供大家学习及研究，用兴趣的小伙伴不妨下载看看，核心源码一目了然，弄明白原理，你就可以扩展更多功能、界面等。

2022-08-07

vb实现更改磁盘盘符的图标

利用VB6实现更改磁盘盘符的图标，过程通过修改系统注册表来实现这个小小的功能，感兴趣的小伙伴可以下载研究研究，当中用到一些API来进行对注册表读写。

2022-06-22

VB利用SHFileOperation调用系统对话框实现对文件拷贝、删除、重命名

2022-06-09

制作VB CheckBox复选框OCX

实现VB复选框的制作，该控件跟VB自带的CheckBox功能类似，只是增加了鼠标动作颜色变换和复选框利用图片代替，对初学者又一定研究价值，感兴趣的VB爱好者可以下载学习，或扩展自己想要的功能。

2022-06-07

VB集成无标题栏图片按钮Activex

VB集成无标题栏图片按钮Activex，适用于无标题栏可控Form操作的一款控件，动态实现增减对象元素，对象元素跟VB自带的CommandButton控件差不多，每个元素主要以图片为可视动态背景(非文本)，图片格式为四联式(弹起，按下，经过，无效)，除了常规的功能外，对鼠标经过时弹出的气泡提示对话框进行了美化，在设计时可修改气泡对话框的背景颜色和渐变文本颜色。

2022-05-25

VB制作控件之图片命令按钮

2022-05-11

VB利用多张PNG图片做动画

2022-05-09

一款代替VB自带的ListBox列表控件

一、列表简介一款代替VB自带的ListBox列表控件，多种背景添加样式，改变背景透明度，鼠标热跟踪，指定显示文件夹下的子文件夹和文件，鼠标点开文件夹浏览下一个文件夹，支持撤销功能，自定义改变滚动条样式和颜色，显示项目图标及文件大小等功能。二、源码控件为开源控件，当中包含很多单独功能的函数，对VB初学者来有很大的学习价值，大到每一个函数，小到每一行代码，甚至一个变量，都以中文注释，清晰明了。

2022-05-08

VB实现文本框[向后、向前、剪切、复制、粘贴、删除、清空、全选]的功能

2022-04-24

VB简易绘图板，实现鼠标画自由曲线、直线、矩形、椭圆、橡皮擦以及无规则异形颜色填充，还支持撤销与重做功能。

2022-04-23

捐款合计金额系统.rar

VB一键合计金额，提取文本中的金额数字，累计总和。

2022-04-15

ShowPNG.rar

2022-03-24

VB新的列表框控件.RAR

一款超好用的列表框架控件，内置一键加载文件夹中的子文件夹和文件，自动识别文件图标、文件大小显示，鼠标热跟踪，网格线，支持批量删除项目处理，修改滚动条颜色，列表背景显示：线性渐变（颜色可设），添加图片，透明列表（透明度可设）等功能。

2022-03-15

去除(恢复)桌面快捷键图标小箭头

2022-02-06

Visual Basic 颜色列表控件

颜色列表控件

2021-12-02

VBPowerWrap

VB程序打包工具中文版最大的亮点是允许你在打包Vb程序的时候，VB程序打包工具中文版能够抛弃成大堆的OCX/DLL等控件，超强的瘦身你的应用程序包，而且这项功能是选择性的，由你决定是否使用这种方案。 VB程序打包工具中文版允许开发者在发布他们的程序时不需要再加入一大堆的 OCX 与 DLL 文件。该程序可以帮助 Visual Basic 程序员在发布他们的可执行文件时不需要再担心关于其他链接库与 OCX 的问题了。VB-PowerWrap 允许你将程序所必需的所有 .dll 文件与 .ocx 文件打包到你的 VB 程序内部，并且不需要用户安装，直接就可以运行。并且 VB-PowerWrap 可以自动注册所必需的 .dll 与 .ocx 文件! VB-PowerWrap 通过扫描一个 Visual Basic 的工程文件，并将该工程所需要的文件进行打包，然后创建一个包含所有必要文件的可执行文件供程序员发布。VB-PowerWrap 使用了超强的压缩模块，这样可以创建出最小的 .exe 文件。功能简介压缩所有的 DLL 与 OCX 文件如果需要则在用户的机器上注册必要的控件不会出现恼人的运行时问题自动扫描工程所必需的 DLL 与 OCX 文件。可以用于 Visual Basic 4、5、6 版本中。

2021-11-22

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人