VB
文章平均质量分 64
winehero
这个作者很懒,什么都没留下…
展开
-
用 WIA对象 编程使用扫描仪的例子
WIA Tutorial :http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wia/wia/tutorials/wiatutorial.aspMicrosoft Windows Image Acquisition Library v2.0 :http://vbnet.mvps.org/index.html?code/原创 2005-12-12 15:38:00 · 4554 阅读 · 2 评论 -
structure与byte数组相互转换
Public Type uS a As Long b As Double c As String * 48End TypePublic Data1() As uSPublic outArray() as byte如果将 data1转换成 byte数组呢?还有如何恢复byte数组到 data1中呢?——————————————————————————用CopyMemory原创 2005-12-31 14:47:00 · 2726 阅读 · 0 评论 -
读写二进制字段数据
1、使用字段对象的AppendChunk/GetChunk2、使用ADO Stream对象(2.5版本及以上才有)该对象用于读写二进制字段数据的,如下是写的简单代码: Set stm = New ADODB.Stream stm.Type = adTypeBinary stm.Open stm.LoadFromFile (文原创 2005-12-31 14:43:00 · 3231 阅读 · 0 评论 -
关于OCX控件注册问题
使用Shell命令Shell "regsvr32 /s """ & 文件全路径名 & """"有个API用来注册.ocx的Declare Function RegComCtl32 Lib "C:/name.dll" _Alias "DllRegisterServer" () As LongDeclare Function UnRegComCtl32 Lib "C:/name.dll" _Ali原创 2005-12-31 14:59:00 · 3662 阅读 · 0 评论 -
msgbox框出来以后,如果一定时间内没有人点确定,那怎么让这个框消失,使程序自动运行?
http://community.csdn.net/Expert/topic/4067/4067593.xml?temp=.8975794用Wscript Objectdim ws as ObjectSet ws = CreateObject("Wscript.Shell")ws.Popup "串口未打开", 1, "提示"也可FindWindow找到Msgbox,findwindowEX找到Bu原创 2005-12-31 14:54:00 · 3961 阅读 · 0 评论 -
关于公式调用的调用
程序中如何实现读取ini文件中的公式,然后进行计算!例如A=A+1我把A+1存储到ini文件中!然后程序执行时到INI文件中读取公式然后按公式进行计算!——————————————————————————————复制以下脚本到Form1中,添加一个Command1 按钮执行前,请确保INI文件为"公式文件"(全路径),Section为"公式Section",Key为: "公式Key"即类似:原创 2005-12-31 15:13:00 · 2427 阅读 · 0 评论 -
SendMessage相关问题
高分求教功能设想:1、记录需要点击鼠标的坐标;2、程序自动将鼠标移到需要点击鼠标的位置;3、点击鼠标,如果是输入框,还需要自动输入相应数据。难点:无法实现点击鼠标的动作。代码:Private Type POINTAPIX As LongY As LongEnd TypeConst WM_LBUTTONDOWN = &H201Const WM_LBUTTONUP = &H202Dim ButtonP原创 2005-12-27 13:23:00 · 2996 阅读 · 0 评论 -
ListView默认选择项问题
的确是该控件的一个bug,http://support.microsoft.com/default.aspx?scid=kb;en-us;240946在msdn上找到了。我把它的代码修改了一下,解决了这个问题。Option ExplicitPrivate m_DefualtListItem As ListItem 默认的选择项、或者先前的选择项Private m_Mou原创 2005-12-27 10:20:00 · 3588 阅读 · 1 评论 -
怎样解决kodak扫描控件,在xp下使用出错的问题?2000是没有问题的
Windows 2000Copy this file from /Windows/INF: IMAGEVUE.INF (optional)Copy these files from /Windows/System32: IMGADMIN.OCX IMGCMN.DLL IMGEDIT.OCX IMGSCAN.OCX IMGSHL.DLL IMGTHUMB.O原创 2005-12-16 15:17:00 · 3336 阅读 · 0 评论 -
动态填加listview控件,不管该控件有没有在工程中引用。
Dim WithEvents ListView1 As VBControlExtenderPrivate Sub Form_Load()Licenses.Add "Comctl.ListViewctrl.1", "x"Set ListView1 = Me.Controls.Add("Comctl.ListViewctrl.1", "listview1", Me)ListView1.Visible原创 2005-12-31 14:57:00 · 2829 阅读 · 0 评论