你的思路完全正确
目前成都创新互联已为上千多家的企业提供了网站建设、域名、网络空间、网站运营、企业网站设计、西固网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
Dim curpos As Integer
curpos = BindingSource1.Position
BindingSource1.Position = curpos
Private Sub Form_Load()
Me.Show
Text1.SetFocus
End Sub
注:要使得窗体先显示出来,再设置Text1的焦点,不然会出错的。
你这个是操作多个窗口还是操作单个窗口
单个窗口的话,没必要创建多个对象,1个就够了。
如果特殊情况下需要创建多个大漠插件的对象,承载对象的变量可设置成数组型,或者可更换成模块去创建多个对象
我以前用过:如图,这个模块可以实现,需要的话精益论坛上有 搜索下
代码的写法如下:
1、先创建个全局变量的对象数组
2、如下