- 博客(26)
- 收藏
- 关注
RSS订阅转载 托盘程序详解
不知道能否描述清楚就是说如何让一个form在显示器窗口底端不显示，就是类似QQ，窗体没有隐藏，但是在显示器底端那些标题栏里不显示。应该怎么实现呢？谢谢_________________________________________________________________两个步骤：一：去掉任务栏方法设置窗体属性：BorderStyle 为1，2以外的任何属性二：增加类似QQ的图标方法：参考
2005-12-31 15:54:00
3088
转载 例子演示下VB实现多态
在工程中创建3个Class Module，名字分别为：Animal、Cat、Dog：Animal是接口：Sub Cry()End SubCat和Dog类是实现：Implements AnimalPrivate Sub Animal_Cry() MsgBox "miao miao"End SubImplements AnimalPrivate Sub Animal_Cry() MsgBo
2005-12-31 15:47:00
2674
转载 在VB中调用DOS命令，如何得知DOS命令是否已经执行完毕
在VB中调用DOS命令，如何得知DOS命令是否已经执行完毕_____________________________________________Set wshl = CreateObject("wscript.shell")wshl.Run "ping 9zp.com", 1, True true代表等待完成,1代表显示运行窗口MsgBox "完成"*******************
2005-12-31 15:41:00
5770
转载 打印样例
MDI下一个子窗体上控件很多，所以在1280*1024分辨率下做的，然后在1024*768下，控件不能全部显示出来，也不能全部打印出来。：（考虑过用滚动条，但用printform也只能打印出当前屏幕显示的东西怎么解决啊？不会让我用printer吧，几百个控件会写s人地________________________________________________________________给你
2005-12-31 15:38:00
3221
转载 如何对CMD窗口进行输入输出重定向
昨天xingnup (黑猫)发了个贴子问关于如何取得进程句柄的问题。http://community.csdn.net/Expert/topic/4351/4351488.xml?temp=.4895746后来讨论讨论着演化出一个新的问题：如何对CMD窗口进行输入输出重定向？这个问题我记得很久以前就有人讨论过，在原贴中我也说了，最好的办法是用管道。说实话，这东西确实用VC做起来比较舒服，启一个线程
2005-12-31 15:32:00
3757
1
转载 屏幕抓屏
如何通过鼠标，选取一部分屏幕图像，在把它保存下来？？？_________________________________________________可以这样，用一个无边框窗体铺满整个屏幕并置顶，用bitblt函数把桌面抓成图片显示在这个窗体上这样看起来就是把屏幕静止了你用鼠标在这个窗体上画框取mousedown时的xy值与mouseup时的XY值用窗体的paintpicture方法画到另一个不
2005-12-31 15:26:00
2727
转载 ActiveX控件用于ＤＨＴＭＬ开发
ActiveX控件用于ＤＨＴＭＬ开发 ActiveX控件用于ＤＨＴＭＬ开发国防大学图书馆技术室 王渤【提要】动态Web页面ＤＨＴＭＬ的开发方法很多，如使用扩展标记语言ＸＭＬ、服务器端ＣＧＩ（或ＡＳＰ）、基于ActiveX Control(控件)动态实时页面的开发；本文将主要讨论第三种方式，即ActiveX Control(控件)动态实时页面的开发，并通过VB5的实例，说明自制控件的方法。一、Ac
2005-12-31 15:19:00
2569
原创 关于公式调用的调用
程序中如何实现读取ini文件中的公式,然后进行计算!例如A=A+1我把A+1存储到ini文件中!然后程序执行时到INI文件中读取公式然后按公式进行计算!——————————————————————————————复制以下脚本到Form1中，添加一个Command1 按钮执行前，请确保INI文件为"公式文件"（全路径）,Section为"公式Section",Key为： "公式Key"即类似：
2005-12-31 15:13:00
2451
转载 Adding XP Visual Styles to Your Visual Basic Application
When you run a Visual Basic application on an XP machine, you will see that although the form gets an XP-style title bar, the controls on the form still draw in the old-fashioned Windows style. Howeve
2005-12-31 15:09:00
2453
转载 怎么实现“鼠标穿透”，即鼠标对窗体失去作用，对着它点右键要出现WINDOWS的桌面右菜单
Const LWA_COLORKEY = &H1Const LWA_ALPHA = &H2Const GWL_EXSTYLE = (-20)Const WS_EX_LAYERED = &H80000Const WS_EX_TRANSPARENT As Long = &H20&Private Declare Function GetWindowLong Lib "user32" Alias "G
2005-12-31 15:06:00
4917
原创 关于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
3698
原创 动态填加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
2850
原创 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
4012
原创 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
2766
原创 读写二进制字段数据
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
3265
原创 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
3018
原创 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
3627
1
转载 Modal dialogs with Win32 API
Modal dialogs with Win32 API? I have been charged with the task of making a DLL in VB6 that can display internal dialog boxes as "Modal" to an external window using only the external windows hWnd.Rea
2005-12-27 09:30:00
3513
转载 【叶帆文章】CHM帮助文件在VB程序中的应用
以前很羡慕微软提供的程序，一按窗体上的“？”按钮，然后在相关选项上单击，就可以弹出一个方形框，里面即时显示相关的帮助。并且在不同的窗体按“F1”键，它能弹出相关页面的帮助。觉的很神奇，也一直想做一个，但苦于没有相关的介绍和源码，所以迟迟没有实现，直到有一天，发现公司软件开发到一定程度，必须面对帮助的开发了，所以不得不硬下头皮，一点点研究chm帮助文件的制作和在VB程序中的应用。 现在好了，后来人可
2005-12-21 16:08:00
2595
原创 怎样解决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
3374
转载 Multiple Selections in a TreeView
This example provides a class which you can attach to the vbAccelerator TreeView control to provide multiple selection support in a TreeView. Although Windows TreeView controls dont actually support
2005-12-15 17:38:00
1078
转载 Automatically changes controls to XP themed style in XP based OS.
**************************************Windows API/Global Declarations for :_ Automatically Create Manifest File _**************************************Private Declare Function Get
2005-12-13 13:45:00
885
原创 用 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
4608
2
转载 VB如何实现摄像头数据的捕获与显示
http://www.mysticboy.nease.net/downdload/document/New_Folder/vbVidCap.rar或如下：Public Const WM_USER = &H400Type POINTAPI x As Long y As LongEnd TypeDeclare Function SendMessage Lib "user32
2005-12-12 15:33:00
4703
1
转载 用VB绘制正弦动画曲线
用VB绘制正弦动画曲线 VB提供了绘图的基本方法，如Pset、Line、Circle,能够绘出点、直线、圆等基本图形，但没有提供绘曲线的方法。其实，我们可以灵活运用基本绘图方法，来绘出所需要的曲线，甚至达到动画的效果。 一、VB坐标系介绍 VB里有三种坐标系，屏幕坐标系、窗体坐标系和窗体内的对象坐标系，这三种坐标系都是以其左上角为坐标原点，与平常使用的几何坐标系不一致，我们绘图时感到不习
2005-12-12 15:26:00
2988
2
转载 在程序中调用Start->Run
Public Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As
2005-12-09 14:42:00
800
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人