- 浏览: 1063963 次
最新评论
-
yw10260609:
这么麻烦啊,还有代码操作?我在网上搜了一篇关于这个的教程,上面 ...
数据库同步 -
fengdonngming:
联系方式:steven198717@sina.com
Flex写的一个工作流设计器原型 -
fengdonngming:
我最近也在做一个类似的表单设计器,但是没有思路。可以发一下源码 ...
Flex写的一个工作流设计器原型 -
wanwan209709:
您好,我最近也在研究工作流的东西,您能把源码发给我研究一下吗邮 ...
Flex写的一个工作流设计器原型 -
玲cc:
文章很有哲学的观念。就像苏格拉底曾经说过的,你既然不知道你要寻 ...
这是给开发者的弥天大谎还是至理名言?
相关推荐
vb 屏幕取词on Explicit Public Const EM_CHARFROMPOS = &HD7 Public Const EM_GETLINECOUNT = &HBA Public Const EM_GETLINE = &HC4 Public Const EM_LINEINDEX = &HBB Public Const EM_LINELENGTH = &HC1 Declare ...
VB人脸识别技术 Public Sub picpoint() Dim i, j, k As Integer Dim h(0 To 400, 0 To 400) As Integer '存储像素的灰度值 Dim r As Integer Dim c As Long Dim hd(0 To 300) As Integer Dim p(0 To 300) As ...
Private Sub CsysTray1_MouseDown(Button As Integer, Id As Long) Me.WindowState = 0 '程序回复到Normal状态 Me.Visible = True '从任务栏中清除图标 cSysTray1.InTray = False '令程序界面可见 Me.setfocus ...
Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal ...
' On Top Sub Declaration Public Declare Sub SetWindowPos Lib _ "user32" (ByVal hWnd _ As Integer, ByVal hWndInsertAfter As Integer, _ ByVal X As Integer, ByVal Y As Integer, _ ByVal cx As Integer, ...
Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image7.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image8.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg")...
一款好用的VB曲线,各种模型均已内置,Declare Function BitBlt Lib "GDI32" (ByVal hDestDC AS Long,ByVal X As Long,ByVal Y As Long,ByVal nWidth As Long,ByVal nHeight As Long,ByVal hSrcDC As Long,ByVal ...
详细完整的VB语法,示例: ...其中整型是16位的整数,长整型是32位的整数。单精度及双精度浮点型就表示实数,常被用于数量较大的数字。Currency数据类型支持小数点右面15位,是定点数据类型,适用于货币计算。
It uses a hidden VB call exposed by MSVBVM50.DLL (which is also available in VB6 - thanks to Paul Wilde for pointing this out) and the ubiquitous CopyMemory call. In my opinion, “CopyMemory” is the...
VB技术生成动态的水波效果,压缩包内VB版云效果为标准版本,VB版云效果(提速版)为优化提速版本,云效果和水波效果在代码中有核心的生成函数,使用时可单独摘录出来。 Private Type RGBQUAD '只有bibitcount为1...
VB模拟全自动洗衣机的整个洗衣过程,比如模拟抽水、洗衣、浸泡、脱水的各个过程,符合vb结构化程序的特点,简单易懂,也是一般小游戏的循环方式,部分代码说明: Dim WarterHeight As Single '水高度 Dim ...
Public Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, _ lpList As Long) As Long Public Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" _ ...
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Public Const RGN_OR = 2 Public Declare ...
VB仿真的彩票开奖程序,模拟随机投注,模拟开奖,包括有随机选号程序,随机生成号码,包括36选7和22选5算法。...“36选7”设6个奖级,即一、二、三、四、五、六等奖。其中一、二、三等奖为浮动奖,其余为固定奖。
数值型,有6种,分别是Byte(字节型)、Integer(整型)、Long(长整型)、Single(单精度浮点型)、Double(双精度浮点型)和Currency(货币型) 2.逻辑型(Boolean) 3.日期型(Date) 4.字符串型(String) 5.变...
SysTray控件用法详解 VB SYSTRAY 托盘图标 用VB6自带的systray.ocx控件实现托盘图标程序 : 补充: 然后在自己的VB程序中添加改控件(工程-部件-浏览)。 最好把这个ocx放到C:\WINDOWS\system32。 改控件...
VB2008工程代码-加密汉字 字符串 Public Function StringEnDeCodecn(ByVal strSource As String, ByVal MA As Long) As String '该函数只对中西文起到加密作用 '参数为:源文件,密码 On Error GoTo ErrEnDeCode...
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long Dim pColor As Long Dim R As Long, G As Long, B As Long Private Sub Form_Load() Picture1....
摘要:VB源码,图形处理,VB恶搞程序,屏幕抖动 再分享一个Vb恶搞程序,屏幕抖动下雪,下雪API声明(摘录): GetDC()功能是获取指定窗体的设备场景的句柄(hDC),用参数0则可以获取整个屏幕的场景句柄 GetPixel...
VB 用过程求组合数,输入m和n,按等号键可得组合数,来看如下的简单代码: Private Sub f(m As Integer, p As Long) '自定义通用过程,用于求阶乘 Dim i As Integer '声明局部变量 p = 1 '赋初值 For i = 1 ...