<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>VerySource - VB</title>
    <link>https://domain.verysource.com/forum-44-1.html</link>
    <description>Latest 20 threads of VB</description>
    <copyright>Copyright(C) VerySource</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Sun, 19 Apr 2026 16:52:26 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>https://domain.verysource.com/static/image/common/logo_88_31.gif</url>
      <title>VerySource</title>
      <link>https://domain.verysource.com/</link>
    </image>
    <item>
      <title>让窗口变成 Windows 新版白色窗口(仅适用 Windows 10 及以上的版本)</title>
      <link>https://domain.verysource.com/thread-3968-1-1.html</link>
      <description><![CDATA[让窗口变成 Windows 新版白色窗口(仅适用 Windows 10 及以上的版本)
代码：
Option Explicit
Private Const MF_BYCOMMAND As Long = &amp;H0&amp;
Private Const SC_SIZE As Long = &amp;HF000&amp;
Private Const SC_MAXIMIZE As Long = &amp;HF030&amp;


Private Declare Function GetSystemM ...]]></description>
      <category>VB</category>
      <author>JasonChina3444</author>
      <pubDate>Sat, 01 Jul 2023 01:02:53 +0000</pubDate>
    </item>
    <item>
      <title>真心求助 X=SINX</title>
      <link>https://domain.verysource.com/thread-3778-1-1.html</link>
      <description><![CDATA[作为VB小白 目前一个课题需要使用VB解x=sinx （过渡性需要）希望各位大佬能够给予帮助 给下代码   非常感谢！！！]]></description>
      <category>VB</category>
      <author>小白VBB</author>
      <pubDate>Sun, 22 Aug 2021 13:58:50 +0000</pubDate>
    </item>
    <item>
      <title>如何在richtextbox中转到某行</title>
      <link>https://domain.verysource.com/thread-3646-1-1.html</link>
      <description><![CDATA[如何在richtextbox中转到某行
 Form链接.Text1.SelStart = SendMessage(Text1.hWnd, EM_LINEINDEX, i - 1, 0&amp;)
i为要转到的某行的行号
不知为何无法转到该行是空行的行 例如假如第2行是空行， 那么我想转到第2行，vb总是无法转到第二行，如果第3行不是空行，那么它就转 ...]]></description>
      <category>VB</category>
      <author>emptyname</author>
      <pubDate>Thu, 11 Mar 2021 09:30:02 +0000</pubDate>
    </item>
    <item>
      <title>仿Vista或Ofiice窗体给我用一下啊口</title>
      <link>https://domain.verysource.com/thread-3610-1-1.html</link>
      <description><![CDATA[VB6做的窗体不太好看啊，大神们有没有做的仿Vista或Ofiice窗体给我用一下啊]]></description>
      <category>VB</category>
      <author>qxdyc</author>
      <pubDate>Tue, 02 Mar 2021 01:50:08 +0000</pubDate>
    </item>
    <item>
      <title>VB开源精品源码 申请加精</title>
      <link>https://domain.verysource.com/thread-3601-1-1.html</link>
      <description><![CDATA[本人模拟实现了向日葵远程控制的基本流程，实现了内网对内网、内网对外网的穿透。只要部署一台具有独立外网IP的服务器，你可以连接任何一台能上网的电脑，包括连接不能上网但能够连接局域网的电脑主机。远程桌面采用逐行扫描算法，8G以上内存主机能保证在广域网上操作顺 ...]]></description>
      <category>VB</category>
      <author>wolf781209</author>
      <pubDate>Thu, 18 Feb 2021 13:11:07 +0000</pubDate>
    </item>
    <item>
      <title>有沒有大佬做過類似360桌面這類桌面管理的項目啊</title>
      <link>https://domain.verysource.com/thread-3600-1-1.html</link>
      <description><![CDATA[想求教大佬們桌面的右鍵菜單怎麽實現啊，爲啥我實現出來的菜單項有缺失，少了好多個，右鍵桌面的菜單項也不對]]></description>
      <category>VB</category>
      <author>gdzp1314</author>
      <pubDate>Tue, 02 Feb 2021 08:15:14 +0000</pubDate>
    </item>
    <item>
      <title>当text1参数发生变化,combo1再次下拉时无法更新</title>
      <link>https://domain.verysource.com/thread-3560-1-1.html</link>
      <description><![CDATA[text1参数发生变化时,combo1再次下拉时无法更新,显示的还是原来查询所得的数据
Private Sub Combo1_DropDown()
rs.CursorLocation = adUseClient
With rs
sql = \&quot;select name from temp1 where ID=\'\&quot; &amp; Text1 &amp; \&quot;\'\&quot;
  rs.Open sql, cn
  If .RecordCount &gt; 0 Then
  .Mo ...]]></description>
      <category>VB</category>
      <author>f359742154</author>
      <pubDate>Thu, 17 Dec 2020 02:30:01 +0000</pubDate>
    </item>
    <item>
      <title>如何取1、2、3、4、5中最大的值?</title>
      <link>https://domain.verysource.com/thread-3554-1-1.html</link>
      <description><![CDATA[如何取1、2、3、4、5中最大的值?]]></description>
      <category>VB</category>
      <author>asmian</author>
      <pubDate>Wed, 16 Dec 2020 17:30:01 +0000</pubDate>
    </item>
    <item>
      <title>DataCombo 在我选择完后，按\"确定\"时，我希望DataCombo 的值为 空 ，用 DataCombo.Index=-1 会出错</title>
      <link>https://domain.verysource.com/thread-3499-1-1.html</link>
      <description><![CDATA[DataCombo 在我选择完后，按\&quot;确定\&quot;时，我希望DataCombo 的值为 空 ，用 DataCombo.Index=-1 会出错。要怎么写？]]></description>
      <category>VB</category>
      <author>第四帝</author>
      <pubDate>Mon, 14 Dec 2020 08:00:01 +0000</pubDate>
    </item>
    <item>
      <title>注册表命令行操作大全！vb操作麻烦了点我存个根 偷懒的时候用^_^</title>
      <link>https://domain.verysource.com/thread-3492-1-1.html</link>
      <description><![CDATA[REG命令  
 Reg 
对注册表子项信息和注册表项值中的值执行添加、更改、导入、导出以及其他操作。 

reg 命令包括： 

reg add 

reg compare 

reg copy 

reg delete 

reg export 

reg import 

reg load 

reg query 

reg restore 

reg save 

reg unload 

reg a ...]]></description>
      <category>VB</category>
      <author>wsj537</author>
      <pubDate>Mon, 14 Dec 2020 04:30:01 +0000</pubDate>
    </item>
    <item>
      <title>读文件，取出后发现少了一个字节，这是怎么回事？</title>
      <link>https://domain.verysource.com/thread-3479-1-1.html</link>
      <description><![CDATA[我自定义如下：
Type fle_2
  aa(23)    As Integer
  bb(23)   As Integer
  cc(23)  As Integer
  dd(23)  As Integer
。。。。。
。。。。
 End Type
                         注：     \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'以上共352字节
Type str_Message
  strMessage]]></description>
      <category>VB</category>
      <author>wanyanfeng</author>
      <pubDate>Thu, 10 Dec 2020 01:30:01 +0000</pubDate>
    </item>
    <item>
      <title>紧急求助：Form_Resize的问题？？</title>
      <link>https://domain.verysource.com/thread-3477-1-1.html</link>
      <description><![CDATA[我用VB写了一个函数，用来控制窗体的大小，当双击窗体时，窗体会最大化。

可是当我把这段程序移植到其它的电脑中时，总是提示“找不到工程或库”

我的代码是：

Private Sub Form_Load
CResize me
......

这里提示cResize报错，是不是添加的引用有问题？还是要添加什 ...]]></description>
      <category>VB</category>
      <author>7851581</author>
      <pubDate>Wed, 09 Dec 2020 03:30:02 +0000</pubDate>
    </item>
    <item>
      <title>怎么实现选择一个文件 复制到程序所在目录中的一个文件夹中?</title>
      <link>https://domain.verysource.com/thread-3468-1-1.html</link>
      <description><![CDATA[怎么实现选择一个文件 复制到程序所在目录中的一个文件夹中?]]></description>
      <category>VB</category>
      <author>smsdog</author>
      <pubDate>Tue, 08 Dec 2020 03:00:02 +0000</pubDate>
    </item>
    <item>
      <title>怎样打开一个数据文件(非文本格式)并对指定位置的数据进行编辑?</title>
      <link>https://domain.verysource.com/thread-3427-1-1.html</link>
      <description><![CDATA[现在有一个数据文件,我已经用uedit找到需要修改的位置,现在想在vb里面实现,请问该怎么做?

用binReader binWriter行吗?主要就是不知道怎么移动到指定的十六进制位置.]]></description>
      <category>VB</category>
      <author>lovemekay</author>
      <pubDate>Thu, 26 Nov 2020 09:30:01 +0000</pubDate>
    </item>
    <item>
      <title>我用SHELL打开一个可执行文件,又怎么关闭它呢?</title>
      <link>https://domain.verysource.com/thread-3391-1-1.html</link>
      <description><![CDATA[我用SHELL打开一个可执行文件,又怎么关闭它呢?]]></description>
      <category>VB</category>
      <author>blueblues01</author>
      <pubDate>Wed, 04 Nov 2020 05:00:01 +0000</pubDate>
    </item>
    <item>
      <title>菜鸟求解语法问题</title>
      <link>https://domain.verysource.com/thread-3338-1-1.html</link>
      <description><![CDATA[就是对于VB的条件语句中，end if到底是怎么用的？它到底是在什么情况下结合什么用呢？
有时候错误弹出说else 没有if是怎么回事？
就比如下面的一个程序：
Private Sub Command1_Click()
Dim s As Integer
s = Text1.Text
If s Mod 3 = 0 Then
     x = MsgBox(\&quot;是3的倍 ...]]></description>
      <category>VB</category>
      <author>ljeternity</author>
      <pubDate>Tue, 13 Oct 2020 02:30:01 +0000</pubDate>
    </item>
    <item>
      <title>请教：有没有VB的Picture Box的功能扩展控件</title>
      <link>https://domain.verysource.com/thread-3336-1-1.html</link>
      <description><![CDATA[VB的Picture Box控件功能太差，线型太少，没有粗虚线型、线的端头样式不能改变，任意区域的填充及填充样式都没有。
   想问有没有VB的Picture Box的功能扩展控件。]]></description>
      <category>VB</category>
      <author>zhaowei</author>
      <pubDate>Tue, 13 Oct 2020 01:30:01 +0000</pubDate>
    </item>
    <item>
      <title>有帮助阅读VB源代码的好工具吗</title>
      <link>https://domain.verysource.com/thread-3318-1-1.html</link>
      <description><![CDATA[老师给了几万行的代码，注释很少，设计文档没有，就连需求文档都很简略，
程序还无法正常运行，
所以想求一个读代码的帮助工具。

谢谢各位好心人了，
如果没有工具，就给点意见吧 谢谢了！ ...]]></description>
      <category>VB</category>
      <author>57487303</author>
      <pubDate>Fri, 09 Oct 2020 05:00:02 +0000</pubDate>
    </item>
    <item>
      <title>请教高手一个问题</title>
      <link>https://domain.verysource.com/thread-3306-1-1.html</link>
      <description><![CDATA[目前想用VB写个PS的考试评分，不知道如何下手，请指点一二！]]></description>
      <category>VB</category>
      <author>zongcunjie</author>
      <pubDate>Mon, 05 Oct 2020 13:21:44 +0000</pubDate>
    </item>
    <item>
      <title>font在VB6和VB.NET有什么差别</title>
      <link>https://domain.verysource.com/thread-3302-1-1.html</link>
      <description><![CDATA[如下程序有误(在VB6下调试):
textbox1.font=New font(\&quot;隶书\&quot;,16)
提示语句没有完成
大家帮忙看一下.谢了!]]></description>
      <category>VB</category>
      <author>pantherzxb</author>
      <pubDate>Tue, 29 Sep 2020 09:30:01 +0000</pubDate>
    </item>
  </channel>
</rss>