Gutta-优快云博客

原创ＶＢ（ＥＸＥ）／ＶＣ（ＤＬＬ）混合编程实例

ＶＢ（ＥＸＥ）／ＶＣ（ＤＬＬ）混合编程实例⑴　首先，打开VC，然后新建一个Win32 Dynamic-Link Library工程，然后在出现的工程类型中选择默认的空项目"A empty DLL project"（即不包含任何文件的工程），然后结束向导。⑵　手动添加两个文件，一个"C++ Source file",一个"Text file",请注意两个文件的后缀，在源文件命名时可以不写后缀名，那么

2005-03-29 20:37:00 1744

原创 VB中对大字段的存取AppendChunk和GetChunk

AppendChunkPublic Function SaveFileToDB(ByVal Filename As String, dbField As ADODB.Field, Optional PackageSize As Long = 8192&) As Long On Error GoTo errHandle Dim lngActualSize As Long, l

2005-03-29 20:33:00 3715

原创 ASP中对大字段的存取AppendChunk和GetChunk

AppendChunkformsize=request.totalbytes 取得客户端发过来的大小formdata=request.binaryread(formsize)把客户发过来的数据转成二进制作bncrlf=chrB(13) & chrB(10)divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)datastart=inst

2005-03-29 20:31:00 3007

原创实现金山快译工具条的自动收缩功能

使用了二个API：GetCursorPos（lpPoint As POINTAPI） as LongScreenToClient（ByVal hwnd As Long, lpPoint As POINTAPI） as Long这两个API是用来实现“金山快译”的自动收缩效果的。＇最重要的是判断鼠标的位置是否在窗体中的事件,如下:Private Sub Form_MouseMove(Button A

2005-03-16 15:11:00 1217

原创简单的抓取屏幕生成位图文件（不用内存图象拷贝API函数）

Private Declare Function BitBlt Lib "gdi32" _ (ByVal hDCDest As Long, ByVal XDest As Long, _ ByVal YDest As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal hDCSrc As Long, _ ByVal XS

2005-03-16 15:07:00 2914 1

原创自定义处理窗体的移动消息WM_MOVE

标准模块中：Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPublic Declare Function CallWindowProc Lib "user32" Alias "CallWindowP

2005-03-16 15:06:00 2948

原创突破MsComm控件RThreshold限制，全部数据统统收！

全局参数：Private Rv_data() As Byte 存放接收的数据Private tmpRV() As Byte 存放暂存的数据Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)———————————————————————————————————

2005-03-12 12:02:00 2371

Gutta的专栏