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

  • 相关阅读:
    Codeforces Round #596 (Div. 2, based on Technocup 2020 Elimination Round 2)
    Codeforces Round #592 (Div. 2)
    日常杂谈
    vc_redist x64 或者x86下载地址
    windows terminal编译实录
    刷机,twrp,安装xposed
    博客迁移公告
    tcpdump实用笔记
    分享一篇企鹅的暑期实习生技术面经验
    visudo使用笔记
  • 原文地址:https://www.cnblogs.com/fengju/p/6336358.html
Copyright © 2011-2022 走看看