加解密和可以用滑鼠滚动看资料有新增了一种在附件file3.rar内
引用:
http://shege.mywe...t.net/内有我加密的原码是UrlEncode 的互换这篇~~~
还有这一篇:
http://tw.knowledge.yahoo.com/quest...d=1008112508751是w.j.s大大写的教学~~~
'版本:VB6.0
'******以下写在模组******
Declare Function CallWindowProc& Lib "user32" Alias "CallWindowProcA" (ByVal L&, ByVal h&, ByVal M&, ByVal W&, ByVal P&)
Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal h&, ByVal i&, ByVal N&)
Const WM_MOUSEWHEEL = &H20A
Public P&
Function WnP&(ByVal h&, ByVal M&, ByVal W&, ByVal L&)
If M = WM_MOUSEWHEEL Then
On Error Resume Next
If Form1.ActiveControl.Name = "MSFlexGrid1" Then
With Form1.MSFlexGrid1
If W < 0 Then
.TopRow = .TopRow + 1
Else
.TopRow = .TopRow - 1
End If
End With
End If
Else
WnP = CallWindowProc(P, h, M, W, L)
End If
End Function
'******以下写在表单******
Private Sub Form_Load()
P = SetWindowLong(MSFlexGrid1.hWnd, -4, AddressOf WnP)
End Sub
Private Sub Form_Unload(Cancel As Integer)
SetWindowLong MSFlexGrid1.hWnd, -4, P
End Sub
