好久没有到CSDN了，经过几个昼夜的编写，VB源码之友终于升级了，有兴趣的朋友帮忙测试一下

Question

新版VB源码之友2006终于在几个通宵中诞生了，好累！不过值得欣慰的是，它比老版本有了很大的提高，无论是界面还是功能都有了质的飞跃。主要在以下方面有了很大的改变：1、图标显示（可以根据系统色，自动改变背景）2、VB IDE工具窗体3、热键自定义4、代码格式自定义5、知识库与VB IDE无缝嵌入，添加维护一体化6、智能升级简介：http://blog.csdn.net/yefanqiu/archive/2005/11/13/528415.aspx
测试代码下载地址：http://www.bjjr.com.cn/yefan/VBFriend2006.rar如果大家对所使用的技术感兴趣，我们可以交流一下，谢谢

Answer 1

注意：如果系统已装入老版本的VB源码之友，请一定先卸载，然后安装新的。否则VB会崩溃的!!!如果已崩溃，请把老版本的直接删掉吧！

Answer 2

打开首页也可以看到说明：http://blog.csdn.net/yefanqiu

Answer 3

顶顶～～～＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
http://j2soft.008.net/

Answer 4

能不能说详细点，老版和新版相比到底有什么好？其实新版与旧版相比只是界面改成XP风格了，功能定制更灵活了，此外一些比较深层的BUG也修订了。对了，愿意测试的朋友可以留下Email和标识码，我可以发一个注册图片过去。谢谢！！！

Answer 5

7707773764199823
[email protected] 

Answer 6

9028848743270398
[email protected]
看起来好象不错,先试试

Answer 7

我个人以为收获最大的是，实现的了自动升级，关键是实现的方法，使用tlb文件，不需要添加任何控件，很绿色的实现了在线升级，我很喜欢。并且我这个update.exe 是个独立的程序，可以根据ini文件指定下载和更新程序，也就是说任何程序只要加这个程序，在配置一下ini文件，就可以实现在线升级。愿意测试的朋友，我提供一个仅供测试的注册图片（功能有一定限制，并且标识测试版）
及时提供有价值测试意见的朋友，可以免费个人版。谢谢大家

Answer 8

cool_man(土豆)
sovom(落叶谍)  测试注册版已发，希望能用心一点测试，否则，嘿嘿：）
对了，如果您使用我的.net版本的API浏览器，在VB打开的情况下（当然必须加载VB源码之友）打开API浏览器一段时间后（第一次），VB源码之友，可以自动添加API浏览器的快捷图标。

Answer 9

如果安装了老版的VB源码之友，一定卸载，否则很容易崩溃，当然类似VB源码之友的同类插件加载也有可能冲突崩溃。你可以留下标识码和邮件，我给你发测试版的注册图片
对了，我的VB编辑器上的基本控件一下变成了XP风格，那个TextBox很别扭，重装VB还是XP风格，不知怎么回事，有知道的朋友告诉一下，谢谢

Answer 10

##########################################################################
强烈建议 将该帖子不要放在置定 帖行列  好东西 自己会浮起来的
原因 :
 VB之友好东西 我也在用 ,但非免费...  斑竹是为关系还是什么其他原因 不知, 总感觉帖子
像是做广告,  可能是帖子标题的缘故,并没给大家带来益处 不是吗.....以上是小弟的一些 建议, 就因为 觉得 CSDN 很神圣的地方 应该好好选选 置定帖子的标题---------------------##########################################################################

Answer 11

hot1kang1(许仙) 朋友说得对，有价值的帖子才值得置顶！ 我把VB源码之友的XP界面的源码全部公开，其中XP控件一部分是从网上资源下载的（有部分是枕善居下的）不过控件有很多细节有点问题，我做了部分修改，其它控件如选项控件是我参考千千静音做的，此外我把每个选项界面分为独立的窗体来做，这一个思路大家也可以参考。
全部源码下载的地址：http://www.bjjr.com.cn/YeFan/SourceCode/Interface.rar
下面是部分代码：'*************************************************************************
'**模 块 名：SetDlg
'**说    明：YFsoft 版权所有2005 - 2006(C)
'**创 建 人：叶帆
'**日    期：2005-11-09 15:59:31
'**修 改 人：
'**日    期：
'**描    述：配置对话框
'**版    本：V1.0.0
'*************************************************************************
Option Explicit
Private m_lngItemIndex As Long
Private m_lngItemNum As LongPrivate m_strItemName(0 To 11) As String
Private m_strItemInfo(0 To 11) As StringEvent ItemClick(Index As Integer, strItem As String, strInfo As String)
Event ItemMove(Index As Integer, strItem As String, strInfo As String)'*************************************************************************
'**函 数 名：lblSelect_Click
'**输    入：Index(Integer) -
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-11-09 17:31:57
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub lblSelect_Click(Index As Integer)
    imgSelect.Top = lblSelect(Index).Top - 2
    m_lngItemIndex = Index
    lblInfo.Caption = m_strItemInfo(Index)
    
    RaiseEvent ItemClick(Index, m_strItemName(Index), m_strItemInfo(Index))
