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

App 对象

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

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的打印机为默认打印机。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!