-
编辑 删除
查找工程文件调用的dll及ocx
-
编辑 删除
VB6 dll 自动编译工具
´---------------------------------------------------------------------------------------´ Module : VB compiler´ DateTime : 03-5-30 15:45´ Author &n...
-
编辑 删除
office 控件
-
编辑 删除
XdictGrb.dll应用
Option ExplicitImplements IXDictGrabSinkPrivate gp As GrabProxyPrivate Sub Form_Load()Set gp = New GrabProxyWith gp.GrabEnabled = True.GrabInterval = 30.GrabMode = XDictGrabMouse.AdviseGrab MeEnd Wi...
-
编辑 删除
attachMovie
for (gridrow=0; gridrow<btn_count; gridrow++) { newGrid = _root.piont.attachMovie("sys_btn", "sys_btn"+i, i); newGrid._y = 40*gridrow+i*5; newGrid.createTextField("a_txt", this.getNextHighestDepth(), 0, 0, 0, 0); trace(newGrid); newGrid.a_txt.text = btn1_name; newGrid.a_txt.autoSize = true; trace(newGrid); newGrid.onPress = function() { trace(newGrid.a_txt.text); }; i++;}[@more@]
-
编辑 删除
fscommand的用法:
fscommand的用法:as:fscommand("msgbox","Hello");VB:Private Sub ShockWaveFlash1_Fscommand(ByVal Command as String,ByVal,args as String)if command="msgbox" thenmsgbox argsend ifEnd Sub在VB中调用Flash函数的方法:as:addProperty("msg",getMsg,setMsg);function getMsg(){}function setMsg(msg){var t:TextField=createTextField("t",1,100,100,100,100);t.text=msg;}VB:Private Sub Form_Load()ShockWaveFlash1.setVariable("msg","Hello")End Sub 新建
-
编辑 删除
GetMaxDate
Function GetMaxDate(ParamArray Dates()) As StringOn Error GoTo getmaxdate_ErrorDebug.Print UBound(Dates())Dim Tempdate() As DateDim i As IntegerDim TempStr As DateReDim Tempdate(UBound(Dates()))For i = 0 To UBound(Dates()) Tempdate(i) = IIf(Dates(i) = "", CDate("1/1/1900"), Dates(i)) NextTempStr = Tempdate(0)For i = 1 To UBound(Tempdate()) If Tempdate(i) > TempStr Then TempStr = Tempdate(i) End IfNextGetMaxDate = IIf(DateDiff("d", TempStr, CD
-
编辑 删除
ShowTip Command1.hWnd, "这只是弹出的一个消息"
Option ExplicitPublic Declare Sub InitCommonControls Lib "comctl32" ()Public Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As LongPublic Declare Function SendMessage Lib &q
-
编辑 删除
table-style
<html><head><title>用css美化表格边框</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style>.table1{border:#000000 dashed;border-width:1 0 0 1}.td1{border:#000000 dashed;border-width:0 1 1 0}.table2{border:#cc0000 solid;border-width:1 0 0 1;background:#ffffff}.td2{border:#cc0000 solid;border-width:0 1 1 0}.table3{border:green dotted;border-width:2 0 0 2}.td3{border:green dotted;border-width:0 2 2 0}.table4{border:
-
编辑 删除
MSHFlexGrid多列排序
一万行，3秒搞定 Const ASC As Long = 1 Const DESC As Long = -1 Private SortType As Long Private Sub Command1_Click() SortType = ASC Debug.Print Now MSHFlexGrid1.Sort = 9 Debug.Print Now End Sub Private Sub Command2_Click() SortType = DESC MSHFlexGrid1.Sort = 9 End Sub Private Sub Form_Load() Randomize With MSHFlexGrid1 For i = 1 To .Rows - 1 .TextMatrix(i, 3) = CStr(i) .TextMatrix(i, 1) = Format(Rnd, "0.0") Next End With End Sub Private Sub MSHFlexGrid1_Compare(ByVal Row1 As Long, ByVal
-
编辑 删除
注册及反注册ActiveX Dll文件
代码主要演示在程序中注册及反注册ActiveX Dll文件,不是使用regsvr32.exe机制,你可以把这个代码封装成类,做成DLL, [color=#ff00ff]'**************************************'Windows API/全局声明''**************************************Private Declare Function LoadLibraryRegister Lib "KERNEL32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPrivate Declare Function FreeLibraryRegister Lib "KERNEL32" Alias "FreeLibrary" (ByVal hLibModule As Long) As LongPriv
