来电显示的实现 MODEM的AT命令CID和VCID是设置是不是来电显示的，如果电信开通了来电显示功能 就能通过MODEM来显示对方的电话号码。那么首先设置CID=1或是VCID=1 般来说来电显示的信息为： DATE = MMDD "来电日期 MMDD TIME = HHMM "来电时间 HHMM NMBR = ######## "来...

2008-04-10 03:07:11

''''用MCI命令来实现多媒体的播放功能 ''''下面的内容几乎有播放器软件的各种功能，你只是引用这些函数就能做出一个播放器来 '''' Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnSt...

2008-04-10 03:07:11

Visual Basic 调试 COM 组件遇到的问题 Article last modified on 2002-1-20 -------------------------------------------------------- The information in this article applies to: - Microsoft Visual Basic Enterprise Edition for Windows, versions 6.0(SP 5)...

2008-04-10 03:07:09

本文始发于水木清华BBS(smth.org),转载请保留有关信息,谢谢! 通过使用类型库提高VB调用DLL函数的性能 RoachCock@smth mailto:chen3feng@163.com , chen3fengx@163.com , chen3fengx@hotmail.com VB虽然是个很好玩的东西,但是自身功能有限,限制了VB在某些方面的应用. MS...

2008-04-10 03:07:08

对编写脚本熟悉的读者都知道页面中可以添加脚本响应元素的事件，例如超链接的OnClick事件，图片的OnMouseMove事件，我们也可以使VB程序响应这些事件。下面是一个VB响应页面中按钮的Click事件的代码： 首先建立一个新工程，在Form1中加入一个Webbrowser控件，然后在Form...

2008-04-10 03:07:08

Public Function Factorial(intC As Integer) As String On Error GoTo myErr: Dim intA() As Integer, intT() As Integer, i As Integer Dim j As Integer, intR As Integer ReDim intA(20), intT(20) If intC 2 Then Exit Function intR = 20 intA(0) = 1 For i = 2...

2008-04-10 03:07:07

''''在弹出模态对话框的同时设置他的位置 ''''本例子掩饰与父窗体左上角对齐 ''''根据BCB_FANS(四大名捕之追杀令)的bcb代码改写为vb的 ''''仅供参考 ''''附BCB_FANS源代码 ''''BCB_FANS (四大名捕之追杀令) ''''当MessageBox对话框显示的时候，主窗口将失去焦点，知道...

2008-04-10 03:07:07

（仅供参考） 向系统菜单中添加新项，并且执行对应事件，在窗体任意位置弹出系统菜单，并且执行事件 ''''窗体 Option Explicit Private Sub Form_Load() On Error Resume Next lhSysMenu = GetSystemMenu(hwnd, 0) lRet = AppendMenu(lhSysMenu, MF_SEPARATOR, 0, vbNu...

2008-04-10 03:07:06

（仅供参考） 动态创建菜单，鼠标右键弹出菜单，执行对应鼠标事件 ''''窗体 Option Explicit Private Sub Form_Load() hMenu = CreateMenu() hmenupopup = CreatePopupMenu() result = AppendMenu(hmenupopup, MF_STRING, 300, "New") result = AppendMenu(hmenupopup,...

2008-04-10 03:07:05

循环链表以及相关操作（VB实现） 首先建立一个工程，然后增加一个类并且命名为(node,cls), 在node.cls中加入以下代码. Option Explicit Public x As Long Public count As Long Public nextnode As node 在Form1.frm中加入以下代码。 Option Explicit Dim head As node...

2008-04-10 03:07:05