编程学习biancheng.45soft.com 本站提供了各种在线教程和资料,供大家学习与参考.
编程学习
当前位置: 主页 > VB6 > 对象和程序设计 > VB6 对象和程序设计 对象的常用方法

VB6 对象和程序设计 对象的常用方法

仅通过对象的属性对对象的控制是不够的,对象对事件的响应过程需要响应的方法进行描述。方法是面向对象的,故使用的形式为:[对象名.]方法名



1.Print方法

形式: [对象.]Print[{Spc(n)|Tab(n)}][表达式列表][;|,]

作用: 在指定的对象上输出信息

对象:窗体、图形框或打印机(Printer) ,省略对象在窗体上输出。

Spc(n)函数:插入n个空格,允许重复使用。

Tab(n)函数:从对象的左端开始右移动n列,允许重复使用。

;(分号):光标定位在上一个显示的字符后。

,(逗号):光标定位在下一个打印区的开始位置处。

无;,换行。

开始打印的位置是由对象的CurrentX和CurrentX属性决定的,缺省为打印对象的左上角0,0。


注意:要使Print方法在Form _Load事件过程中起作用,必须设置窗体的AutoRedraw属性值为True。


[例2.9] 显示倒顺三角形图形。(本题具有丢焦事件和单击事件)

对象的常用方法_对象和程序设计_VB6

简单程序代码:

Private Sub Form_Click()
    Cls()
    For i = 1 To 5
Print Tab(i); String(6 - I, “▼”);    Spc(6); String(I, “▲”)
    Next i
End Sub

复杂程序代码:

Public Sub disp()
    Dim i As Integer
    For i = 10 To 14       '目的在水平方向向右到适当位置
Print Tab(i); String(15 - i, "▼"); _
Spc(6); String(i - 9, "▲")            '▲在word中输入然后复制过来
    Next i
End Sub

Private Sub cmdclean_Click()
    Cls() '清除窗体上的字符图形
End Sub

Private Sub cmdclean_LostFocus()  '按TAB键清除命令按钮发生丢焦事件
    Form1.CurrentY = 200  '将图形输出到窗体垂直方向的适当位置
    ForeColor = RGB(0, 0, 256) '显示蓝色图案
    Call disp()
End Sub

Private Sub cmddisp_Click() '单击显示命令按钮
    ForeColor = RGB(0, 0, 0) '显示黑色图案
    Form1.CurrentY = 200  '将图形输出到窗体垂直方向的适当位置
    Call disp()
End Sub

Private Sub cmddisp_LostFocus() '显示按钮丢焦事件
    Dim i As Integer
    Form1.CurrentY = 200  '将图形输出到窗体垂直方向的适当位置
    ForeColor = RGB(0, 256, 0) '显示绿色图案
    Call disp()
End Sub

Private Sub Form_Load()
    Caption = "输出倒顺三角图形、按TAB键显示蓝、绿图案"
End Sub

考虑:若把Spc(6)换成Tab(6),效果如何? 



2. Cls方法

形式 :  [对象名.]Cls

作用 :  清除在运行时在窗体或图形框中显示的文本或图形。

注意 :  不清除在设计时的文本和图形。Cls方法使用后,CurrentX和Current Y属性值立即被设置为0。



3. Move方法

形式 : [对象名.]Move左边距离[,上边距离[,宽度[,高度]]]

作用 : 移动窗体或控件到指定的位置(左边距离[,上边距离 指被移动的控件到新位置后左上角的坐标,并可改变其大小。

对象 : 可以是除时钟、菜单外的所有控件,省略对象指窗体。

[例2.10]图形从起始点(窗体左上角)移到窗体的中心,同时图形缩小50%。

对象的常用方法_对象和程序设计_VB6

程序代码:

Dim h%, w% '定义两个全局变量,用于保存图像原始尺寸
'不停单击,图像不停缩小,最终从窗体上消失
Private Sub image1_Click()
    Image1.Height = Image1.Height / 2 '图像缩小50%
    Image1.Width = Image1.Width / 2
    Image1.Top = (Form2.ScaleHeight - Image1.Height) / 2 '放置图像到窗体中心
    Image1.Left = (Form2.ScaleWidth - Image1.Width) / 2
End Sub

'图形消失,双击窗体图像又重现原始状态
Private Sub Form_DblClick()
    Image1.Top = 0
    Image1.Left = 0
    Image1.Height = h
    Image1.Width = w
End Sub

Private Sub Form_Load()
    Form2.Caption = "Move方法例"
    Image1.Top = 0
    Image1.Left = 0
    h = Image1.Height '记下图像原始尺寸,以便双击事件使用恢复原图大小
    w = Image1.Width
    Image1.Stretch = True '使图形适应图像控件尺寸(拉伸图形)
    Image1.Picture = LoadPicture("ccc5.jpg")
End Sub



编程学习 VB6 对象和程序设计 对象的常用方法 转载请保留此行.谢谢.

VB6