miaozk2006

点滴积累与收藏:关于技术，关于生活

日志

关于我

miaozk2006

文章分类

【引用】窗口处理技巧大全 vb(窗体控件)

2012-03-06 00:25:37| 分类：编程-VB | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

本文转载自mGc|TonY.Joe.S《窗口处理技巧大全 vb(窗体控件)》

Vb提供了API函数SetWindowLong和GetWindowLong，可以让我们很容易取得对窗口的操作；通过对窗口属性的操作，可以更改窗口的显示风格。有些看来是正常情况下无法实现的窗口，现在你可以很容易的实现。只要你想到，更多希奇古怪的你也能做到。快试试下面的例子吧。

一下例子中可能用到的API声明和常量?

变量声明

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const SWP_NOSIZE = &H1

Private Const SWP_NOZORDER = &H4

Private Const SWP_NOMOVE = &H2

Private Const SWP_DRAWFRAME = &H20

Private Const GWL_STYLE = (-16)

Private Const WS_THICKFRAME = &H40000

Private Const WS_DLGFRAME = &H400000

Private Const WS_POPUP = &H80000000

Private Const WS_CAPTION = &HC00000

Private Const WS_SYSMENU = &H80000

Private Const WS_MINIMIZEBOX = &H20000

Private Const WS_MAXIMIZEBOX = &H10000

Private Const WS_MINIMIZE = &H20000000

Private Const WS_MAXIMIZE = &H1000000

--------------------------------------------------------------------------------

例子一：任何一个控件（只要有窗口，这是我们的前提，下同），你可以在运行时随便更改它的大小。

Private Sub ControlSize(ControlName As Control, SetTrue As Boolean)

Dim dwStyle As Long

dwStyle = GetWindowLong(ControlName.hwnd, GWL_STYLE)

If SetTrue Then

dwStyle = dwStyle Or WS_THICKFRAME

Else

dwStyle = dwStyle - WS_THICKFRAME

End If

dwStyle = SetWindowLong(ControlName.hwnd, GWL_STYLE, dwStyle)

SetWindowPos ControlName.hwnd, ControlName.Parent.hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME

End Sub

用法：ControlSize picture1,true；设置第二个参数为False取消这种设置，下同

--------------------------------------------------------------------------------

例子二：任何一个控件，我们都可以控制其显示风格为对话框的风格。

Private Sub ControlDialog(ControlName As Control, SetTrue As Boolean)

Dim dwStyle As Long

dwStyle = GetWindowLong(ControlName.hwnd, GWL_STYLE)

If SetTrue Then

dwStyle = dwStyle Or WS_DLGFRAME

Else

dwStyle = dwStyle - WS_DLGFRAME

End If

dwStyle = SetWindowLong(ControlName.hwnd, GWL_STYLE, dwStyle)

SetWindowPos ControlName.hwnd, ControlName.Parent.hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME

End Sub

用法
ControlSize picture1, True

--------------------------------------------------------------------------------

例子三：任何一个控件，我们都可以控制其显示风格为模式对话框的风格

Private Sub ControlModal(ControlName As Control, SetTrue As Boolean)

Dim dwStyle As Long

dwStyle = GetWindowLong(ControlName.hwnd, GWL_STYLE)

If SetTrue Then

dwStyle = dwStyle Or WS_POPUP

Else

dwStyle = dwStyle - WS_POPUP

End If

dwStyle = SetWindowLong(ControlName.hwnd, GWL_STYLE, dwStyle)

SetWindowPos ControlName.hwnd, ControlName.Parent.hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME

End Sub

用法
ControlModal picture1, True

--------------------------------------------------------------------------------

例子四：任何一个控件，我们都可以给它加上标题栏，通过拖动标题栏，可以实现控件的运行时移动。

Private Sub ControlCaption(ControlName As Control, SetTrue As Boolean)
Dim dwStyle As Long

dwStyle = GetWindowLong(ControlName.hwnd, GWL_STYLE)

If SetTrue Then

dwStyle = dwStyle Or WS_CAPTION

Else

dwStyle = dwStyle - WS_CAPTION

End If

dwStyle = SetWindowLong(ControlName.hwnd, GWL_STYLE, dwStyle)

SetWindowPos ControlName.hwnd, ControlName.Parent.hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME

End Sub

用法:ControlCaption picture1, True

--------------------------------------------------------------------------------

