利用TypeLib Information枚舉對象屬性、利用CallByName反射調用函數 '引用TypeLib InformationSub listcontrols()Cells(1, 1) = "控制項"Cells(1, 2) = "屬性,方法,事件"Cells(1, 3) = "值"[a1:c1].Interior.ColorIndex = 3 On Error Resume Next Dim ctl As Object, n As
VB中調用MSN 6.2 API函數 瞭解這方面內容的起因是早上有位朋友讓我看一段關於MSN開發程式,現在無法運行,我開啟工程發現是針對4.7編寫的,而他的電腦安裝的6,2,因為我也用6.2所以我在VB中查看了一下,發現是缺少Messenger Type Library。但是多了Messenger API Type Library,可能是做為Messenger Type Library的替代,但是發現它的功能不如以前的Messenger Type Library
十進位/十六進位/二進位 間的轉換1,十進位轉十六進位Function Dec2Hex(value As String) As String value = Trim$(value) If Len(value) = 0 Then Dec2Hex = "" Else Dec2Hex = Hex(value) End If If Len(Dec2Hex) = 1 Then Dec2Hex = "0" &
用批處理命令----for,if,call,errorlevel,startSample: 批量移動檔案,並顯示移動了那些檔案,成功和失敗顯示不同的提示資訊。eMuleOk.bat:http://download1.csdn.net/down3/20070518/18220919835.batmovefile.bat:http://download1.csdn.net/down3/20070518/18221049118.bateMuleOk.bat@echo off@echo move st
Option ExplicitSub SetExcelVBA()'練習'功能:改變Excel的安全層級'使用:Wscript,FileSystemObject,建立txt檔案,註冊表操作,VBS檔案自我刪除,改變Excel檔案讀寫屬性等'By Keanjeason@Officefans.netDim WSH As Object, ret As String, regStr As StringDim strFullname As String, strVBS As StringDim tf,