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

  • 相关阅读:
    chrom插件开发
    实验7
    第六次实验报告
    c++第五次实验报告
    c++第四次实验报告
    c++第三次实验报告
    C++第二次实验
    c++第一次作业
    HttpWebRequest调用webservice
    树状组织结构-Tree
  • 原文地址:https://www.cnblogs.com/fengju/p/6336358.html
Copyright © 2011-2022 走看看