例子五：任何一个控件，我们都可以给它加上ControlBox（所谓ControlBox，就是窗体的图标＋最小化＋最大化＋关闭按钮）。

Private Sub ControlSysMenu(ControlName As Control, SetTrue As Boolean)

Dim dwStyle As Long

dwStyle = GetWindowLong(ControlName.hwnd, GWL_STYLE)

If SetTrue Then

dwStyle = dwStyle Or WS_SYSMENU

Else

dwStyle = dwStyle - WS_SYSMENU

End If

dwStyle = SetWindowLong(ControlName.hwnd, GWL_STYLE, dwStyle)

SetWindowPos ControlName.hwnd, ControlName.Parent.hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME

End Sub

用法: ControlCaption picture1, True: ControlSysMenu picture1, True

相关文章参考：

※关于三个概念：ActiveX、OLE和COM

※注册ActiveX控件的几种方法(转) 分享 ※

※VB 单击ListView控件某列表头进行排序

与控件相关文章：

※VB表格控件总览与例程分析 ※

※VB 设置控件边框颜色(如：List、Text、Picture)※

※VB控件注册 - 利用资源文件将dll、ocx打包进exe文件

※做VB的，经常注册和反注册OCX控件和DLL链

※VB表格控件总览与例程分析

※根据窗体自动调整窗体内控件大小注：实用，可以直接引用

※用户控件制作讲解与实例

※VB制作OCX控件的步骤

※【引用】窗口处理技巧大全 vb(窗体控件)

※VB让控件可以当标题栏拖动

※VB 调用腾讯截图控件CameraDLL.dll

※VB表格控件总览与例程分析

※VB表格控件总览与例程分析

※☆Mp3Play.ocx控件让音乐之声响起来

※为系统加载右键注册控件选项【VB 注册控件】

※VB中MsFlexGrid控件的使用细则

※点击MSFlexGrid数据控件的标题进行数据排序

★VB部分相关文章推荐：★

※vb中line的用法[转]

※画图工具的VB实现

※VB 一个获得自己外网 IP 地址的程序代码

※VB程序中实现IP地址子网掩码网关DNS的更改 [转]

※在 VB 中应用 FSO 对象模型介绍（摘自网络）

※[转] Vb中FSO 对象的介绍

※VB 画坐标轴

※VB 二进制文件的操作

※[VB]BMP转JPG VB中KeyCode常数用法

※vb实时曲线的绘制和保存

※VB操作EXCEL

※vb初学回顾：最大公约数　最小公倍数　素数求取

※vb 关于窗口样式的API以及处理文本的API参考

※【引用】在VB6.0中实现弹出式菜单的几种方法

※【引用】URLDownloadToFile_VB下载文件!

※[转]VB:如何检测到U盘的插拔(源代码)

※巧用SendMessage函数扩展Treeview功能

※vb中如何在任务管理器里面隐藏应用程序进程

※如何实现VB与EXCEL的无缝连接

※一个API方式存取日志文件的模块[VB]

※VB用记录集填充表格函数

※VB打开文本文件各种方法

※vb ClipBoard 剪切板应用（复制剪切粘贴）

※【引用】窗口处理技巧大全 vb(窗体控件)

※【转】 Md rd命令之VB

※vb：读写文本文件

※在vb中实现真正锁定的带自定义菜单的文本控件

※【引用】使用CommonDialog的ShowSave后如何判断是保存还是※取消？

※vb 关于commondialog的多选 VB获取Windows操作系统所有版本

※vb UTF文本文件访问

※VB编程中的Unicode vs Ansi

※VB编PiView4注册机

※VB获取超过2G文件的大小

※比CopyMemory还要快的函数SuperCopyMemory

※VB:编程效率快步提高之:十七种可用一行代码完成的技巧

※VB画出来的五星红旗

