注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

何新生 真正的英雄是含着泪还愿奔跑的人!

-----生活是美好的处处留心皆学问!

 
 
 

日志

 
 

VB6.0中图片框里同时显示图片和文字的方法  

2014-04-06 11:08:12|  分类: 技术风暴 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

        VB6.0中图片框里同时显示图片和文字的方法  

 

小小足迹,记录自己的串串的回忆,vb 学习或利用时,想要在图片中加一些可爱动人的文字,怎么加呢?自己查了查,柳暗花明又一村,彩虹一亮尽眼前。具体的小方法:



                                  VB6.0中图片框里同时显示图片和文字的方法 -  何新生 (Daniel) - 何新生 廊坊师范学院信息技术提高班十一期

 

一,加入美丽的词藻:

1.打开vb6.0标准EXE”

 在左侧工具中双击PictureBox控件,就创建了一个图片框;

挪动Form1Picture1到合适的位置,把Picture1调节成合适大小;

2.右击Picture1,在弹出的下拉菜单中选择属性窗口,在名为“Picture”的属性上点其后的“…”按钮,在电脑中选择一个图片;

3.Form1空白处双击鼠标左键,弹出代码编辑窗口,在右上角选择“Activate”,“Private Sub Form_Activate()”“End Sub”之间输入以下代码:

Picture1.Print Tab(2); "   "

Picture1.Print Tab(2); "   "

Picture1.Print Tab(2); "   "

Picture1.Print Tab(2); "   "

Picture1.Print Tab(2); "   "

Picture1.Print Tab(2); "   "

Picture1.Print Tab(2); "   "

Picture1.Print Tab(2); "   "

Picture1.Print Tab(2); "图片说明信息"

这里是先输出8行空串,然后输出"图片说明信息",读者可根据图片大小灵活调整输出的空串行数,以便恰好在图片下方显示"图片说明信息"哦。

事实上,读者也可以将"图片说明信息"覆盖图片显示,还可以将"图片说明信息"显示在图片右侧或是下侧;

4.单击启动按钮;

恭喜你,运行成功。

 


二.添加炫目的水印文字

 

比如:1.利用模块,直接调用,For example AddTxtToPicAndSave(Picture as PictureBox,strText as string, x as long,y as long,SFile as string,SaveType as integer),其中 Picture为图片框控件名称,strText为待添加上去的文字,xy分别为待添加上去的文字在图片中的左上角坐标, SFile 为保存为的新图像文件名,SaveType 为保存的图像类型,比如jgpbmp等。
2.
是否需要透明度
3.
文字的字体、颜色、字号、字形等通过其他控件来指定和调节
4.
保存为jpg格式的,所得的新图片中,添加上去的文字是清晰的,不能模糊;直接保存为bmp格式当然是清晰的:
Private Sub Command1_Click()
AddTxtToPicAndSave Picture1, "
文字水印", 100, 200, "c:\1.bmp", 0
End Sub

Private Sub AddTxtToPicAndSave(Picture As PictureBox, strText As String, x As Long, y As Long, SFile As String, SaveType As Integer)
With Picture
  .AutoRedraw = True
  .CurrentX = x
  .CurrentY = y
  .Font = "
黑体"
  .FontBold = True
  .ForeColor = vbRed
  .FontSize = 22
  Picture.Print strText
 
  Select Case SaveType
    Case 0  'BMP
      SavePicture .Image, SFile
    Case 1
      '
需要第三方控件来保存为其它图像格式
  End Select
End With
End Sub
 

5.单击启动按钮;

再次恭喜你,运行成功!

 

 
 

 

 

  评论这张
 
阅读(585)| 评论(27)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017