VB
文章平均质量分 57
早起旺财
百无一用
展开
-
实现任务栏上的气球
Private Type NOTIFYICONDATA 这个类形是参考网上VC程序改写的,VB提供的不是最新的 cbSize As Long hWnd As Long uId As Long uFlags As Long uCallBackMessage As Long hIcon As Long原创 2006-01-06 02:43:00 · 887 阅读 · 0 评论 -
(转)模拟QQ截屏
QQ确实太占资源了, 物理内存和虚拟内存加起来大概有40多M,不过他提供的屏幕截图功能却是不错,能方便的选取能所感兴趣的区域图片,本文试图用VB模拟这一功能,当然功能还是要比QQ截屏少一点,但基本的功能以完备。 截屏原理:QQ截屏应该时先把当前屏幕的内容拷贝到一个窗体,并且这个窗体和屏幕一样大,然后再对这个窗体上的图片进行处理,因此在使用QQ截屏的时候你会发现托盘区那个网络链接的图转载 2009-09-07 10:28:00 · 633 阅读 · 0 评论 -
(转)如何使用ADOX/DAO刷新/更新/删除并重定义链接表
方法一: 如何使用ADOX刷新链接表 Public Sub NewLinkedExternalTableMdb() strTargetDB: 被链接的数据库路径名 strProviderString: 连接字符串 strSourceTbl: 被链接的源表名称 strLinkTblName: 要重设链接的链接表的名称转载 2009-09-05 11:07:00 · 958 阅读 · 0 评论 -
转贴 'MSVBVM60.DLL
MSVBVM60.DLL Declare Sub rtcBeep Lib "msvbvm60.dll" () Declare Sub rtcDoEvents Lib "msvbvm60.dll" () Declare Function rtcTrimBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String Declare Functio转载 2009-03-19 08:24:00 · 1495 阅读 · 0 评论 -
(转)排序算法
Private Sub BubbleSortNumbers(varray As Variant) Dim cnt1 As Long Dim cnt2 As Long Dim tmp As Long Dim counter As Long Label12.Caption = "Working..." For cnt1 = UBound(varray) To转载 2008-12-14 21:43:00 · 383 阅读 · 0 评论 -
Word2007 SoftEdge和棱台属性
Word 2007开发人员参考提到: SoftEdgeFormat.Type 属性返回或设置一个 MsoBevelType 常量,该常量代表使用软边缘格式的图像边缘的棱台类型。可读写。经测试发现这是错的,返回类型为不是MsoBevelType 。正确描述应该是“返回指定形状范围的柔化边缘格式。msoSoftEdgeType 类型” 再有就是棱台效果,无论怎么设置, VBA跟踪出原创 2008-07-07 16:27:00 · 1070 阅读 · 0 评论 -
更改场景字体
Private Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As Byte lfUnderline As Byte原创 2006-08-12 23:33:00 · 740 阅读 · 0 评论 -
MSDN的文档 Open 方法 (ADO Recordset)
Open 方法 (ADO Recordset)打开游标。语法recordset.Open Source, ActiveConnection, CursorType, LockType, Options参数Source 可选,变体型,计算 Command 对象的变量名、SQL 语句、表名、存储过程调用或持久 Recordset 文件名。ActiveConnection转载 2006-07-11 12:38:00 · 1181 阅读 · 0 评论 -
使用用VB处理MYSQL数据库中二进制数据问题
XP Professional SP2 + VB6.0 + MYSQL5.0 + MySql ODBC 3.51 使用ADO 将ACCESS数据库中的表导入到MYSQL数据库中 Dim AdoRst As New ADODB.Recordset MySql 数据库的ST表 Dim Adoact As New ADODB.Recordset A原创 2006-07-11 11:10:00 · 1190 阅读 · 0 评论 -
关于VB生成标准DLL文件
工程NewLinker.vbp模块文件NewLinker.basOption ExplicitPublic Sub Main() Dim SpecialLink As Boolean, fCPL As Boolean, fResource As Boolean Dim intPos As Integer Dim strCmd As String Dim strPath转载 2006-09-19 13:31:00 · 4674 阅读 · 1 评论 -
关于Agent 角色代理使用(整理)
使用控件:Microsoft Agent Control 2.0Private Sub VbAcs_Click() 菜单 VbAcs单击事件 Dim Genie As IagentCtlCharacter 定义角色变量 Dim DataPath As String 定原创 2006-05-09 08:03:00 · 1695 阅读 · 0 评论 -
用鼠标移动没有标题的Form(整理)
Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lPa原创 2006-05-09 08:41:00 · 659 阅读 · 0 评论 -
文件对象FSO的引用(整理)
Dim Fo As Object Set Fo = CreateObject("Scripting.FileSystemObject")If Not fo.FolderExists("C:/Kt") Then fo.CreateFolder "C:/Kt" End If fo.CopyFile "kk.exe", "c:/kt/kk.exe原创 2006-05-09 07:53:00 · 1081 阅读 · 0 评论 -
MsFlexGrid用法 (转贴)
option explicitdim cn as new adodb.connectiondim rs as new adodb.recordsetdim str as stringdim strSQL as string str="provider=SQLSERVER.1;SERVER=LOCAL;UID=SA;PWD="";DATABASE=PUBS"if cn.state=adstateo转载 2006-03-18 19:35:00 · 1073 阅读 · 0 评论 -
注册OLEDB
regsvr32 msjetoledb40.dll转载 2012-09-04 10:51:42 · 515 阅读 · 0 评论