miaozk2006

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

日志

关于我

miaozk2006

文章分类

Visual Basic编程常见问题及解答（2）

2010-12-18 22:43:07| 分类：编程-VB | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

如何把小图片填满 MDIForm 成为背景图？
　　以下这个范例，要：
　　1、一个 MDIForm：不必设定任何属性。
　　2、一个 Form1：不一定是 MDIChild，最好 MDIChild 为 False，但是 AutoRedraw 设成 True。
　　3、Form1 上面放一个隐藏的 PictureBox：名称为 Picture1，不必设定 Picture 属性。
　　4、一张图片的完整路径。

’将以下模组放入 MDIForm 的声明区中：
Sub TileMDIBkgd(MDIForm As Form, bkgdtiler As Form, bkgdfile As String)
If bkgdfile = "" Then Exit Sub
Dim ScWidth%, ScHeight%
ScWidth% = Screen.Width / Screen.TwipsPerPixelX
ScHeight% = Screen.Height / Screen.TwipsPerPixelY
Load bkgdtiler
bkgdtiler.Height = Screen.Height
bkgdtiler.Width = Screen.Width
bkgdtiler.ScaleMode = 3
bkgdtiler!Picture1.Top = 0
bkgdtiler!Picture1.Left = 0
bkgdtiler!Picture1.Picture = LoadPicture(bkgdfile)
bkgdtiler!Picture1.ScaleMode = 3
For n% = 0 To ScHeight% Step bkgdtiler!Picture1.ScaleHeight
For o% = 0 To ScWidth% Step bkgdtiler!Picture1.ScaleWidth
bkgdtiler.PaintPicture bkgdtiler!Picture1.Picture, o%, n%
Next o%
Next n%
MDIForm.Picture = bkgdtiler.Image
Unload bkgdtiler
End Sub

　　以下为一应用实例：

Private Sub MDIForm_Load()
TileMDIBkgd Me, Form1, "c:\windows\Tiles.bmp"
End Sub

　　关闭指定的程序
　　要做到像 Task Manager 一样，可以关闭指定的程序，方法如下：
　　在声明区中放入以下声明：(16位　改成 win31 API)

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10

　　以下之范例示范如何关闭一个视窗标题 (Caption) 为【小算盘】的程序：

Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "小算盘")
Debug.Print winHwnd
If winHwnd <> 0 Then
　RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
　If RetVal = 0 Then
　　MsgBox "Error posting message."
　End If
Else
　MsgBox "并未开启小算盘程序."
End If

　　如何隐藏及再显示鼠标
　　很简单，只用到了一个 ShowCursor API，参数也很简单，只有一个 bShow，设定值如下：

True：显示鼠标 / False：隐藏鼠标
Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long

　　如何从您的应程序中结束 Windows 重开机？
　　很多软件在 Setup 完之后都会自动关机重开机，以便让某些设定值可以生效，其实这个功能很简单，只要几行指令就可以做到了！
　　关键就是要使用 ExitWindowsEx 这个 API，这个 API 只有二个参数，第一个参数是一个 Flag，目的是要告诉 Windows 要以什么方式关机，在下面的声明中会列出可用的 Flag 常数值，至于第二个参数则是一个保留值，只要设定成 0 就可以了。
　　很重要的一点是：如果您想要让关机动作更顺利，记得要 Unload 您的程序！

’在声明区中 (Bas Module / Form Module) 加入以下声明：
Public Const EWX_LOGOFF = 0 ’这四个常数值可以并用
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
’实例：如果您想强迫关机重开机，程序码如下：
ret = ExitWindowsEx(EWX_FORCE OR EWX_REBOOT, 0)

　　如何用 VB 启动其他程序或开启各类文件？
　　要在 VB 中启动其他程序或开启各类文件，最简单的方法就是使用 Shell 函数，例如：要开启 C:\Test.txt 这个文字文件，则要启动记事本来开启这个文件案，程序如下：

Dim RetVal As Long
RetVal = Shell("C:\Windows\Notepad.exe C:\Test.txt", 3) ’3代表视窗会最大化，并具有驻点，细节请查 Help

