zoukankan      html  css  js  c++  java
  • 我想死你了

    在窗体上镂空文字: 我想死你了

    Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
    Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
    Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long
    Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount 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 DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
    Private Declare Function StretchBlt& Lib "gdi32" (ByVal hdc&, ByVal x&, ByVal y&, ByVal nWidth&, ByVal nHeight&, ByVal hSrcDC&, ByVal XSrc&, ByVal YSrc&, ByVal nSrcWidth&, ByVal nSrcHeight&, ByVal dwRop&)
    Private Const SRCCOPY = &HCC0020

    Private Sub Form_Load()
        Dim hRgn As Long
      Me.WindowState = 2
    Me.FontName = "arial"
     Me.FontSize = 110
     Me.BackColor = vbRed
    BeginPath Me.hdc
        TextOut Me.hdc, 0, 0, "我想死你了!", 12

    EndPath Me.hdc
        hRgn = PathToRegion(Me.hdc)
        SetWindowRgn Me.hWnd, hRgn, True
        DeleteObject hRgn
         StretchBlt Me.hdc, Me.ScaleWidth, 0, -Me.ScaleWidth, Me.ScaleHeight / 2, Me.hdc, 0, 0, Me.ScaleWidth, Me.ScaleHeight / 2, SRCCOPY
    End Sub

  • 相关阅读:
    Using Change Management and Change Control Within a Project
    swift3.0 label改变行间距
    swift清理缓存
    Alamofire的get请求,post请求,以及上传字典
    swift跳转时隐藏tabbar,跳回时显示
    swift获取当前的Version
    swift回收键盘
    OC中常用的设计模式
    关于iOS多线程
    理解 : UDID、UUID、IDFA、IDFV
  • 原文地址:https://www.cnblogs.com/fengju/p/6336358.html
Copyright © 2011-2022 走看看