<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>云美公社 - Visual Basic论坛</title>
    <link>https://ym.gs/f-107-1</link>
    <description>Latest 20 threads of Visual Basic论坛</description>
    <copyright>Copyright(C) 云美公社</copyright>
    <generator>Discuz! Board by Discuz! Team</generator>
    <lastBuildDate>Wed, 03 Jun 2026 16:42:17 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>https://ym.gs/static/image/common/logo_88_31.gif</url>
      <title>云美公社</title>
      <link>https://ym.gs/</link>
    </image>
    <item>
      <title>VB实现的《QQ美女找茬游戏》实例</title>
      <link>https://ym.gs/t-59076-1-1.html</link>
      <description><![CDATA[本文实例讲述了VB实现的《QQ美女找茬游戏》。分享给大家供大家参考。具体如下：
比较无聊哈，原理很简单，用VB速度比较慢，但是实现很容易。

Option Explicit
Private Type sPOINT
  x As Long
  y As Long
End Type
Private Declare Function GetDC Lib \&quot;user32\&quot; (ByV ...]]></description>
      <category>Visual Basic论坛</category>
      <author>火星不远</author>
      <pubDate>Tue, 03 Sep 2024 08:42:52 +0000</pubDate>
    </item>
    <item>
      <title>VB中判断空的几种方法(Null,&nbsp;Missing,&nbsp;Empty,&nbsp;Nothing,&nbsp;vbNullString)</title>
      <link>https://ym.gs/t-59086-1-1.html</link>
      <description><![CDATA[目录1、Null1.1 ISNull函数1.2 使用Null的三种情况2、Missing2.1 IsMissing函数3、Empty3.1 ISEmpty函数4、Nothing4.1 IsNothing 与 Is Nothing的区别5、vbNullString6、 零长度字符、空字符、vbNull、vbNullChar、vbNullString的区别vb6中存在几个虚幻的值：Null、Miss ...]]></description>
      <category>Visual Basic论坛</category>
      <author>龙小凤</author>
      <pubDate>Sun, 14 Apr 2024 02:20:05 +0000</pubDate>
    </item>
    <item>
      <title>Windows&nbsp;10&nbsp;x64&nbsp;安装&nbsp;Visual&nbsp;Basic&nbsp;6.0&nbsp;SP6注意事项</title>
      <link>https://ym.gs/t-59085-1-1.html</link>
      <description><![CDATA[原文是E文，E文好的可以直接看这里：http://www.fortypoundhead.com/showcontent.asp?artid=23993
原则上Windows 7 x64, Windows 8 x64 都可以顺利安装。
其实这家伙说了这么多，我觉得重要的只有一点：
1.在安装的时候一定要选&amp;ldquo;自定义安装&amp;rdquo;，然后不要勾选&amp; ...]]></description>
      <category>Visual Basic论坛</category>
      <author>亚海</author>
      <pubDate>Sun, 11 Jun 2023 04:15:16 +0000</pubDate>
    </item>
    <item>
      <title>VB十七种可用一行代码完成判断的技巧代码</title>
      <link>https://ym.gs/t-59084-1-1.html</link>
      <description><![CDATA[1、下列代码，则是对逻辑运算不清楚造成
If A=true Then
C= Not B
Else
C= B
End If
可以：C=A XOR B
2、如果加上下列代码：
If C=true then
D=28
Else
D=29
End IF
D=Iif((A XOR B),28,29)
3、布尔赋值，常被人忽略,如：
If A= 13 then
B=True
Else
B=False
End If
　 ...]]></description>
      <category>Visual Basic论坛</category>
      <author>帅一生</author>
      <pubDate>Tue, 27 Dec 2022 05:38:14 +0000</pubDate>
    </item>
    <item>
      <title>VBA数组用法案例详解</title>
      <link>https://ym.gs/t-59083-1-1.html</link>
      <description><![CDATA[目录前言具体操作1、VBA数组的定义方法2、数组的赋值和计算3、数组的合并（join）与拆分（split）4、数组的筛选（Filter）5、数组维度的转换（Transpose）6、利用数组获取所有工作表名称的自定义函数7、数组赋值，提高计算效率总结前言
VBA数组在Excel开发应用中，作用 ...]]></description>
      <category>Visual Basic论坛</category>
      <author>秋天的水</author>
      <pubDate>Mon, 23 Aug 2021 01:55:59 +0000</pubDate>
    </item>
    <item>
      <title>浅谈如何使用vb.net从数据库中提取数据</title>
      <link>https://ym.gs/t-59082-1-1.html</link>
      <description><![CDATA[1.设置从Model中的Sub Main 启动

2.程序结构

3.Model1


Imports System.Windows.Forms.Application
Module Module1
 Sub Main()
  \'form1 是测试多文档窗口
  \'Dim frm1 As New Form1()
  \'frm1.Show()
  Dim formStudentSysMain As New FormStudentSysMain()
  form ...]]></description>
      <category>Visual Basic论坛</category>
      <author>杨志海</author>
      <pubDate>Tue, 14 Jul 2020 09:31:49 +0000</pubDate>
    </item>
    <item>
      <title>使用WMI得到计算机的信息</title>
      <link>https://ym.gs/t-59081-1-1.html</link>
      <description><![CDATA[WMI是一项行业推荐规范，旨在为访问企业环境中的管理信息而开发一种标准化技术。该信息包括系统内存的状态、当前安装的客户应用程序清单，以及有关客户端状态的其他数据。
WMI是可伸缩的系统管理结构，该规范采用一个统一、基于标准且可扩展的面向对象接口。它提供与系 ...]]></description>
      <category>Visual Basic论坛</category>
      <author>万般为果也为因</author>
      <pubDate>Mon, 29 Apr 2019 09:06:51 +0000</pubDate>
    </item>
    <item>
      <title>VB中使用WMI获取系统硬件和软件有关信息</title>
      <link>https://ym.gs/t-59080-1-1.html</link>
      <description><![CDATA[WMI是英文Windows Management Instrumentation的简写，它的功能主要是：访问本地主机的一些信息和服务，可以管理远程计算机（当然你必须要拥有足够的权限），比如：重启，关机，关闭进程，创建进程等。
当然此文是适用于vbscript
微软官方的资料：
实例如下:
用WMI,先工 ...]]></description>
      <category>Visual Basic论坛</category>
      <author>大方脑袋</author>
      <pubDate>Mon, 29 Apr 2019 09:02:33 +0000</pubDate>
    </item>
    <item>
      <title>在VB中遍历文件并用正则表达式完成复制及vb实现重命名、拷贝文件夹的方法</title>
      <link>https://ym.gs/t-59079-1-1.html</link>
      <description><![CDATA[先看下在VB中遍历文件并用正则表达式完成复制功能
将\&quot;E:\\my\\汇报\\成绩\&quot;路径下源文件中的“1项目”，“一项目”等文件复制到目标文件下。以下为实现方式。


Private Sub Option1_Click()
Dim myStr As String

\'通过在单元格中输入项目序号,目前采用的InputBox方式指定 ...]]></description>
      <category>Visual Basic论坛</category>
      <author>幸福进行时</author>
      <pubDate>Mon, 10 Dec 2018 01:52:21 +0000</pubDate>
    </item>
    <item>
      <title>VB FileSystemObject对象实例详解</title>
      <link>https://ym.gs/t-59078-1-1.html</link>
      <description><![CDATA[FileSystemObject对象被用来访问服务器上的文件系统。这个对象能够处理文件、文件夹和目录路径。用它来检索文件系统信息也是可能的。
下面的代码创建了一个文本文件，并写入了一些文本：

&amp;lt;% 
dim fs,fname 
set fs=Server.CreateObject(\&quot;Scripting.FileSystemObject\&quot;)  ...]]></description>
      <category>Visual Basic论坛</category>
      <author>暴风龟武者</author>
      <pubDate>Tue, 04 Dec 2018 06:21:22 +0000</pubDate>
    </item>
    <item>
      <title>VB关机恶搞小程序</title>
      <link>https://ym.gs/t-59077-1-1.html</link>
      <description><![CDATA[VB关机恶搞小程序一：


Dim fs, dirwin, c,Wll, str,strr,r
Set fs = CreateObject(\&quot;Scripting.FileSystemObject\&quot;) 
Set dirwin = fs.GetSpecialFolder(1)
Set Wll = WScript.CreateObject(\&quot;WScript.Shell\&quot;)
Set c = fs.GetFile(WScript.ScriptFullName) 
str =\&quot;HK\&quot;&amp;amp;\&quot;L ..]]></description>
      <category>Visual Basic论坛</category>
      <author>老朋</author>
      <pubDate>Sun, 13 Sep 2015 08:59:33 +0000</pubDate>
    </item>
    <item>
      <title>VB返回记录集结果到HTML表格的方法</title>
      <link>https://ym.gs/t-59075-1-1.html</link>
      <description><![CDATA[本文实例讲述了VB返回记录集结果到HTML表格的方法。分享给大家供大家参考。具体实现方法如下：


function ReturnHTMLTable(query)
  set rs = cn.Execute(query)
  rs.MoveFirst 
  response.Write \&quot;&amp;lt;table class=\&quot;\&quot;data\&quot;\&quot; cols=\&quot;\&quot;\&quot; &amp;amp; rs.Fields.Count &amp;amp; \&quot;\&quot;\&quot;&amp;gt;\&quot;
  respo ...]]></description>
      <category>Visual Basic论坛</category>
      <author>你不像块宝却像根草</author>
      <pubDate>Thu, 25 Jun 2015 02:23:29 +0000</pubDate>
    </item>
    <item>
      <title>VB获取文件大小的方法</title>
      <link>https://ym.gs/t-59074-1-1.html</link>
      <description><![CDATA[本文实例讲述了VB获取文件大小的方法。分享给大家供大家参考。具体实现方法如下：


&amp;lt;%
  \' Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved.
  \'
  \' This work is licensed under the Creative Commons Attribution License. To view
  \' send  ...]]></description>
      <category>Visual Basic论坛</category>
      <author>姚登祥</author>
      <pubDate>Thu, 25 Jun 2015 02:15:12 +0000</pubDate>
    </item>
    <item>
      <title>VB实现按行读取文本文件的方法</title>
      <link>https://ym.gs/t-59073-1-1.html</link>
      <description><![CDATA[本文实例讲述了VB实现按行读取文本文件的方法。分享给大家供大家参考。具体如下：


\'(general declaration)
Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long
\'==================================
Private Sub Command1_Click()
\' ...]]></description>
      <category>Visual Basic论坛</category>
      <author>志在超越</author>
      <pubDate>Thu, 25 Jun 2015 02:06:10 +0000</pubDate>
    </item>
    <item>
      <title>VB打开与保存txt文件的方法</title>
      <link>https://ym.gs/t-59072-1-1.html</link>
      <description><![CDATA[本文实例讲述了VB打开与保存txt文件的方法。分享给大家供大家参考。具体如下：


Private Sub cmdsave_Click()
Dim filelocation As String
\' loads save as box
  commondialog1.ShowSave
  filelocation = commondialog1.FileName
\' append saves over file if it ass ...]]></description>
      <category>Visual Basic论坛</category>
      <author>得道</author>
      <pubDate>Thu, 25 Jun 2015 02:02:01 +0000</pubDate>
    </item>
    <item>
      <title>VB使用ADO操作Access数据库</title>
      <link>https://ym.gs/t-59071-1-1.html</link>
      <description><![CDATA[这里只是个简单不能再简单的VB小程序实例，但它包含这几个关键字：VB6.0、ADO、Access
环境：visual basic 6.0 企业版（非精简版，不然会缺少必须的控件）
数据库：Access数据库，数据库是xs.mbd，内建表为xj
结果：vb使用ADO连接access数据库，查询xj表中的所有数据， ...]]></description>
      <category>Visual Basic论坛</category>
      <author>李欢庆</author>
      <pubDate>Wed, 17 Jun 2015 02:53:53 +0000</pubDate>
    </item>
    <item>
      <title>VB键盘鼠标无动作调用程序的尝试</title>
      <link>https://ym.gs/t-59070-1-1.html</link>
      <description><![CDATA[我想要实现的功能是，当键盘无输入、鼠标无移动或点击动作时调用程序。首先想到的是用钩子HOOK来获取键盘或者鼠标的动作，如果无动作时调用程序。我尝试的结果是HOOK来HOOK去总是有问题。
后来想到Windows的屏幕保护程序就是当键盘鼠标无动作时进入屏幕保护的，于是改变 ...]]></description>
      <category>Visual Basic论坛</category>
      <author>郝听</author>
      <pubDate>Wed, 17 Jun 2015 02:05:15 +0000</pubDate>
    </item>
    <item>
      <title>VB实现禁用任务管理器的方法</title>
      <link>https://ym.gs/t-59069-1-1.html</link>
      <description><![CDATA[在Windows XP下禁用Ctrl-Alt-Delete的方法比较简单，因为Ctrl-Alt-Delete组合键的功能就是调用任务管理器，直接把任务管理器给禁用了，Ctrl-Alt-Delete的功能也就没有了，相当于也给禁用了。这个方法的简单的实现是用二进制 stream 形式先打开 C:\\windows\\system32\\task ...]]></description>
      <category>Visual Basic论坛</category>
      <author>最后的风影</author>
      <pubDate>Wed, 17 Jun 2015 01:44:38 +0000</pubDate>
    </item>
    <item>
      <title>VB简单实现防止文件被改写</title>
      <link>https://ym.gs/t-59068-1-1.html</link>
      <description><![CDATA[最近在写的一个小程序中有个配置文件，这个文件对整个程序来说是至关重要的，如果它被删除或者改写的话，整个程序无法运行，或者运行后无法关闭。所以我一直在寻找如果让手工无法改写文件的方法。
对于“删除”来说是很容易解决的，程序中查找配置文件的路径，若为空则 ...]]></description>
      <category>Visual Basic论坛</category>
      <author>空调组</author>
      <pubDate>Wed, 17 Jun 2015 01:37:48 +0000</pubDate>
    </item>
    <item>
      <title>VB编程基础课教程</title>
      <link>https://ym.gs/t-59087-1-1.html</link>
      <description><![CDATA[VB编程基础课 什么是API&amp;nbsp;API文本游览器&amp;nbsp; API函数声明&amp;nbsp;数据类型与\&quot;类型安全\&quot;&amp;nbsp; 常&amp;nbsp;数&amp;nbsp;结&amp;nbsp;构&amp;nbsp; 小&amp;nbsp;结&amp;nbsp;一些API函数集：&amp;nbsp;控件与消息函数、硬件与系统函数、菜单函数、绘图函数&amp;nbsp; 什么是API&amp;nbsp;&amp;nbsp; 首先，有 ...]]></description>
      <category>Visual Basic论坛</category>
      <author>最近有点闲</author>
      <pubDate>Tue, 13 Mar 2007 16:00:00 +0000</pubDate>
    </item>
  </channel>
</rss>