键盘上的舞指

lpCustColors = String$(64, vbUnicode) '设置自定义颜色(转换为Unicode)Const CC_RGBINIT = &H1 '指定 rgbResult 颜色值。.hInstance = App.hInstance '设置应用程序的实例。.lStructSize = Len(cc) '设置结构尺寸。.hwndOwner = Me.hWnd '设置所有者。.rgbResult = Color '指向颜色值。(cc.rgbResult)) '转为16进制。

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 & " 字节"

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!

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

'在窗口上添加一个Timer，默认设置。

'显示资源文件中的PNG(场景DC，左偏移X值，右偏移Y值，显示局部宽度，显示局部高度，资源文件的ID号，类型)'在代码编辑窗口复制粘贴以下代码,按F5运行后鼠标点击窗口即可显示资源文件中的PNG文件。Dim ImgW As Long, ImgH As Long '图像的宽度高度。'加载并打开资源文件，点击"添加自定义资源"，添加一个PNG文件，保存。'创建与指定设备上下文相关联的图像对象(Graphics)显示到设备上。'加载资源文件到一个byte变量数组中。'设置图像对象的渲染质量(反锯齿)

ByVal fuWinIni As Long) As Long '去掉lpvParam的Byval修饰符才可以正常工作。'声明：修改模块常数Private Const Margin As Long = 20可调整距离。

m_Tip.Show Me.hwnd, “这是一个可以指定位置和箭头方向气泡提示！” & vbCrLf & _m_Tip.Delay = 1500 '1500毫秒后气泡自动消失。'* 功能：一个可以改变箭头方向的气泡提示类。“第二行信息”, “信息”, 20, 50。'* 模块名称：clsTip.cls。'窗口调用,窗口添加两个Command。m_Tip.Hide '也可以手动消失。

'在Form上添加一个ListBox列表控件。

