赋值问题

Question

求助各位大侠，今天遇到一个赋值的问题，还请各位大侠帮忙解答，谢之又谢！例如：dim filesize as long
Private Sub Winsock0_DataArrival(ByVal bytesTotal As Long)
   filesize = bytesTotal 
end sub
上面的filesize 的值会随着bytesTotal 的改变而改变， 现在我要的结果是：bytesTotal 只取第一次的值，请问我该怎么做？

Answer 1

dim filesize as long
Private Sub Winsock0_DataArrival(ByVal bytesTotal As Long)
  static f as boolean
  if not f then
      filesize = bytesTotal  
      f=true
  end if
end sub

Answer 2

谢谢yachong回复，你的方法很棒！