自定义类型，就是我们常见的 Type 定义的类型。可以帮助我们有效的组织数据，而不需要创建大量的类。 VB6中的 Type 定义的自定义类型，类似于 C 语言中的 typedef

亲爱的吧友们，表格出到3.0了 今晚抽空给大家发点图先看一下。 当初开始做表格的时候，也在吧里发过帖子，有支持的点赞的，但是也有很多冷嘲热讽的，很是寒心 表格计划是做两个版本，一个个人免费版，高级功能会限制下。另一个版本是商业版，会手点费用，因为做表格太花费精力了。我这个表格做了3年，自己才算比较满意。 希望大家多多评论，点赞支持，给点鼓励 下面放图

我闲的**仿写了XP经典版的扫雷…… 但是我算法太垃圾了，所以游戏运行真心有点慢……Or 甚至还有点卡……Orz 我就抛砖引玉，求大佬们的指点……Orz

一楼喂度娘。 等半个钟头后，确认这个贴子没被吞，我再说下文。

一两年前在百度上搜到有关游戏里凸多边形碰撞检测的博客，奈何数学太差一堆计算搞得晕头转向，今天重新研究终于用向量搞出来了。看起来没有人用vb写过这种东西（因为vb搞游戏的人也不多），我把源码发上来供大家研究学习。 多边形是我用自己封装的GDI+类库绘制的，运行前需要注册XGraph.dll，文件里个叫FastRegsvr.exe的快速注册工具，直接把dll拖过去就行（要.Netframework4.6.1支持，没有安装的吧友自己用命令行注册吧

游戏源码由@昭亭山赏雪 在本吧发布 http://tieba.baidu.com/p/4744182758 我对这个游戏进行了优化和升级 并设置了10个默认关卡 源码地址： https://pan.baidu.com/s/1U0CYS6cnk41qZMjBi1a0HA ++增加了生命值、攻击力、攻击速度、武器等级等属性 ++武器由单发、连发、霰弹三种形式调整为武器升级系统 武器每升1级，每次发射子弹数量+1，最大为10 ++增加了杀敌随机掉落道具的设定 ++增加了几种道具 攻：攻击力提升1~10点 速：攻击速度提升10%，最大为5，即每秒5发子弹 HP：生命

可以计算移动火柴使等式成立的问题 https://pan.baidu.com/s/1PdTglIQCkqoVC4OeC6xXLA 计算结果不包括等式位数增减的情况（例如11移动2根火柴变成4，8移走3根变火柴变成11）

这是IDE下属性设置界面 这是用户界面 这是用户报表打印设计界面，方便用户自定义打印样式 只能抽工作之余写，前后花费的时间很多，表格基本功能差不多都已实现，报表设计打印是以前写的，有时间再把界面重新写。 吧里现在都是作业帖，也没有什么好帖子了， 希望吧主能管管。

吼吼吼大家好我是方程 不知道还有没有人记得我一年多以前发的某个预告帖： 后来这个DUI类模块并没有发布 其实已经写了很多了，但是感觉这个东西并没有达到预期，最重要的是貌似没什么人关注= =就干脆懒得发出来了 于是给VB搞一套DUI一直成了内心一个疙瘩，直到最近才又开始在原来封装的类模块的基础上制作DUI 然而拒绝放假的学校就算坟头补课也不想放清明节。。。这套DUI要制作完遥遥无期。。。 制作DUI的过程中为了用户使用起来更优雅更方

https://pan.baidu.com/s/1bpnRA5h 参照骨架提取的算法写了一个VB版本的

大家可能发现了VB6自带的API浏览器的列表框不支持滚轮（就是下边的那个） 于是鄙人今天心血来潮为他写了一个“滚轮支持”，希望大家能喜欢~ 思路&源码见二楼

自己工作原因，有时候会用VB6写一些管理类的小程序。但是VB自带的表格真的不好用，网上找的表格好用点的差不多都是收费的，并且不便宜，于是就决定自己写一个。 因为是自学的VB，可能知识不是很全面，真心觉得写表格真是困难，这个表格前前后后写了有一个月。 先介绍下表格，支持用户列位置拖动调整，鼠标列宽拖动调整，双击表头排序，支持列对齐方式，列格文本格式化显示，支持文本输入，下拉多了选择框，真假复选框，按钮，图片，日

很简单的一个小动作, 但是如果能【举一反三】加以应用, 它就不再是简单的东东. '添加 Command1 Command2 Option Explicit '强制变量必须声明 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function SendMessage Lib "user32" Alias &qu

经过研究，发现现在腾讯已经不使用插件来获取已登录的QQ进行快速登录了，那么是怎么做的呢？ 经过研究，发现腾讯是通过一个本地服务器提供服务： 构造一个如下的请求： GET https://localhost.ptlogin2.qq.com:4301/pt_get_uins?callback=ptui HTTP/1.1 Accept: application/javascript, */*;q=0.8 Referer: https://xui.ptlogin2.qq.com/cgi-bin/xlogin?appid=1 Accept-Language: zh-Hans-CN,zh-Hans;q=0.8,en-US;q=0.5,en;q=0.3 Accept-Encoding: gzip, deflate Host: localhost.ptlogin2.qq.com:4301 Connection: Keep-Alive User-Agent: Mozilla/5.0 (Windows