End Sub'*************************************************************************
'**函 数 名：lblSelect_MouseMove
'**输    入：Index(Integer)  -
'**        ：Button(Integer) -
'**        ：Shift(Integer)  -
'**        ：X(Single)       -
'**        ：Y(Single)       -
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-11-09 16:29:10
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub lblSelect_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
   shpMenu.Top = lblSelect(Index).Top - 6
   
   If m_lngItemIndex = Index Then
      imgSelect.Picture = imgFlag(1).Picture
   Else
      imgSelect.Picture = imgFlag(0).Picture
   End If
   
   RaiseEvent ItemMove(Index, m_strItemName(Index), m_strItemInfo(Index))
   
End Sub'*************************************************************************
'**函 数 名：UserControl_Initialize
'**输    入：无
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-11-09 15:59:29
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub UserControl_Initialize()
    SetItem "基本配置|系统配置|关于", "叶帆软件系列 - 基本配置|叶帆软件系列 - 系统配置|叶帆软件系列 - 关于"
End Sub'*************************************************************************
'**函 数 名：UserControl_Resize
'**输    入：无
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-11-09 16:21:43
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub UserControl_Resize()
   UserControl.Width = 8610
   UserControl.Height = 5390
End Sub
'*************************************************************************
'**函 数 名：SetItem
'**输    入：strItem(String) - 用|分割的字符串  选项
'**        ：strInfo(String) - 用|分割的字符串  选项信息
'**输    出：无
'**功能描述：设置选项
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-11-09 22:02:31
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Public Sub SetItem(strItem As String, strInfo As String)
    Dim i As Long
    Dim strData() As String
    Dim strDatas() As String    If Len(strItem) = 0 Or Len(strInfo) = 0 Then
        Exit Sub
    End If    strData = Split(strItem, "|")
    strDatas = Split(strInfo, "|")    m_lngItemNum = UBound(strData) + 1    If m_lngItemNum > 12 Then
        m_lngItemNum = 12
    End If    For i = 0 To m_lngItemNum - 1
        m_strItemName(i) = strData(i)        If i <= UBound(strDatas) Then
            m_strItemInfo(i) = strDatas(i)
        Else
            m_strItemInfo(i) = strData(i)
        End If
    Next    For i = 1 To lblSelect.Count - 1
        Unload lblSelect(i)
        Unload linBar(i)
    Next    lblSelect(0).Caption = m_strItemName(0)
    For i = 1 To m_lngItemNum - 1
        Load lblSelect(i)
        lblSelect(i).Visible = True
        lblSelect(i).Top = lblSelect(0).Top + 25 * i
        lblSelect(i).Caption = m_strItemName(i)
        lblSelect(i).ZOrder 0        Load linBar(i)
        linBar(i).Visible = True
        linBar(i).Y1 = linBar(0).Y1 + 25 * i
        linBar(i).Y2 = linBar(i).Y1
    Next    shpBar1.ZOrder 1    '----------------------
    m_lngItemIndex = 0
    imgSelect.Top = lblSelect(m_lngItemIndex).Top - 2
    lblInfo.Caption = m_strItemInfo(m_lngItemIndex)End Sub

Answer 12

