在我们写的程序当中,总有一些配置信息需要保存下来,以便完成程序的功能,最简单的办法就是将这些信息写入INI文件中,程序初始化时再读入.具体应用如下:　　一.将信息写入.INI文件中.　　1.所用的WINAPI函数原型为: BOOL WritePrivateProfileString(LPCTSTR lpAppName,LPCTSTR lpKeyName,LPCTSTR lpString,LPCTS

 原创:     优快云 许仙 ; qq:19030300 主页:http://hot1kang1.126.com转载请保持信息的完整性 谢谢参考网络代码完成, 获取机器的MAC 网卡地址VB获取机器的硬盘物理地址和硬盘型号 http://blog.youkuaiyun.com/hot1kang1/archive/2006/03/27/639735.aspx----------------G

 最近VB引用WebBrowser控件老是出现这个提示 “无法找到或打开C:/WINDOWS/system32/ieframe.dll/1”类似的这样提示，总结了一下，IE6一直没出现过，装IE7再升级系统补本时，偶然就出现了这个问题，重装VB依然有，然后在注册表中搜索了一下ieframe.dll/1，找到了问题根源（以下是天杀的Blog的解决办法）自从IE7出来到现在，这个问题一直存在，在Win

1.启动 .NET 环境, 新建一个 VB.NET的WINDOWS应用程序2.在窗体上添加一个 NotifyIcon 控件 , 指定一个相应的图标文件3. 添加一个 CONTEXTMENU , 将 NotifyIcon 的 CONTEXTMENU 指定为这个CONTEXTMENU4. 给 CONTEXTMENU 添加两个子菜单, 分别为 “显示界面” 和 “退出”5. 双击 “退出” 菜单,

方法一： 调用api 在Visual Baisc.net中的声明： Declare Sub mouse_event()Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Lon

    警察抓小偷（）Module Module1Module Module1    事件委托    Public Delegate Sub 抓小偷事件()Sub 抓小偷事件(ByVal sender As 小偷, ByVal e As 偷东西事件参数)    事件参数    Public Class 偷东西事件参数Class 偷东西事件参数        Inherits System

一、前言  随着多媒体硬件环境和软件环境的不断完善，目前，大部分计算机软件开发中都涉及多媒体软件技术的应用。  进行多媒体应用程序设计，从原理上说，可以采用从C++到多媒体专用开发系统（如TOOLBOOK、AUTHORWARE、DIRECTOR）等多种层次的工具。然而，由于多媒体软件涉及的媒体复杂多样、开发周期短并且需要多种专业人员参与，因此，为了能进行实用高效的开发，必须选用简单易用、开

我们可以使用Declare语句调用外部DLL中的过程。但VB.NET给我们提供了另外一种更加先进的----- Dllimport特性。 如： Imports System.Runtime.InteropServices DllImport("user32")> _ Function Findwindow()Function Findwindow(ByVal lpClassName As S

 Sub WriteINIStringVirtual()Sub WriteINIStringVirtual(Section, KeyName, value, FileName)WriteINIString Section, KeyName, value, _Server.MapPath(FileName)End SubFunction GetINIStringVirtual()Functi

Function SaveBinaryDataTextStream()Function SaveBinaryDataTextStream(FileName, ByteArray)Create FileSystemObject objectDim FS: Set FS = CreateObject("Scripting.FileSystemObject")Create text stream

Function SaveTextData()Function SaveTextData(FileName, Text, CharSet)Const adTypeText = 2Const adSaveCreateOverWrite = 2Create Stream objectDim BinaryStreamSet BinaryStream = CreateObject("ADODB.St

 Function SaveBinaryData()Function SaveBinaryData(FileName, ByteArray)Const adTypeBinary = 1Const adSaveCreateOverWrite = 2Create Stream objectDim BinaryStreamSet BinaryStream = CreateObject("ADO

关于Adodb.Stream 的使用说明 组件："Adodb.Stream" 有下列方法： Cancel 方法 使用方法如下 Object.Cancel 说明：取消执行挂起的异步 Execute 或 Open 方法的调用。 Close 方法 使用方法如下 Object.Close ：关闭对像 CopyTo 方法 使用方法如下 Object.CopyTo(destStream,[CharNumb

Function ReadTextFile()Function ReadTextFile(FileName, CharSet)Const adTypeText = 2Create Stream objectDim BinaryStreamSet BinaryStream = CreateObject("ADODB.Stream")Specify stream type - we want 

Function ReadBinaryFile()Function ReadBinaryFile(FileName)Const adTypeBinary = 1Create Stream objectDim BinaryStreamSet BinaryStream = CreateObject("ADODB.Stream")Specify stream type - we want To 

摘要使用过Visual Basic 6的开发人员几乎都使用过App这个对象，它的功能强大人所共知，那么Visual Basic .NET中是否也有类似的对象呢？下面将会进一步说明。--------------------------------------------------------------------------------目录1. App简介2. 在VB.NET寻找类似功能3. 简

我们希望防止同一应用程序同时执行多次，其方法是判断App的PrevInstance属性若App.PrevInstance为True，则表示此应用程序在执行中，可以直接结束本此执行，这样就可以了。 Private Sub Form_Initialize() 　If App.PrevInstance Then EndEnd Sub 

 窗体上加入控件command1，然后复制下面代码，运行，按command1即可。Option ExplicitPrivate Declare Function OpenProcess Lib "kernel32" (ByVal _        dwDesiredAccess As Long, ByVal bInheritHandle As Long, _        ByVal dwPro