假设要将 Form2 放在 Form1 中，请在宣告区中宣告： Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long 在 Form2 中的 Form...
以下代码行假设你在文本框中显示错误行，这些代码稍加更改就可以适用其他范围。 首先，在窗体中建立一个“线”控件，并把它的索引号定为0。接着，添加如下的代码： Private Sub SetErrorState(ByVal ErrorState As Boolean, _ ByRef Contr...
以下是在VB中截获WIN2000下TCP/IP包的源代码，在VB6.0,win2000下测试通过，需要注意的地方是，1.必须和本地的一块网卡,2.每次获取数据后必须有一段延时。3.数据取到之后放在Buff的数组中。4.把以下的代码放在一个模块中就可以了。 '------------------...
Visual Basic 提供了过时的FileCopy语句.问题是使用该函数时并不显示文件复制对话框,也就是说,当拷贝一个大文件时,用户看不到Windows的标准 文件复制对话框,无法从进度条上判断当前复制的进度.那么,如何做到这一点呢?请看下面: Public Type SHFILEOPSTRUC...
在Informix之下设定独占性的资料库比较简单，主要就是以下指令 DATABASE database-name EXCLUSIVE 以下FUNCTION是Informix 开启独占资料库的方式 '***************************************************...
上网的朋友一定都用过网络蚂蚁(Net Ants)的吧？不知你在使用过程中有没有注意过，那就是如果你想调动两个“蚂蚁”为您效力是不可能的——它总会把新运行的关闭。 而“蚂蚁”程序的妙处就在于：在重复运行“蚂蚁”时它不仅拒绝运行，而且能把已经运行的“蚂蚁”激活，这样用上面的程序就无能为力了。但事实...
原帖及讨论：http://bbs.bccn.net/thread-166252-1-1.html 最近写程序时用到了API函数TextOut，它的第五个参数nCount 表示“字串中要描绘的字符数量”，于是我传递Len(字符串)（字符串为中英文混杂）。但是却不能完全显示。感觉到很纳闷，于是...
WinSock控件能够通过UDP协议（用户数据报协议）或TCP协议（数据传输协议）连接到远程的机器并进行数据交换。这两种协议都能用来创建客户端和服务端应用程序。就像定时器控件一样，WinSock控件运行时没有一个可视的界面。 可能的用途 ·创建客户端应用程序，它能在信息到达中央服务器之前把用...
对于编程爱好者来说，开发软件过程中文字显示处理是一项很重要的内容，它的显示效果的好坏，对程序的界面效果有很大的影响，如果文字显示时能够打破陈规，有所创新，使用一些别致的方式，可以给用户耳目一新的感觉，从而增加程序的亲和力。针对Visual Basic编程，笔者给出了文字"闪入"显示这一特殊显示效...
Flash是一种矢量格式的动画文件， 可以包含动画，声音，超文本链接，而文件的体积却很小。在网页上使用Flash可以作出很漂亮的全屏动画和动态菜单条。 你想在VB程序里作出类似的效果吗?在VB中使用Flash4自带的Swflash.ocx控件就可以了。方法如下： 首先，打开VB5，新建一...
参考下列程序： Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub
我们在使用Word、Excel等Windows应用程序时，经常会见到在程序界面顶端有一行“立体式”图标按钮。当用鼠标按下某一个图标按钮时，程序就执行相应的操作。这一行“立体式”图标按钮通常就称作命令图标栏或工具条。命令图标栏一般提供一些最常用的命令，供用户快速地取用，并且它设计时采用了“立体式”按钮...