利用GDI实现浏览图片的ActiveX控件，功能:支持读取PNG格式的图片，支持鼠标飞轮对图片进行缩放，镜像，旋转，移动等功能，其中用到了功能强大的GDI，GDI+，对初及vb编程爱好者运用GDI-API有很大的研究价值，控件利用GDI实现了基本功能，更多功能大家自己扩展。[工程包下载：https://download.youkuaiyun.com/download/ty5858/87815530]https://download.youkuaiyun.com/download/ty5858/87815530)

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

If S < 1 Then Call Init '所有喷发物已飞出可见区，重新初始化喷发物。Me.Caption = “宇宙大爆炸 - 演示”Command1.Caption = “开始演示”Check1.Caption = “闪烁光点”'显示一次爆炸的瞬时状态。

'锁定指定窗口，禁止它更新。同一时刻间只能有一个窗口处于锁定状态，可用在界面作大弧度布局改变时。'将一幅位图从一个设备场景复制到另一个。源和目标DC相互间必须兼容。If Go.Caption = “开始” Then。Me.Caption = “VB实现火焰的效果”'在指定的设备场景中设置一个像素的RGB值。Go.Caption = “开始”Go.Caption = “开始”.Caption = “暂停”

Public Const SM_CYHSCROLL = 3 '水平滚动条的宽度。Command1.Caption = “隐藏垂直滚动条”Command2.Caption = “隐藏水平滚动条”Command1.Caption = “显示垂直滚动条”Command1.Caption = “隐藏垂直滚动条”Command2.Caption = “显示水平滚动条”Command2.Caption = “隐藏水平滚动条”Label1 = “垂直滚动条的值”Label2 = “水平滚动条的值”'滚动条的显示与隐藏。

VB实现数字到中文金额的转换函数

'InStr函数，返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。'----------------------------- 窗体：Form -----------------------------------------------'Mid函数，返回Variant (String)，其中包含字符串中指定数量的字符。'Each是一个关键字，作用是针对一个数组或集合中的每个元素，重复执行一组语句。'根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小。

VB中如何声明及使用多维数组,多层数组及动态数组

VB文本框(TextBox)根据行数多少来自动显示/隐藏滚动条

Private Const DT_VERTICAL = (DT_SINGLELINE Or DT_LEFT Or DT_VCENTER) '垂直居中左对齐。Call DrawTextEx(Me.hDC, “这里就是要在窗口或其他控件对象上显示的文本”, TxtRect, DT_VERTICAL)'返回文本函数(文本,矩形,显示位置格式)'当文本宽度...

Option ExplicitPrivate Type PICTDESCcbSizeofStruct As LongxExt As LongyExt As LonghImage As LongpicType As LongEnd TypePublic Enum IconExtractEnum[SIZE_16] = 0[SIZE_32] = 1End EnumPrivate Const MAX_PATH = 260Private Type SHFILEINFOhIcon As Lo

VB利用API画线性渐变矩形

我们在设计多类功能排版上会用到分类的选卡控件，为了使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

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

实现VB复选框的制作，该控件跟VB自带的CheckBox功能类似，只是增加了鼠标动作颜色变换和复选框利用图片代替，对初学者有一定研究价值，感兴趣的VB爱好者可以下载学习，或扩展自己想要的功能。工程包下载地址：https://download.youkuaiyun.com/download/ty5858/85571500...

VB中有个Print函数可以对字符串输出到窗体、图像框、立即窗口、打印机等对象上，但它也有一定的局限性，比如长文本时需要自动换行是很麻烦的，但是利用API就很容易做到，接下来我们就利用DrawText来实现长文本自动换行，且加上文本背景和文本颜色的方法，如图：首先我们先设定一个限定文本输出的RECT范围架构，而这个RECT架构我们可以用一个API函数"SetRect"来设置：RECT结构 Private Type Rect Left As Long ...

VB实现界面组件动态分割

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

续 VB制作控件之图片命令按钮➀这一节我们实现鼠标动作事件。首先我们需要创建一个计时器Timer对象，代码如下：

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

VB利用PNG图片制作动画，本例用到GDI+来显示PNG图片，实现一个卡通人物来回徒步的效果。'ModuleOption ExplicitPrivate Declare Function GdiplusStartup Lib “gdiplus” (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As GpStatusPrivate Declare Sub GdiplusShu.

VB中Null、Empty、Nothing及vbNullString的区别

VB读取TXT文件的方法

VB实现鼠标拖动网页文本到TextBox

'这是一个模拟星空的 vb 小程序，代码在 VB6 调试通过，无数大小不同的彩色星星不停移动和闪烁'在窗体添加控件：Label1，Timer1'在属性窗口设置 Label1 的 Index 属性为 0'代码如下：Option ExplicitDim I As IntegerPrivate Sub Form_Load()Me.Caption = “星空闪烁”: Me.BackColor = vbBlackLabel1(0).AutoSize = True: Label1(0).Caption.

’在窗体中添加一个Timer1，属性默认'代码如下：Option ExplicitDim Pic As New StdPictureDim Spacing As LongDim Rspeed As LongDim Would As LongPrivate Sub Form_Load()Me.AutoRedraw = TrueMe.ScaleMode = vbPixelsTimer1.Interval = 1000 \ 18Set Pic = LoadPicture(“C:\User.

'在窗体中添加一个TextBox,属性默认，两个CommandButton按钮,Command1.Caption=“后退”,Command2.Caption=“前进”；'代码如下：Option ExplicitPrivate Type Bytesarr() As ByteEnd TypeDim txtInput As Boolean '控制文本框的输入'存储文本到二进制数组变量中Private Function WriteP(Text As String)Dim pbag As New .

VB简易绘图板，实现鼠标画自由曲线、直线、矩形、椭圆、橡皮擦以及无规则异形颜色填充，还支持撤销与重做功能。工程包下载地址：https://download.youkuaiyun.com/download/ty5858/85204629

Option ExplicitDim xX(100) As Single, yY(100) As SingleDim WithEvents Timer1 As VB.TimerPrivate Sub Form_Load()Me.ScaleHeight = 200Me.ScaleWidth = 300Me.BackColor = &H0Me.AutoRedraw = TrueSet Timer1 = Controls.Add(“VB.Timer”, “timer1”)Timer1..

'在窗体中添加一个Timer控件，将Interval设为1000。Option ExplicitConst PI = 3.1415926Dim BaseX As Integer, BaseY As Integer, R As IntegerDim r1 As Integer, r2 As Integer, r3 As IntegerPrivate Sub Form_Load()Me.ScaleMode = 3Me.AutoRedraw = TrueIf Me.Width < 3000.