Question

如下VB2010代码在VB6中如何实现？

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each ctr In Me.Controls
If TypeOf ctr Is Panel Then
AddHandler Click, AddressOf hshs
End If
Next
End Sub
Private Sub hshs()
MsgBox("hshs")
End Sub
End Class

Answer 1

机制不一样，处理过程肯定不一样。
单纯从VB6本身的概念来说，只能是每一个对象去添加那个对象的事件来处理，不能这样笼统的把事件通过一个过程来处理。当然，如果自己写类要实现类似的过程或基本一致的处理方法，还是可以实现的，但就会麻烦很多。建议你在跨语言的学习使用当中，不要延续你在原先使用的语言或工具的开发概念去使用，这样会事倍功半的。既然你是用VB6，就要用VB6的理念去开发，只求结果，为目的写代码，而不是去讲究这种具体的代码风格和处理机制问题。如果你想让VB6实现VB.net的效果，而且风格上也是，那么即使实现了，花的精力也会比单纯以实现最终执行效果的时间要多很多，会绕很多弯路的。这方面我经验就比较多，因为我目前已经接触过不下十几种开发语言和脚本，从Windows到Linux到Android平台，从纯软件到硬件，从应用程序到驱动再到操作系统，从高级语言到中级语言再到低级语言，甚至多种网络、工控、多媒体的控制脚本都有接触和使用，可以说经历过太多的跨语言跨平台的学习过程，最后总结出来，在一门新的语言学习过程中，最好就是什么已掌握的技术和工具都不要去想他，只管找资料看范例，按照那门新学习的语言思路、架构、通常方案去走。即使要实现什么自己用别的工具已实现的技术，也只不过是要个目标而已，别的不会多想，只管按新语言或新工具的理念先走下去，当感觉自己能够明白新工具和语言的基本开发理念和架构以及常识之后，才开始根据自己其他的知识来全面了解这个新语言和工具的特点，然后在根据自己的认识去证实一些相关理论和用法是否正确，不就之后，这门语言和工具将会很好用很顺手，这就是我的经验，希望这些对你的VB6学习有帮助。

Answer 2

直接套用那种模式是不行的，typeof 、AddHandler 这两个东西在VB6中没有对应的处理方法。
如果是要实现那种效果，可以用控件数组。说起来有点复杂，请百度一下“VB 控件数组”，应该不难找到教程。