　　以上的语法虽然很简单，但有一个风险，若是我们不知道开启文件的执行文件位置，则程序便会有错误产生，尤其一般软件在安装的时候都可以让使用者自行选择安装目录，所以执行文件的路径不能写死在程序中，要解决这个问题，就是在注册文件中找到该副文件名之启动程序位置，再放入 Shell 中。
　　但是以上的作法必须熟悉注册文件，而且必须使用 Windows API 来 Call (注册文件的存取以后会有专文来说明)，如果您对注册文件的存取及 API 的使用都很纯熟的话，当然没问题，但是有些人对于注册文件会有畏惧，这时候，您可以使用下面的方法： Shell("Start C:\Test.txt")
　　您完全不用知道这份文件的启动程序是什么？它放在什么地方？参数 Start 便会自动依照附文件名到注册文件中找到启动程序来开启该份文件案！不赖吧！
　　注一：在 Windows 95/98/NT 平台中, 什么副文件名之文件案, 该由什么执行文件来启动, 都设在关联中,
　　代码为 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Extensions
　　例如: 名称为 ".DOC" 之资料为 "C:\Progra~1\Micros~2\Office\WINWORD.EXE ^.DOC"
　　名称为 ".TXT" 之资料为 "notepad.exe ^.txt"
　　注二：使用 Start 之唯一缺点为 "会比直接指定执行文件稍为慢 0.5-1 秒钟."
如何找出 Windows 目录的正确路径？
　　有时候我们在程序中必须用到 Windows 的目录，以存取 Windows 目录下的文件，照理说，这应该是最简单的功能，前提是每个人在 Setup Windows 必须采用 Windows 的预设目录名称，也就是 C:\Windows，但是常常不是这样，有时候由於要使新旧版本共存，或者其他原因，有人会将 Windows 目录改成 c:\win95、c:\win98、Windows95 或 Windows98......
　　若是程序中必须用到 Windows 目录，要找到正确的路径，做法如下：

’在声明区中加入以下声明：
Const MAX_PATH = 260
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function GetWinPath()
　Dim strFolder As String
　Dim lngResult As Long
　strFolder = String(MAX_PATH, 0)
　lngResult = GetWindowsDirectory(strFolder, MAX_PATH)
　If lngResult <> 0 Then
　　GetWinPath = Left(strFolder, InStr(strFolder, Chr(0)) - 1)
　Else
　　GetWinPath = ""
　End If
End Function
’在程序中使用方法如下：
Private Sub Command1_Click()
　Call MsgBox("您电脑中 Windows 目录的正确路径是： " & GetWinPath, vbInformation)
End Sub

VB部分相关文章推荐：

摘自：网络整理

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_094065082095087064086094084095087094083071083086083075',
              blogTitle:'Visual Basic编程常见问题及解答（2）',
              blogAbstract:'\r\n<P style=\"TEXT-INDENT: 2em;\"  \></P\>\r\n<P style=\"TEXT-INDENT: 2em;\"  \>如何把小图片填满 MDIForm 成为背景图？<BR\>　　以下这个范例，要：<BR\>　　1、一个 MDIForm：不必设定任何属性。<BR\>　　2、一个 Form1：不一定是 MDIChild，最好 MDIChild 为 False，但是 AutoRedraw 设成 True。<BR\>　　3、Form1 上面放一个隐藏的 PictureBox：名称为 Picture1，不必设定 Picture 属性。<BR\>　　4、一张图片的完整路径。</P\>\r\n<TABLE border=\"1\" borderColor=\"#ffcc66\" width=\"90%\"  bgColor=\"#dadacf\" \>\r\n<TBODY\>\r\n<TR\>\r\n<TD\>’将以下模组放入 MDIForm 的声明区中：</TD\></TR\></TABLE\>',
              blogTag:'',
              blogUrl:'blog/static/382470582010111810437495',
              isPublished:1,
              istop:false,
              type:2,
              modifyTime:1361422257910,
              publishTime:1292683387495,
              permalink:'blog/static/382470582010111810437495',
              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/382470582010111810437495">${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

导航

日志

Visual Basic编程常见问题及解答（2）

历史上的今天

最近读者

热度

评论

页脚