comdll.bas

来自「葡萄木马防火墙」· BAS 代码 · 共 67 行

Attribute VB_Name = "comdll"
Public dllname As String
Public dlltype(1 To 300) As ShowText
Public onUpsj As Boolean
Public onDownsj As Boolean
Public dtc As Integer
Public dtl As Integer
Public Sub drawTable(pform As Form, X As Integer, Y As Integer, he As Integer, wi As Integer, pconst As Integer)
Dim tmpy As Integer
Dim comy As Integer
For i = 1 To pconst
tmpy = Y + (i - 1) * he
comy = comy + tmpy
pDList pform, X, tmpy, he + 1, wi, RGB(255, 255, 255), RGB(48, 127, 201)
Dim tmp2s As String * 256
tmp2s = dlltype(i + tihuan1.tvs.value).text

If Len(tmp2s) > 50 Then
tihuan1.ths.Max = Len(tmp2s)
tihuan1.ths.Visible = True
'Form1.Caption = Len(tmp2s)
st = Mid(tmp2s, Int(tihuan1.ths.value + 1), 50)
Else
st = Mid(tmp2s, 1, 50)
tihuan1.ths.Visible = False
End If
If i + tihuan1.tvs.value <= dtc Then
   pDrawString pform.hwnd, X + 2, tmpy + 2, st, dlltype(i + tihuan1.tvs.value).color
End If
Next i
 Exit Sub
'--------画进度条
If pconst < 5 Then Exit Sub
pDList pform, wi + X - 1, Y, pconst * 20 + 1, 20, RGB(255, 255, 255), RGB(48, 127, 201)
'------上三角
If onUpsj = True Then
pDList pform, wi + X - 1, Y, 21, 20, RGB(48, 127, 201), RGB(255, 255, 255)
GoTo dsj:
Else
pDList pform, wi + X - 1, Y, 21, 20, RGB(255, 255, 255), RGB(48, 127, 201)
End If
'------下三角
If onDownsj = True Then
pDList pform, wi + X - 1, Y + (pconst - 1) * 20, 21, 20, RGB(48, 127, 201), RGB(255, 255, 255)
GoTo dsj:
Else
pDList pform, wi + X - 1, Y + (pconst - 1) * 20, 21, 20, RGB(255, 255, 255), RGB(48, 127, 201)

End If
'-------------------------------------------
dsj:
drawSJ pform, wi + X - 1 + 2, Y + 5, 16, 16, False
drawSJ pform, wi + X - 1 + 2, Y + (pconst - 1) * 20 + 5, 16, 16, True
End Sub

Public Sub drawSJ(pform As Form, X As Integer, Y As Integer, he As Integer, wi As Integer, isz As Boolean)
If isz = True Then
For i = 1 To he / 2
pDrawLine pform, X + i, Y + i, wi - i * 2, 0
Next i
Else
For i = 1 To he / 2
pDrawLine pform, X + i, Y + he / 2 - i, wi - i * 2, 0
Next i
End If
End Sub