网页功能: 加入收藏 设为首页 网站搜索  
VB实现立体文字
发表日期:2003-04-18作者:[] 出处:  

为了美化软件的界面,程序员都会做些特殊的显示效果,其 中文字特效也是常用的效果。例如,在安装程序运行界面上,左上角通常都会以阴影字效果显示软件的标题,使标题更醒目、让人耳目一新的感觉。为让人记忆深刻,一些软件的主窗口(如一些数据库管理系统)的标题就常以特大立体字方式显示,效果都不错。

  本例主要通过Windows API函数DrawState()来实现。

  Private Const DST_TEXT = &&H1

  Private Const DSS_DISABLED = &&H20

  Private Declare Function DrawState Lib "user32" Alias "DrawStateA" (ByVal hDC As Long, ByVal hBrush As Long, ByVal lpDrawStateProc As Long, ByVal lParam As String, ByVal wParam As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal n3 As Long, ByVal n4 As Long, ByVal un As Long) As Long

  Private Sub Form_Load()

  Dim NewStr As String

  FontSize = 24 '设置窗口字体

  NewStr = "欢迎收看本节目"

  DrawState Me.hDC, 0, 0, NewStr, LenB(StrConv(NewStr, vbFromUnicode)), 10, 80, 0, 0, DST_TEXT Or DSS_DISABLED '显示该字符

  AutoRedraw = True

  End Sub

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 VB实现立体文字
本类热点文章
  用VB制作软键盘
  让messagebox自动消失
  制作半透明窗体
  给Listview做个背景
  VB程序实现WindowsXP效果的界面
  VB打造超酷个性化菜单
  用VB实现“百叶窗”的图形特效
  用VB绘制正弦动画曲线
  获取所有打印纸张格式的方法
  如何使Form的背景图随Form大小改变
  VB实现立体文字
  使用文字做为窗体的形状
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2018 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00219