加解密和可以用滑鼠滾動看資料有新增了一種在附件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
