在图片上放置文字


【实例说明】
    怎样才能在图片上放置文字呢?本例介绍一个简单的方法。运行程序,单击“插入文字”按钮,图片上便显示“欢迎来到『VB网』”字样;单击“”按钮,图片上的文字将被清除。

【编程思路】
    为了在窗体或图片框上显示文本,应使用Print方法,将文字拷贝到窗体或图片上。为了把输出文本发送到打印机上,应使用Printer对象上的Print方法。下面是Print的语法及参数:
    [object.]Print[outputlist][{;|,}]
    参数:object参数是可选项;如果被省略,则Print方法将应用当前窗体。
    例如:
    把消息打印到窗体:Me.Print"您好!"
    把消息打印到Picture1的图片框:Picture1.Print"您好!"

【设计步骤】
    1.新建一个标准工程,创建一个新窗体,默认名为Form1。
    2.在Form1窗体中放置一个图片框,三个Command控件。
    3.在源程序同一级目录下放一个"Back.bmp"文件。

    4.源程序  [素材源程序下载]


'插入文字
Private Sub Command1_Click()
        Me.Picture1.FontName = "宋体"
        Me.Picture1.FontSize = "20"
        Me.Picture1.Print Space(3) & "欢迎来到『VB网』" & vbCrLf & "http://vbw.icpcn.com"
End Sub

'清除文字
Private Sub Command2_Click()
        Me.Picture1.Cls
End Sub

'退出
Private Sub Command3_Click()
        Unload Me
End Sub

Private Sub Form_Load()
        Me.Picture1.Picture = LoadPicture(App.Path & "\back.bmp")
End Sub