易截截图软件、单文件、免安装、纯绿色、仅160KB

vb设置窗体不可移动

Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, Optional ByVal wFlags As Long = 0&) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Dim i As Boolean
Function SetWindowMoveAble(ByVal hWnd As Long, Optional ByVal MoveAble As Boolean = True) As Boolean
'function: SetWindowMoveAble
'  params:
'          hWnd: 一个顶级窗口句柄
'          MoveAble: 是否可移动
'  result: 与参数 Moveable 的设置一样,否则即为失败
Dim mhandle As Long
If MoveAble Then _
  GetSystemMenu hWnd, 1&: _
  DrawMenuBar hWnd _
Else _
  mhandle = GetSystemMenu(hWnd, 0&): _
  SetWindowMoveAble = DeleteMenu(mhandle, &HF010&)
End Function
Private Sub Command1_Click()
SetWindowMoveAble hWnd, i
i = Not i
End Sub
转自:http://topic.csdn.net/u/20091202/13/66015bdf-6b87-4268-8e9d-dccf45f7ae52.html?15976


相关文档:

VB下如何编写CRC校验程序

 VB下如何编写CRC校验程序
  随着计算机技术的不断发展,在现代工业中,利用微机进行数据通讯的工业控制应用得也越来越广泛。由于传输距离、现场状况等诸多可能出现的因素影响,计算机与受控设备之间的通讯数据常会发生无法预测的错误。为了防止错误所带来的影响,一般在通讯时采取数据校验的办法,而循环冗余码校 ......

asp vb.net 在线统计 简单版本 和精确版本

 简单
在Global.asa文件中加入如下的代码:
Java代码
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. '当服务器开启时,设置在线用户计数器为0
6. Application("ActiveUsers") = 0
7.
......

VB中得到屏幕支持的分辨率和色位

http://topic.csdn.net/t/20030306/11/1497896.html#
 工程文件名:Chdsp.vbp  
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\PWIN95\SYSTEM\\STDOLE2.TLB#OLE Automation
Module=Module1; ChDsp.bas
Form=ChDsp.frm
Startup="Form1"
He ......

(VB)FTP异步下载

 该方法不需要使用API及第三方控件
这里使用的是VB的UserControl控件的AsyncRead方法
步骤如下:
1、添加一个用户控件,设置InvisibleAtRuntime属性为true,目的是运行时该控件不显示用户界面,就象Timer控件一样。
2、到自定义控件的代码窗口,添加如下代码
Option Explicit
'下载结果枚举
Public Enum Downloa ......

[vb]使用vb统计.java的行数

 工作需要,针对java文件,作了一个行数统计的工具。统计的主要代码如下:
    Set srcIn = fso.OpenTextFile(fileNm, ForReading)
    
    Do While Not srcIn.AtEndOfStream
        buf = srcIn.ReadLine
 &nbs ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号