VB备忘录（9） 常用的系统对象

App 对象

App.Path    应用程序路径，不含“\”和程序名，假定程序为：D:\1\2\ak.exe ，则返回 D:\1\2

App.hInstance  返回应用程序句柄。

App.ThreadID   返回应用程序线程ID。

ClipBoard对象

Clipboard.clear   清除剪贴板

Clipboard.SetText  Text,Format   把文本放入剪贴板。format格式（TXT,RTF）可省，默认TXT

Clipboard.GetText (format)    从剪贴板返回指定格式的文本，format可省，默认TXT。如果与指定格式不符，将返回空串。

Clipboard.SetData   Picture，format  以指定图片的格式把图片放入剪贴板。format可省，剪贴板自适应格式

Clipboard.GetData(format)      以指定格式返回图片，format可省，剪贴板自动适应格式。若与指定格式不符，返回空

Clipboard.GetFormat(format)  判断剪贴板格式。其中format不可省，若与指定格式不符，返回假，否则真。

             格式有：  vbCFText,    vbCFBitmap等

Private Sub Form_Click()
    Clipboard.Clear
    Clipboard.SetData LoadPicture("D:\s1.jpg")
    Form1.Picture = Clipboard.GetData() '返回图片赋值给背景
End Sub

Private Sub Command1_Click()
    Clipboard.Clear
    Clipboard.SetText "白话魔法师"
    If Clipboard.GetFormat(vbCFText) Then '判断剪贴板中是否为文本格式，为真
        Text1.Text = Clipboard.GetText
    End If
End Sub

有时可以复制具有焦点的文本，尽管没有对准，同时还有一个选择文本的复制、粘贴等。

用到一个对象Screen，以及ActiveControl。如下：

Private Sub mnuCopy_Click()
   Clipboard.Clear
   Clipboard.SetText Screen.ActiveControl.SelText
End Sub

Private Sub mnuPaste_Click()
   Screen.ActiveControl.SelText = Clipboard.GetText()
End Sub

Screen对象

根据窗体或控件的布局来操作。Screen指整个电脑屏幕。

Screen.ActiveForm  屏幕上当前的窗体(激活）

Screen.ActiveControl   当前获得焦点的控件 （上面例子）

Screen.MouserPointer  鼠标指针（可设置）

Height,Width    屏幕的高宽（以缇为单位）

Screen.Fonts    屏幕可显示的字体或可打印的字体

Debug对象

对于调试用。只有两个方法：

Debug.Print    espression   在立即窗体上显示expression

debug.Assert   expression   表达式为假时，程序挂起。相当于模式窗体中，让后面的代码静止不执行。

注意：  这只是在设计调试中用。若用在已经编译的应用程序中：

              print不会出效果，但是会执行后面表达值（如果有函数等）

              assert也不会出效果，而且后面表达式的值都不会计算

Printer打印对象

把文字或图像发送到打印机上打印。

printer.print  str     ' 在默认打印机上打印

Printers打印机集合

多个打印机（从0到Printers.count-1）

Set Pointer=Pointers(3)     ‘ 设置索引3的打印机为默认打印机。