网页功能: 加入收藏 设为首页 网站搜索  
使用文字做为窗体的形状
发表日期:2002-09-13作者:李立华[原创] 出处:  

Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long

Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long

Dim p As Integer

Private Sub Form_Click()

  p = p + 1

  Dim mdc As Long, rgn As Long

  

  mdc = GetDC(Me.hwnd)

  'MsgBox mdc, , Picture1.hdc

  SetBkMode Me.hdc, 0

  BeginPath Me.hdc

  Me.CurrentY = 400

  Me.CurrentX = 1

  

  Me.Font.Size = 120

  Me.Print p

  EndPath mdc

  rgn = PathToRegion(Me.hdc)

  SetWindowRgn Me.hwnd, rgn, True

End Sub

Private Sub Form_DblClick()

  End

End Sub

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

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