moddisplay.bas

来自「使用vb寫出完美網頁遊戲外掛的原始碼分享」· BAS 代码 · 共 10 行

Attribute VB_Name = "ModDisplay"
Option Explicit
Public Sub Chat(Stri As String)
    DoColor frmChat.rtbChat, Chr(3) & "14[" & Chr(3) & "15" & Time & Chr(3) & "14] " & Stri
End Sub

Public Sub Stat(Stri As String)
    DoColor frmStat.rtbStat, Chr(3) & "14[" & Chr(3) & "15" & Time & Chr(3) & "14] " & Stri
End Sub