其实做一个软件，技术是一方面，但更重要的是架构的设计，性能的稳定；此外代码风格要好，利于调试，利于升级。
VB源码之友只是我在纯软件开发的一个作品，其实我更多感兴趣的是工控开发，各种现场总线，通信协议，PLC，控制现场的设备更有意思，更显的有价值。焦炉四大车系统，在济钢一个项目就200多万，隧道广告系统，北京环线地铁20条线，光成本投入就近千万，比单单一个软件值钱多了。
所以说软件技术并不是特别重要，关键是做出稳定的代码。所以技术我们可以交流，但是不一定开放最终稳定的源码。
就如OPC的开发，谁都知道这是关于COM的一个应用，但在同样的技术下，开发的产品差别巨大，在稳定性、性能、可靠性都有很大的区别。这与开发流程，测试流程，及开发人员的基本素质有很大关系。此外，我一致有种想法，想把各种资源整合一下，把技术转为价值。追求技术是程序员的天性，但不应是全部，还要落地，还要形成产品。
目前CSDN有个调查，调查大家都做了写什么产品，无论是公司产品还是个人的软件产品，好像做的很少，但我想CSDN上卧虎藏龙技术高人有的是，任何软件在他们的眼中从技术角度都可以做，但是如果他们按一个软件的产品的规格去做，我敢说不下一番功夫，是做不好产品的。VB源码之友从2002年开始做，一步步做了三年多的时间，才趋于稳定和完善，其实最初的技术都差不多具备了，但用这些技术构成的代码却不甚稳定。此外，对CSDN上的有贡献的朋友，VB源码之友永远免费，技术也是敞开的

Answer 13

agree to :架构的设计，性能的稳定
把程序架构做好，程序功能可以在使用过程中慢慢添加

Answer 14

谢谢  cool_man(土豆)  的测试，叶帆友情版（具备全部功能）注册图片 已发。

Answer 15

楼主，可以发一个测试版本给我么？
 我最喜欢做测试了，就想找别人的岔！
 顺便我也体验体验你的科技成果呵呵
 [email protected]

Answer 16

我也想参加测试  我的邮件是[email protected]  希望能体验你的成果

Answer 17

软件下载地址：http://www.softreg.com.cn/shareware_view.asp?id=/176F3DAB-838C-4CE0-A05F-930031BAD6B0/【注意】下载后，在在线注册选项中反馈软件标识号，只有这样我才可以提供给你测试版本的注册图片

Answer 18

to foold(总有新问题)
 测试图片已发

Answer 19

也给我一个吧!
[email protected]

Answer 20

打开VB显示的你的插件，点击新建工程，VB挂了

Answer 21

收到，.net版本的API浏览器我也在用，在VB打开的情况下（当然必须加载VB源码之友）打开API浏览器一段时间后（第一次），VB源码之友，可以自动添加API浏览器的快捷图标。可是我的怎么没有添加API浏览器的快捷图标呢。

Answer 22

不知道大家有用过CodeSMART2005的没，他的功能很强悍的，我比较喜欢他的全屏看代码，像.net的标签（代码、窗体），代码中的语句对应，呵呵还有其他的，希望老大的VB源码之友也有，哈哈：）

Answer 23

to griefforyou(为你伤心(http://book.4yt.net　四月天言情小说书库))
插件不太容易调试，也不太容易确认问题点，能否确认你的问题。
此外，VB一定要安装sp6，否则也会出问题

Answer 24

曾用过您的API浏览器，感觉不错。我也是在做工控方面的项目，好多要向您学习啊!
                     表示支持[email protected]

Answer 25

1141164918549445
[email protected]

Answer 26

to DawnPine(拂晓的松)测试图片已发，谢谢支持

Answer 27

谢谢叶帆，能不能发给图片给我测试一下，谢谢。[email protected]

Answer 28

刚刚完成一个ActiveX EXE组件，可以通过这个组件来进行多个串口的同时通信。可惜和老叶相比是小巫见大巫了，我的这个纺纱程序今年应该可以完成v3.0.0版本了（估计也是最后版本了哎）PLC，我也想搞，但是估计没有时间了，哎（好遗憾）
因为明年开始我要做销售去，我的目标是做经销商，还是把赚钱作为第一目标吧！
-------------------Visual Basic 6.0  我的最爱！！！！

Answer 29

软件名称：VB源码之友2006
    软件版本：V3.2.581
    标 识 码：8210559805418996晕，一直想用这个东西，给个测试版的注册码吧，老大，先看看：（

Answer 30

软件名称：VB源码之友2006
    软件版本：V3.2.581
    标 识 码：8210559805418996
忘了留Email啦，   [email protected]

Answer 31

软件名称：VB源码之友2006
软件版本：V3.2.581
标 识 码：6299674986938490email:    [email protected]

Answer 32

给我发给测试版
[email protected]

Answer 33

软件名称：VB源码之友2006
软件版本：V3.2.581
标 识 码：7700684775893547email:    [email protected]