【实例说明】 怎样才能在图片上放置文字呢?本例介绍一个简单的方法。运行程序,单击“插入文字”按钮,图片上便显示“欢迎来到『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
|