重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
方法一: 通过WINSOCK传 方法二: 程序一生成一文件,然后程序二读取 方法三: 利用数据库存取这个是调用自制DLL示例,至于用ActiveX EXE,你可以参考一下,关键是留接口给另一程序 VB制作标准DLL文件并调用该文件的示例 1、建立一个ActiveX DLL工程,这时工程中将包括一个类模块Class1。 2、在ActiveX DLL工程中添加一个Form。 3、在类模块添加如下函数: Public Function ShowMyForm(s As String) Form1.Caption = s Form1.Show vbModal End Function 4、将工程编译为DLL。 调用时: 1、建立一个标准EXE,在菜单“工程|引用”中选择前面编译的DLL。 2、使用如下代码调用: Private Sub Form_Click() Dim cls As New Class1 cls.ShowMyForm("Hello") End Sub
专业成都网站建设公司,做排名好的好网站,排在同行前面,为您带来客户和效益!创新互联建站为您提供成都网站建设,五站合一网站设计制作,服务好的网站设计公司,成都做网站、网站设计负责任的成都网站制作公司!
Imports System
Imports System.IO.Ports
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'获取计算机有效串口
Dim ports As String() = SerialPort.GetPortNames() '必须用命名空间,用SerialPort,获取计算机的有效串口
Dim port As String
For Each port In ports
portnamebox.Items.Add(port) '向combobox中添加项
Next port
'初始化界面
分类: 电脑/网络 程序设计 其他编程语言
问题描述:
问个简单的问题怎样在form2中运用form1中的变量?比如,我在form1中声明了一个变量a 也赋予了一个值,也声明为public了,可在form2中,我用“label1.text=form1.a”却总是显示为0.望高手给我这菜鸟解个惑!
解析:
form1要有一个实例才行。
dim f1 as form1
label1.text=f1.a