易语言QQ机器人2.0源码

news/2024/7/5 2:57:12

易语言QQ机器人2.0

效果图
源码说明
领取源码
下期更新预报

效果图

在这里插入图片描述

源码说明


.程序集 Smessage, VJ_DirectUI
.程序集变量 Format, StringFormat

.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用



.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用

OnDestory ()

.子程序 OnDestory

_DestoryStringFormat (Format)

.子程序 Create, , 公开
.参数 Hwnd, 整数型, 可空
.参数 rectl, RectL
.参数 提示信息, 文本型, 可空

.如果真 (Init (Hwnd, rectl, StringA (提示信息), 假, 假) ＝ 假)
    返回 ()
.如果真结束
Format ＝ _InitStringFormat (StrFormat (#StringStyle_Bold ＋ #StringStyle_VMiddle ＋ #StringStyle_Middle, , 15, RGB_ (#白色, 180)))
ReDrawMDC ()

.子程序 OnPaint
.参数 pGraphics, 整数型

GdipSetSmoothingMode (pGraphics, #平滑模式_抗锯齿)
_FillRectRound (pGraphics, RGB_ (#黑色, 210), 0, 0, Width (), Height (), Height () ÷ 2)
_DrawString (pGraphics, Format, GetText (), RectF (5, 0, Width () － 5, Height ()))

.子程序 content, , 公开
.参数 text, 文本型
.参数 time, 整数型, 可空

Show (真)
SetText (StringA (text))
ReDraw ()
.如果真 (time ≠ 0)
    delay_ (time)
    Show (假)
.如果真结束