'例：
public class form1
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
init(me)
end sub
Public Sub PictureBoxClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
end sub
end class
public class form2
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
init(me)
end sub
Public Sub PictureBoxClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
end sub
end class
'等等，有很多form要初始化。
model form_init
public sub init(byval form as object)
For Each pic In form.Controls.OfType(Of PictureBox)()
Dim picture As PictureBox
picture = pic
AddHandler picture.Click, AddressOf form.PictureBoxClick
Next
end sub
end model
'要达到的效果是，传递一个form1变量，这是类变量。动态根据我是from1还是from11，form21等等，为变量赋值。
'这个传递过来的变量是class类型的，不知道如何接受，像我上面的程序是有问题的。
'提示：错误“PictureBoxClick”不是“System.Windows.Forms.Form”的成员。
-
等级
本版专家分：77结帖率 100% -
展开阅读全文
-
等级
本版专家分：129919勋章
-
-
红花
2017年3月 VB大版内专家分月排行榜第一
2016年12月 VB大版内专家分月排行榜第一
2016年5月 VB大版内专家分月排行榜第一
2016年1月 VB大版内专家分月排行榜第一
2015年12月 VB大版内专家分月排行榜第一
2015年11月 VB大版内专家分月排行榜第一
2015年10月 MS-SQL Server大版内专家分月排行榜第一
2015年9月 VB大版内专家分月排行榜第一
2015年9月 MS-SQL Server大版内专家分月排行榜第一
2015年8月 VB大版内专家分月排行榜第一
2015年8月 MS-SQL Server大版内专家分月排行榜第一
2015年7月 VB大版内专家分月排行榜第一
2015年7月 MS-SQL Server大版内专家分月排行榜第一
2015年6月 VB大版内专家分月排行榜第一
2015年5月 VB大版内专家分月排行榜第一
2015年4月 VB大版内专家分月排行榜第一
2015年3月 VB大版内专家分月排行榜第一
2015年2月 VB大版内专家分月排行榜第一
2014年11月 VB大版内专家分月排行榜第一
2014年9月 VB大版内专家分月排行榜第一
2014年8月 VB大版内专家分月排行榜第一
2014年7月 VB大版内专家分月排行榜第一
2013年7月 VB大版内专家分月排行榜第一
2013年4月 VB大版内专家分月排行榜第一
2010年2月 VB大版内专家分月排行榜第一
2010年1月 VB大版内专家分月排行榜第一
2009年11月 VB大版内专家分月排行榜第一
2009年9月 VB大版内专家分月排行榜第一
2009年8月 VB大版内专家分月排行榜第一
2009年7月 VB大版内专家分月排行榜第一
2009年4月 VB大版内专家分月排行榜第一
2009年3月 VB大版内专家分月排行榜第一
2009年2月 VB大版内专家分月排行榜第一
2009年1月 VB大版内专家分月排行榜第一
2008年6月 VB大版内专家分月排行榜第一
2007年12月 VB大版内专家分月排行榜第一
2007年10月 VB大版内专家分月排行榜第一
2007年9月 VB大版内专家分月排行榜第一
-
-
黄花
2016年11月 VB大版内专家分月排行榜第二
2016年1月 MS-SQL Server大版内专家分月排行榜第二
2015年12月 MS-SQL Server大版内专家分月排行榜第二
2015年11月 MS-SQL Server大版内专家分月排行榜第二
2015年5月 MS-SQL Server大版内专家分月排行榜第二
2015年4月 MS-SQL Server大版内专家分月排行榜第二
2015年1月 VB大版内专家分月排行榜第二
2015年1月 MS-SQL Server大版内专家分月排行榜第二
2014年12月 VB大版内专家分月排行榜第二
2014年11月 MS-SQL Server大版内专家分月排行榜第二
2014年9月 MS-SQL Server大版内专家分月排行榜第二
2013年8月 VB大版内专家分月排行榜第二
2013年6月 VB大版内专家分月排行榜第二
2013年5月 VB大版内专家分月排行榜第二
2010年4月 VB大版内专家分月排行榜第二
2010年3月 VB大版内专家分月排行榜第二
2008年12月 VB大版内专家分月排行榜第二
2008年8月 VB大版内专家分月排行榜第二
2008年7月 VB大版内专家分月排行榜第二
2007年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2017年1月 MS-SQL Server大版内专家分月排行榜第三
2015年6月 MS-SQL Server大版内专家分月排行榜第三
2015年3月 MS-SQL Server大版内专家分月排行榜第三
2015年2月 MS-SQL Server大版内专家分月排行榜第三
2014年12月 MS-SQL Server大版内专家分月排行榜第三
2014年10月 VB大版内专家分月排行榜第三
2014年10月 MS-SQL Server大版内专家分月排行榜第三
2014年8月 MS-SQL Server大版内专家分月排行榜第三
2013年9月 VB大版内专家分月排行榜第三
2013年3月 VB大版内专家分月排行榜第三
2012年5月 VB大版内专家分月排行榜第三
2012年4月 VB大版内专家分月排行榜第三
2010年10月 VB大版内专家分月排行榜第三
2010年8月 VB大版内专家分月排行榜第三
2010年7月 VB大版内专家分月排行榜第三
2009年5月 VB大版内专家分月排行榜第三
2008年9月 VB大版内专家分月排行榜第三
2008年4月 VB大版内专家分月排行榜第三
2008年2月 VB大版内专家分月排行榜第三
-
-
VB.Net 的思想就是:
给 Form1 .. Form21 做一个基类 PictureFormBase，所有窗体都继承它；
Init 函数中的参数就是 PictureFormBase 类型。
-
等级
本版专家分：77
-
楼上垃圾，我自己解决了。
- VB.NET是怎样做到的（七）——可选参数和按名传递
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
- VB.NET多线程编程参数的传递以及返回值的获取
下面的例子是使用多线程同时弹出4个msgbox ———————————————— 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Imports System.... S
- VB.NET 委托处理 传递参数
代码ImportsWireless.EntitiesImportsWireless.Printer.RemotingConnectionImportsWireless.CommonImportsDsdt.CasinoManager.BusinessRuleImportsHNA.PubClass.DishModelNamespaceDishInterfacePublicDele...
- vb.net多线程传递参数通过class类.rar
vb.net多线程传递参数,通过class类。可以实现超线程调用sub时，参数和变量的传递 vb.net多线程传递参数,通过class类。可以实现超线程调用sub时，参数和变量的传递
- vb.net多线程通过Deletgrate委托调用传递参数.rar
委托调用多线程传递参数vb.net vb.net多线程通过Deletgrate委托调用传递参数 实现多线程调用中变量和参数的传入和传出。 原创代码，亲测有效！
- Vb.Net Sender和e事件参数
In VB6, an event subroutine, like Button1_Click, was much less complicated because the system called the subroutine strictly by name. If a Button1_Click event existed, the system called it. It's dire....
- vb.net ReportViewer使用：给报表动态传参数
这个题目写起来有些长，但我希望稍简单一点介绍。首先，在报表中，选择参数，添加一个参数，可以选择参数的类型为字符串，整型，浮点型等。...在编程环境中，就要给他们传值了，vb.net的方式如下：Dim _rkdh,...
- VB.NET学习笔记：窗体显示及互相传值
很多文章里都说在Visaul Basic .NET中显示窗体之前必须先实例化，经测试，也可以与旧Visual Basic 6.0 一样不经实例化直接Form1.Show显示窗体。 一、正确显示窗体 新建一个窗体应用程序，再添加一个模块和一个窗体...
- VB.NET学习笔记：再谈WinForm窗体间相互传值(单值、多值)——属性、委托和事件
在《VB.NET学习笔记：窗体显示及互相传值》一文中，通过默认的窗体实例、保持窗体引用的全局性或在窗体构造函数中把窗体指针作为参数传递，这些方法都是直接操作窗体中的任何控件来读取和改变窗体内的信息。...
- VB.NET 教程_01_基础语法
VB.Net是一种简单，现代，面向对象的计算机编程语言，由微软开发，将.NET Framework和公共语言运行库的强大功能与作为Visual Basic标志的生产力优势相结合。 Visual Basic .NET（VB.NET）是在.NET Framework上...
- VB.net中，给类添加事件
定义一个全新的类 Public Class TestEvent Public Event testEvent_Name(ByVal testString As String) '定义一个事件 ，差不多像一个函数声明，也想一个委托声明 Public Sub testSub(ByVal testString1 As ...
- [VB.NET Tips]ParamArray参数数组
ParamArray参数数组，可以理解为传递给方法的多余的参数全都存放在这个数组中。 ParamArray只能是ByVal按值传递，不能是可选参数，而且只能做为方法定义的最后一个参数。 非常类似于Python方法中的*args参数。 上...
- VB.net程序处理命令行参数的例子
很多情况下需要支持命令行运行，但是VB中的主函数并没有直接支持命令行参数，获取方法有些特别。 今天用vb.net做了个，记录在这里以备日后查找。...这里主要是看如何获取VB.net程序的命令行参数。 如有高人精通命令行
- vb.net 串口列表_VB.NET中的有用的通用列表
vb.net 串口列表 Generics extend the power and flexibility of VB.NET in a lot of areas, but you get a bigger performance benefit and more programming options in the generic List object [List(Of T)] ...
- vb.net调用vc动态库时传递数组参数应注意的问题
vb.net调用vc写的dll的时候，需要从vb.net传递数组到dll函数，在vc dll中首先malloc了空间，然后将数组参数指针指向了分配的地址，然后完成了算法，最后free，结果编译链接都无问题，但在运行的时候报错了。...
- vb.net类的封装，继承，多态，抽象之一（转）
封装就是把各种方法和变量合并到一个类，用这个类代表某个对象为完成一定的任务所能保存的范围以及它能执行的操作。继承就是根据现有类的方法和成员变量生成新的类的功能多态就是对象随着程序执行而使其形式发生改变...
- vb.net类型转换_将VB6转换为VB.NET
vb.net类型转换1.0 - Introduction1.0-简介 Converting Visual Basic 6.0 (VB6) to Visual Basic 2008+ (VB.NET). 将Visual Basic 6.0（VB6）转换为Visual Basic 2008+（VB.NET）。 If e...
- 使用vb.net开发简单的socket通信
使用vb.net开发简单的socket通信（环境是visual stdio 2019）说明参考文章实现功能 说明 之前用vb6编程时都是用的winsock控件进行网络通信，现在研究.net平台发现网上说socket更好用，不过在网上一直都没有找到合适...
- vb.NET绘图
大家通过对VB.NET的学习，可以知道，它是一种非常实用的开发语言。并且在绘图方面体现了非常大的作用。我们可以通过本文先了解一下VB.NET绘图的一些基本知识，初步掌握这一方面的应用技巧。VB.NET绘图1. 创建...
- vb.net form New 带参数构造函数
Public Class FormProjectInfo Private mf_form As New Formmain Public Sub New(ByVal form As Formmain) MyBase.New() InitializeComponent() Me.mf_form = form End S
- vb.net使用hook技术之键盘鼠标钩子
具体请百度，这里主要讲解如何用vb.net做全局键盘鼠标钩子。 Hook的大致过程 我看了微软和各位大佬博客关于SetWindowsHookEx的讲解，大致的过程就是，将应用程序的定义的钩子安装 钩子链中，...
- vb.net 用户自定义类型详解
用户自定义类型在vb.net中称为“structure”(结构)，包含有一个或多个不同种类的数据类型，尽管结构中的数据可以单独被访问，但是这些数据仍被认为是一个集合。 在vb 6.0中用户自定义类型的关键字是“Type”，之...
- 在vb.net下如何操作已经打开的活动excel文件
在vb.net下如何操作已经打开的活动excel文件前言一、原理是什么二、使用步骤1.引入库2.读入数据总结 前言 用VB.NET操作excel的时候发现,如果用excel=new Microsoft.Office.Interop.Excel.Application 这种方法无法...
- VB.net学习笔记（二十三）再识委托
一、调用静态方法 1、声明 ... Delegate Sub OneArgSub{ByVal msg As String) '带一个参数，且无返回类型 定义了一个委托的类。后台创建了一个名为OneArgSub的新类，这个类是从System.Delegate类继承
- vb.net 调用c++dll的 字符串传递问题
公司要使用vb.net调用科大讯飞的语音合成接口一开始是自己写tts_sample的Demo，但是由于c++与vb.net的数据结构不一样，所以放弃了自定义Demo这个方法于是干脆拿那个demo做成dll文件调用接口就行 其实我的这个dll是...
- vb.net 使用windows API方法
vb.net 使用windows API方法 2017年02月08日 09:13:41开心an阅读数 2393 首先确定使用的API所在的动态库，例：gettickcount 函数 在kerner32.dll中 第二步，声明到VB.net中 。有二种方法 2.1 <System....
- 【VB.NET】使用SerialPort进行串口通信
在使用VB.NET作为开发语言的时候，在针对串口进行操作的时候，可以考虑使用微软提供的官方接口SerialPort进行开发。首先是导入相关头文件。 Imports System.IO.Ports 之后定义相关串口操作对象，并对其先关参数...
- VB.NET学习笔记：ADO.NET操作ACCESS数据库——ADO.NET数据访问接口
一、ADO.NET概述 Ado.net基于XML和离线计算模型。 ADO.net的两个核心组件：.Net数据提供程序、DataSet。 .net数据提供程序用来与数据库的连接，如SQLServer.net数据提供程序——System.Data.SqlClient， 访问...
- vb.net的关键字和结构体
vb.net中 Sub过程中没有返回值 function函数有返回值Sub语句用于声明子过程的名称，参数和主体语法是：[Modifiers]Sub SubName[(ParameterList)] [Statements] End Sub*Modifiers修饰符：指定过程的访问级别；...
- VB.Net的多线程及委托
VB.Net的多线程及委托 一、多线程：在一个程序中，这些独立运行的程序片断叫作“线程”（Thread），利用它编程的概念就叫作“多线程处理”。多线程处理一个常见的例子就是用户界面。利用线程，用户可按下一...