鄙人花了大量心血做了一个远程控制，无论是否能让您满意，都希望你能喜欢吧~毕竟是楼主最后一个VB项目了。 二楼上图，三楼链接。

先前的提问帖现在已经有三十多页的回复了，不太方便大家提问以及快速收到回答。 故开此新楼作为提问帖。有问题都请放到这里。 请注意，此贴禁水。 ---贴吧极速版 For UWP

虽说AI一般般。但是吊打一般新手绰绰有余！ AI模块非常方便移植。AI代码100行左右！只开源单机版。局域网版自己改造！

不用 script 的eval 也能解析字符串表达式啦！！！ 欢迎测试BUG。求顶！！！！！ Function Js(s As String) As Double Dim fs$(), ns$(), ss$, j$, i% ss = "(/*-+" If IsNumeric(s) Then Js = Val(s) Exit Function End If For i = 1 To Len(ss) j = Mid(ss, i, 1) If InStr(1, s, j) > 0 Then If j <> "(" Then fs = Split(s, j, 2) Select Case j Case "(" fs = Split(StrReverse(s), j, 2) ns = Split(StrReverse(fs(0)), ")", 2) Js = Js(StrReverse(fs(1)) & Js(ns(0)) & ns(1)) Exit Function Case "/" Js = Js(fs(0)) / Js(fs(1)) Cas

@chengd222 求加精

度娘镇楼

对之前吧规进行了适度精简，并对一些问题作了明确。所有新的发帖行为都需遵守此规定。

防抽风，第一楼留给度娘

这是版本7！这是版本7！这是版本7！（重要的话说三遍） 版本6呢？ 没了！ 为什么？ 因为版本7相较于2015年5月24日发布的版本5，有了质的飞跃！ 什么叫“质的飞跃”？ 就是新增了那么多（用手比划）控件，改动了那么多（还是用手比划）代码，连界面都换了！ 那么，更新日志呢？ 嘛，更新的内容太多了，本宝宝不想都细细打出来，就让各位自行发掘吧！ 一点点的更新日志：加了好多新控件，改了很多原来的控件，支持升级主程序啦，支持一键添

残局镇楼！

http://pan.baidu.com/s/1dEwrdb7 '这是exe客户端 http://pan.baidu.com/s/1nufLBCH '这是服务器端和客户端源码，注意： 提取码请用上面的客户端私聊图灵机器人。口令：提取码 感谢 @5311011lmq 的聊天框技术支持和表情包，还有图灵机器人！ @《顾名思义》 @武林神话之剑客 @chengd222 求加精！ 2楼以后会开放提取码！ 求各位贴吧用户给我的服务器做个压力测试！！

Visual Basic 6.0 Sirk 迷你版 20160110 ( VB6 Sirk Mini 20160110 ) 概述 　　1、安装包大小只有19M！保留大部分常用功能，避免过度精简。支持Windows XP、Vista、win7、win8、win10，解决企业版（完整版）安装失败的问题。 　　2、保留企业版所有控件，可以正常打开所有VB工程；保留资源编辑器、类生成器、ADO数据访问、ADO数据环境、数据报表等功能，方便创建数据库应用程序；支持鼠标滚轮，方便代码编辑。 　　3、支持创建真正的控制台应用程序（Console exe），除此

TextBox默认无法设置不同文字颜色，今天我们来强制改变它，为TextBox增加不同颜色以及底纹效果，着色速度比RichTextBox快N倍。

发现百度百科中关于快排的代码没有VB6的,就自己试着写了个,分享出来. 2楼是图,3楼是bas文件地址,4楼是代码

先占个楼，具体实现是依靠GDI+的DrawDiverString，也就是传说中的底层画法。 二楼上链接。

某些算法 如模糊 锐化 等等 算法并不像我们想象的那么简单 你想象的模糊是：求周围点的平均值 但其实是：要用高斯的什么乱七八糟的公式去算 然而我看不懂 怎么办？现在就用智能王 双卡待机 啊呸 那个啥 可以用gdip自带的函数来实现啊

卧槽 累死了 源码在二楼 等我修改好 就上传 吊打VB 不能多线程 不能DLL 各种不能！ 卧槽 直接作死 不想在写了 从汇编跳到VB过程 然后在跳回汇编 真心醉了

rt 楼下放其功能特性等：

贪食蛇——拐弯抹角。用鼠标控制蛇移动。黑色食物放置一段时间后会发酵，能让蛇加速。不设障碍物，就等蛇失控撞死。上图。 外带字体，如果程序不能自动安装，请手动安装，不然喜欢宋体也行

http://pan.baidu.com/share/link?shareid=166259&uk=2701394164 这个还是百度网盘的地址，大家可以直接转入自己的百度网盘。

代码有点乱，编着玩的。两种迷宫式样

1L喂百度