VB编程的必备技巧(2)

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:54 来源：互联网

本文章共7069字，分5页，当前第2页，快速翻页：

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

本文提示：《VB编程的必备技巧(2)》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

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

(x1 〈=.Left ＋ Width) And (x2 〉= .Left ＋ Width) And _
(y1 〈= .Top) And (y2 〉= .Top) Or _
(x1 〈= .Left) And (x2 〉= Left) And _
(y1 〈= .Top ＋ Height) And (y2 〉= .Top ＋ Height) Or _
(x1 〈= . Left ＋ Width) And (x2 〉= .Left ＋ Width) And _
(y1 〈= .Top ＋ Height) And (y2 〉= .Top ＋ Height) Then
Set GetControl = Control
Exit Function
End If End With
Next
Set GetControl = Nothing
End Function
---- 注：(x1, y1)和(x2, y2)分别为选定矩形区域的左上角和右下角点的坐标值。
---- 该程序通过计算窗体上所有控件的四个角的位置来判断控件是否与选定区域相交，并返回相交的控件。

---- 四.获取和修改计算机名字的方法

---- 在Win 95/98/2000中，计算机有一个名字。运行regedit，在"HKEY－LOCAL－MACHINE\System\CurrentControlSetcontrol\ComputerName\ComputerName"中将发现"ComputerName"="Default"( 或其它字符串)，在regedit下可以查看和修改这个名字。我们还可在程序中通过Win32API提供的GetComputerName、SetComputerName这两个函数来查看和修改计算机的名字。下面以VB为例来探讨如何编写一个可查看和修改计算机名字的程序。

---- 1.插入一个新模块，在其中添加如下代码：

′声明 GetComputerName
Declare Function GetComputerName Lib″kernel 32″Alias″
GetComputerNameA″(Byval lpBuffer As
String,nSize As Long)As Long
′声明 SetComputerName
Declare Function SetComputerName Lib″kernel 32″Alias ″
SetComputerNameA″(Byval lp ComputerName As String)As Long
′定义一个获取计算机名字的函数
Public Function GetCName (CName) As Boolean
Dim sComputerName As String ＇计算机的名字
Dim lComputerName As Long
＇计算机名字的长度
Dim lResult As Long
＇GetComputerName的返回值
Dim RV As Boolean
′GetCName返回值，若为TRUE则表示操作成功
lComputerNameLen=256
sComputerName=Space (lComputerNameLen)
lResult=GetComputerName (sComputerName,lCompputerNameLen)
If lResult 〈〉0 Then Cname=Left＄ (sComputerName,lComputerNameLen)
RV=True
Else RV=False
End If
GetCName=RV
End Function
′定义一个修改计算机名字的函数
Public Function SetCName (CName ) As Boolean
Dim lResult As Long
Dim RV As Boolean
lResult=SetComputerName (CName)
If lResult 〈〉0 Then
RV=True′修改成功
Else RV=False
End If
SetCName=RV
End Function

---- 2.在窗体中添加一命令按钮Command1，双击该按钮并在其中添加如下代码：
Sub Command1－Click ()
DIM CN AS String
x=GetCName (CN)
Print ″This Computer Name is :″,CN
CN=″MYCOMPUTER″
x=SetCName (CN )
Print ″Now the Computer name is :″,CN
End Sub

---- OK, 保存上述设置和代码，然后按F5运行该程序。
---- 五.给VB控件PictureBox加滚动条的方法

---- 用过PictureBox控件的朋友都知道，在其中我们可以加载图片。当图片不是很大时，可能还不会有什么问题，但是，如果所加载的图片比PictureBox大时，我们只能看到图片的一部分，那么，怎么才能看到其他的部分呢？为了解决上述问题，我们可以在图片框(PictureBox)内部加上水平和垂直滚动条，利用滚动条来显示看不到的图片。具体方法如下：

----首先给工程(Project)添加一个OCX控件，单击选单上的工程(Project)选单项，在弹出的下拉选单中点击组件(Components)，选中其中的"Microsoft Common Dialog Control 5.0"，确定完成加载工作；然后画一个PictureBox，采用VB提供的默认名字Picture1, 再在Picture1上面画一个PictureBox，默认名字为Picture2，注意别忘了设置：Picture2.AutoSize=TRUE；接着，加上水平和垂直滚动条，默认名字分别为：HScroll1，VScroll1；以后加载图形到Picture2上，就可以了；最后，在窗体中引入其它控件：一个按钮（Command），默认名为Command1和一个"Microsoft Common Dialog Control"，默认名为CommonDialog1。具体VB代码如下：

本文章更多内容：<<上一页 - 1 - 2 - 3 - 4 - 5 - 下一页>>

本页地址