随笔分类 -  VB

建立注册DLL和反注册DLL文件的快捷方式
摘要：我们经常要注册或者反注册自己写的dll文件，加一个快捷方式会减少自己的工作量：[HKEY_CLASSES_ROOT/dllfile/shell/Unregister]"Command"="regsvr32 %1 /u"[HKEY_CLASSES_ROOT/dllfile/shell/Register]"Command"="regsvr32 %1"当我们需要注册或者反注册dll时，只要在该dll文件上按下鼠标右键即可！ 阅读全文
posted @ 2006-08-25 12:19 greystar 阅读(187) 评论(0) 推荐(0)
在VB中实现异步调用
摘要：VB本身是不支持多线程的。但是VB中的部件有进程内及进程外的区分，因此这里我使用进程外部件来实现异步调用。服务器端代码,新建一个ActiveEXE工程,加入一个窗体，窗体中存放一个Timer控件添加一个类模块。代码如下Private WithEvents m_Timer As TimerPublic Event MyTaskResult(result As Long)Private j As LongPrivate Sub Class_Initialize() Set m_Timer = Form1.Timer1End SubPrivate Sub m_Timer_Timer() m_Time 阅读全文
posted @ 2005-01-04 11:11 greystar 阅读(1928) 评论(0) 推荐(0)
VBA中的一些代码
摘要：让OFFICE能识别文档中的文字如果要让此程序能运行，要添加EXCEL的引用，只有EXCEL才有此功能Sub SpeakIt() Set x = New Excel.Application x.Speech.Speak (ActiveWindow.Selection) Set x = NothingEnd Sub让PPT能随机出题。Slides 一个代表指定演示文稿中所有幻灯片的 Slides 集合。只读。Sub RandomlyPlay() Dim num As Integer Randomize Dim i As Integer n = ActivePresentation.Slides. 阅读全文
posted @ 2004-10-20 12:54 greystar 阅读(168) 评论(0) 推荐(0)
VB6判断某一个连接是否保存在Cache中下
摘要：PublicFunctionGetCacheEntryInfo(ByValhWndAsLong,ByVallpszUrlAsString)AsBooleanDimdwEntrySizeAsLongDimlpCacheEntryAsINTERNET_CACHE_ENTRY_INFODimdwTempAsLongDimlErrAsLongIf(GetUrlCacheEntryInfo(lpszUrl,ByVal0&,dwEntrySize))=0ThenlErr=Err.LastDllErrorIf(lErr<>ERROR_INSUFFICIENT_BUFFER)Then’UR 阅读全文
posted @ 2004-10-20 12:35 greystar 阅读(234) 评论(0) 推荐(0)
VB6实现网络连通检测
摘要：PrivateSubForm_Load()IfIsConnected=TRUEThenMsgBox(“您已经连通了Internet!”)EndIfIfIsConnected=FALSEThenMsgBox(“您还没有连通Internet!”)EndIfEndSub　OptionExplicit/＊有关的API声明和定义＊/PublicDeclareFunctionRasEnumConnectionsLib“RasApi32.dll”Alias“RasEnumConnectionsA”(lpRasConAsAny,lpcbAsLong,lpcConnectionsAsLong)AsLong　Pu 阅读全文
posted @ 2004-10-20 12:32 greystar 阅读(787) 评论(0) 推荐(0)