※Qt第一印象——Qte与Qt

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_087067092095087075086082083068072085089065080081086070092',
              blogTitle:'【引用】窗口处理技巧大全 vb(窗体控件)',
              blogAbstract:'\r\n<P\>        Vb提供了API函数SetWindowLong和GetWindowLong，可以让我们很容易取得对窗口的操作；通过对窗口属性的操作，可以更改窗口的显示风格。有些看来是正常情况下无法实现的窗口，现在你可以很容易的实现。只要你想到，更多希奇古怪的你也能做到。快试试下面的例子吧。</P\>\r\n<P\>       一下例子中可能用到的API声明和常量?</P\>\r\n<P\>变量声明</P\>\r\n',
              blogTag:'',
              blogUrl:'blog/static/3824705820122602537677',
              isPublished:1,
              istop:false,
              type:2,
              modifyTime:1379642653724,
              publishTime:1330964737677,
              permalink:'blog/static/3824705820122602537677',
              commentCount:0,
              mainCommentCount:0,
              recommendCount:0,
              bsrk:-100,
              publisherId:0,
              recomBlogHome:false,
              currentRecomBlog:false,
              attachmentsFileIds:[],
              vote:{},
              groupInfo:{},
              friendstatus:'none',
              followstatus:'unFollow',
              pubSucc:'',
              visitorProvince:'',
              visitorCity:'',
              visitorNewUser:false,
              postAddInfo:{},
              mset:'000',
              mcon:'',
              srk:-100,
              remindgoodnightblog:false,
              isBlackVisitor:false,
              isShowYodaoAd:false,
              hostIntro:'',
              hmcon:'0',
              selfRecomBlogCount:'0',
              lofter_single:'<iframe width="140" height="560" style="overflow:hidden;" src="http://www.lofter.com/mailEntry.do?blogad=1&blog" frameBorder="0"></iframe>'
            }

{list a as x}
    {if !!x}
    <div class="iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
      {if x.visitorName==visitor.userName}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        {if x.moveFrom=='wap'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/wapblog.html?frompersonalbloghome"><span title="来自网易手机博客" class="iblock wapIcon"> </span></a>
        {elseif x.moveFrom=='iphone'}
          <a class="noul pnt" target="_blank"><span title="来自iPhone客户端" class="iblock iphoneIcon"> </span></a>
        {elseif x.moveFrom=='android'}
          <a class="noul pnt" target="_blank"><span title="来自Android客户端" class="iblock androidIcon"> </span></a>
        {elseif x.moveFrom=='mobile'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/emsblog.html?frompersonalbloghome"><span title="来自网易短信写博" class="iblock wapIcon"> </span></a>
        {/if}
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
          ${fn(x.visitorNickname,8)|escape}
        </a>
      </div>
    </div>
    {/if}
    {/list}

<#--最新日志，群博日志--> <#--推荐日志-->

<p class="fc06">推荐过这篇日志的人：</p>
    <div>
      {list a as x}
      {if !!x}
      <div class="iblock nbw-fce nbw-f40">
        <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
        <img alt="${x.recommenderNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.recommenderName)}"/>
        </a>
        <div class="cwd thide">
          <a class="fc03 m2a" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
            ${fn(x.recommenderNickname,6)|escape}
          </a>
        </div>
      </div>
      {/if}
      {/list}
    </div>
    {if !!b&&b.length>0}
    <p  class="fc06">他们还推荐了：</p>
    <ul>
    {list b as y}
      {if !!y}
        <li class="rrb"><span class="iblock">·</span><a class="fc03 m2a" target="_blank" href="http://blog.163.com/${y.recommendBlogPermalink}/?from=blog/static/3824705820122602537677">${y.recommendBlogTitle|escape}</a></li>
      {/if}
    {/list}
    </ul>
    {/if}

<#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇，下一篇--> <#-- 热度 -->

{list a as x}
    {if !!x}
    <div class="hotItem iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
      {if x.publisherUsername==visitor.userName}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
          ${fn(x.publisherNickname,8)|escape}
        </a>
      </div>
      <a class="f-myLikeIcons hottype {if x.type==1} js-liketype{elseif x.type==2} js-reblogtype{elseif x.type==3} js-sharetype{else}{/if}" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/"> </a>
    </div>
    {/if}
    {/list}

<#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->

页脚

我的照片书 - 手机博客 - 下载LOFTER APP - 订阅此博客

miaozk2006

导航

日志

【引用】窗口处理技巧大全 vb(窗体控件)

※注册ActiveX控件的几种方法(转) 分享 ※

历史上的今天

最近读者

热度

评论

页脚

miaozk2006

导航

日志

【引用】窗口处理技巧大全 vb(窗体控件)

※注册ActiveX控件的几种方法(转) 分享※

历史上的今天

最近读者

热度

评论

页脚

※注册ActiveX控件的几种方法(转) 分享 ※