Vb小技巧及类对象的小技巧.doc

这部分是参照 《VB编程小技巧》 --------------------------------------------------------------------------------------------------------------------- 快捷键?--?找寻?Function/Subroutine当您的?APP?愈来愈大时，或是您要维护别人开发的大系统时，是否曾经有过一种情形，程序中?call?了某一个?Function/Subroutine，您要找寻这个?Function/Subroutine，除了一个一个?Module?找之外，大部份的人都是使用【编辑功能表】的【搜寻】功能。?其实您可以使用?【Shift?+?F2】快捷键！很简单，方法如下：只要将鼠标停留在程序中该?Function/Subroutine?Name?上，再使用【Shift?+?F2】快捷键即可！在?Form_Load?中加入以下程序码Sub?Form_Load()Form1.AutoRedraw?=?True使?Form?物件的自动重绘有效Form1.DrawStyle?=?6直线的样式为内实线?(6-vbInsideSolid)Form1.DrawMode?=?13copy?Pen-由?ForeColor?属性指定的颜色。(13-vbCopyPen)Form1.DrawWidth?=?2输出的线宽为?2?像素?(Pixel)为绘图或列印建立一自订的座标比例尺图形像素为显示器或印表机解析度的最小单位Form1.ScaleMode?=?3设定物件座标的量测单位为像素?(3-VbPixels)Form1.ScaleHeight?=?(256?*?2)设定垂直量测单位值为?512For?I?=?0?To?255Form1.Line?(0,?Y)-(Form1.Width,?Y?+?2),?RGB(0,?0,?I),?BFY?=?Y?+?2Next?IRGB(red,?green,?blue)B?:?使一方块用一指定方块对角的座标画出F?:?指定此方块系以用来画方块的色彩来加以填满?(有B才可用F)End?SubVB?32-bits?之后的版本，无论用?Len?或是?LenB?都无法正确的计算中英文混合字串的长度，有没有解决的办法？Lenb(Strconv(abcd中英文混合字efg,?vbFromUnicode))?我想知道某一部电脑出现在?网?时的名称，也就是电脑名称，该如何做??请在声明区中放入以下声明?:Private?Declare?Function?GetComputerName?_Lib?kernel32?Alias?GetComputerNameA?_(ByVal?lpBuffer?As?String,?nSize?As?Long)?As?LongPublic?Function?ComputerName()?As?StringDim?cn?As?StringDim?ls?As?LongDim?res?As?Longcn?=?String(1024,?0)ls?=?1024res?=?GetComputerName(cn,?ls)If?res??0?ThenComputerName?=?Mid(cn,?1,?InStr(cn,?Chr(0))?-?1)ElseComputerName?=?End?IfEnd?Function我想知道某一部电脑目前的?Login?User?是谁，该如何做??请在声明区中放入以下声明?:Private?Declare?Function?GetUserName?Lib?_advapi32.dll?Alias?GetUserNameA?_(ByVal?lpBuffer?As?String,?nSize?As?Long)?As?LongPublic?Function?UserName()?As?StringDim?cn?As?StringDim?ls?As?LongDim?res?As?Longcn?=?String(1024,?0)ls?=?1024res?=?GetUserName(cn,?ls)If?res??0?ThenUserName?=?Mid(cn,?1,?InStr(cn,?Chr(0))?-?1)ElseUserName?=?End?IfEnd?Function 我可以将电脑名称改成?LoginUser?吗?可以的,?请在声明区中放入以下声明?:?Private?Declare?Function?SetComputerName?_