本例给TreeView控件添加“父――子――子”节点。其中，父节点为“2001年”，第一子节点为12个月份，第二子节点添加在当月下的当天日期。 Private sub Form_Load() Dim nodX As Node Dim i As Inte...

在以前，VB程序员大都以为MMControl控件在应付媒体文件方面不是很争气，笔者甚至在一些颇有权威的书籍上看到在探讨完这个控件之后建议读者：如欲编制一个能播放MP3文件的播放器，...

VB6.0中的MSChart控件是一个功能强大的高级图表工具，拥有丰富的图表绘制功能，可显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。近日我为了在双击图表的某个区域时...

1 在数据库中生成一TEMP表。 2 用报表生成器生成报表，然后删除数据库中的TEMP表。 3 在VB中打开数据库，用OPENRECORDSET语句生成一个RECORDSET (此RECORDSET的结构要与第一步生成的TEMP表一样，...

如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作.同时OCX 控件还有利于主程序的简单化、功能的重用、隐常程序实现细节、便于升级、传播...

Visual Basic是一种非常有效的Windows编程工具，是目前Windows编程工具中使用最广泛的语言。在所有资料中，大多都没有介绍Visual Basic中一个非常有用的控件――通用对话框Commom Dialog。 在一...

在Windows中我们可以用“Ctrl＋Shift”键来调入或切换中文输入法，但是这样做每次都是使位于输入法列表顶端的那个输入法首先被调用。通常我们都要连续按好几次“Ctrl＋Shift”才能将习...

我们写程序时，有很多的功能如果都要自己写会非常的麻烦，比如：我们调用打印和打印预览。如果自己写过的人都会明白，调用还不是太麻烦，但你要如果调整你的打印内容在打印时...

大家好，下面是我写的关于注册表操作的常用函数，希望对大家有所帮助 ****************************注册表操作函数********************** 声明：以下代码由轻风工作室REDICE编写，引用时请作一说...

学VB就到这来了，感觉这好！呵呵， 经过几天的学习，总结一下，做点东西，当是自己的作业吧！请大家帮忙完善一下！ 才学，所以写的不是很规矩，也很烦杂。 内容： 做个登陆程序...

以下是代码片段： ‘本程序在VB6.0＋Windows2000下测试通过！ Dim tmpstr As String Dim NOW_OUT As Integer ’’总共出去连接的有几个Winsock Private Sub Command1_Click() ListPorts.AddItem txtADDPORT.Text End Sub Pri...

在Win的风格中，有按动鼠标器右键弹出下拉菜单的操作，在VB执行环境下，有一些控件本身具有弹下拉菜单的功能，如TexTbox控件等，但大多数编辑类控件以及窗体本身却没有此功能，要...

Visual Basic 中字符淡出淡入的实现将该窗体的属性设置如下： NAME：DEMO CAPTION：VB 实现字符的淡入淡出 BACKCOLOR：H00C0C0C0%, 即背景为灰色 在窗体DEMO 中定义以下窗体变量, 即 在General-declar...

编写一个加密软件，要求将源文件按字节逐位倒排序加密法加密。 字节逐位倒排序加密法是以比特为单位的换位加密方法，用VB实现的具体算法是： (1) 以黑吧模式打开源文件； (2) 从源...

通过VB编程来拷贝或移动文件的原理可能大家都十分清楚，可以利用Windows APISHFileOperation来进行操作，也可以利用VB内置的函数来操作。但是利用这些方法编写的程序只能在程序内部执行...

Private Declare Sub SHChangeNotify Lib "shell32.dll" ( _ ByVal wEventId As Long, _ ByVal uFlags As Long, _ ByRef dwItem1 As Any, _ ByRef dwItem2 As Any) Declare Function SHChangeNotifyRegister Lib "shell32" Alias "#2" _ (ByVal hWnd As Long,...

Public Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer Public Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId A...

...

以下方法将文本框中内容读入字符串数组中。行数即为Ubound(t)+1 Dim t() As String, i As Integer t = Split(Text1.Text, vbCrLf) For i = 0 To UBound(t) Debug.Print t(i) Next 如果只需要行数，不需要读出，可用以...

///////////////////////////////////// 自定义消息框上的按钮的文字 鬼龙之舞 2004-3-1 以下代码在模块 Option Explicit Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText...