vb点虐 共享数据 vba共享局域网excel表格
vb点虐 怎么在两个sub间传递数据？
方法一: 通过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
专注于为中小企业提供成都做网站、成都网站制作、成都外贸网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业天元免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上1000家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
VB.NET窗体间的数据传递
在编写VB.Net windows应用程序的时候我们经常会遇到这种问题，怎么样在两个窗体间传递数据呢？例如，用VB.Net做一个文本编辑器，里面有一个搜索功能（即搜索我打开的文本里面的文字），点搜索则弹出搜索对话框，输入要搜索的内容，然后确定，就可以搜索到我打开的文本里面的文字了，这里就用到了两个窗体间的相互通信。我查看了相关的资料想了想，得出一些想法和方法。
也许有的人会觉得这个很简单呀。假如主框架为Form1，打开的搜索对话框是Form2.直接在Form2类中申明一个Form1实例：dim f1 as new Form1然后就可以通过f1来调用Form1中的域和函数了。其实不是这样的，你申明的新的Form1实例不是原来的那个Form1对象了，这样操作的是新的Form1中的域和函数，和最先打开的Form1是没有关系的。
那应该如何来完成两个窗体的通讯呢？我们要做的是把当前的Form1实例传递给Form2，如果是这样的话，问题就很好解决了。
方法1：首先，我们在Form2中定义：
Private mF_Form As Form1
我们更改Form2的构造函数为有参数的
Public Sub New(ByVal form As Form1)
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
Me.mF_Form = form
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
在Form1中，我在 要用到Form2的地方申明如下：
Dim f1 As New Form2(Me)
这里的me指的就是Form1当前的实例,也就是把当前Form1的实例通过Form2的构造函数传递给Form2类（其实在网上看到过比较蠢的方式，就是在构造函数里面传递要传递的信息如：字符串或是数字等，这样做很有局限性，不能传递其他的，所有我们可以直接传递实例,来完成传递更多的信息。）
这样在Form2中使用myForm 就可以对原来的Form1窗口进行操作了。但是你要把要操作的Form1中的域和函数定义成public形式的（这样可能不安全），此时的myForm就是真正的最开始打开的Form1了，你可以用这个实例来进行两个窗体的通讯了。
方法2：其实VB.Net中提供了窗体间进行通讯的现成的属性，呵呵，我们能想到的，微软也想到了，他们创造的语言其实确实可以说是人性化了。
在Form1类中申明Form2时用如下代码：
Dim f2As New Form2 '类Form2中的构造函数不改，还是无参的
f2.owner=me
也可以使用函数的方法，给当前实例添加一个附属窗口 代码：Me.AddOwnedForm(f2)
在Form2类的定义中写如下代码：
dim f1 as Form1=me.owner
这样f1对应的就是原来的Form1的实例了，也就可以用这个进行通讯了。但是还是要把不同类之间访问的域和函数定义成public，哎,安全确实是一个问题！！
vb点虐 里一个子程序可以用另一个子程序中的数据吗
可以使用，因为两个子程序的数据都是互通的，而且可以相互的补充，你用了另外一个子程序的数据也不影响你原本的子程序，这都是相互的
如果不用net use的方法，vb点虐 有办法访问共享文件或者共享文件夹吗
我不会VB，但是都是点虐 。c#的代码稍微转换一下就可以了。
C#实现访问网络共享文件夹，使用 WNetAddConnection2A 和 WNetCancelConnection2A。
在目标服务器建立共享文件夹，建立访问账号test;
public enum ERROR_ID
{
ERROR_SUCCESS = 0, // Success
ERROR_BUSY = 170,
ERROR_MORE_DATA = 234,
ERROR_NO_BROWSER_SERVERS_FOUND = 6118,
ERROR_INVALID_LEVEL = 124,
ERROR_ACCESS_DENIED = 5,
ERROR_INVALID_PASSWORD = 86,
ERROR_INVALID_PARAMETER = 87,
ERROR_BAD_DEV_TYPE = 66,
ERROR_NOT_ENOUGH_MEMORY = 8,
ERROR_NETWORK_BUSY = 54,
ERROR_BAD_NETPATH = 53,
ERROR_NO_NETWORK = 1222,
ERROR_INVALID_HANDLE_STATE = 1609,
ERROR_EXTENDED_ERROR = 1208,
ERROR_DEVICE_ALREADY_REMEMBERED = 1202,
ERROR_NO_NET_OR_BAD_PATH = 1203
}
public enum RESOURCE_SCOPE
{
RESOURCE_CONNECTED = 1,
RESOURCE_GLOBALNET = 2,
RESOURCE_REMEMBERED = 3,
RESOURCE_RECENT = 4,
RESOURCE_CONTEXT = 5
}
public enum RESOURCE_TYPE
{
RESOURCETYPE_ANY = 0,
RESOURCETYPE_DISK = 1,
RESOURCETYPE_PRINT = 2,
RESOURCETYPE_RESERVED = 8,
}
public enum RESOURCE_USAGE
{
RESOURCEUSAGE_CONNECTABLE = 1,
RESOURCEUSAGE_CONTAINER = 2,
RESOURCEUSAGE_NOLOCALDEVICE = 4,
RESOURCEUSAGE_SIBLING = 8,
RESOURCEUSAGE_ATTACHED = 16,
RESOURCEUSAGE_ALL = (RESOURCEUSAGE_CONNECTABLE | RESOURCEUSAGE_CONTAINER | RESOURCEUSAGE_ATTACHED),
}
public enum RESOURCE_DISPLAYTYPE
{
RESOURCEDISPLAYTYPE_GENERIC = 0,
RESOURCEDISPLAYTYPE_DOMAIN = 1,
RESOURCEDISPLAYTYPE_SERVER = 2,
RESOURCEDISPLAYTYPE_SHARE = 3,
RESOURCEDISPLAYTYPE_FILE = 4,
RESOURCEDISPLAYTYPE_GROUP = 5,
RESOURCEDISPLAYTYPE_NETWORK = 6,
RESOURCEDISPLAYTYPE_ROOT = 7,
RESOURCEDISPLAYTYPE_SHAREADMIN = 8,
RESOURCEDISPLAYTYPE_DIRECTORY = 9,
RESOURCEDISPLAYTYPE_TREE = 10,
RESOURCEDISPLAYTYPE_NDSCONTAINER = 11
}
[StructLayout(LayoutKind.Sequential)]
public struct NETRESOURCE
{
public RESOURCE_SCOPE dwScope;
public RESOURCE_TYPE dwType;
public RESOURCE_DISPLAYTYPE dwDisplayType;
public RESOURCE_USAGE dwUsage;
[MarshalAs(UnmanagedType.LPStr)]
public string lpLocalName;
[MarshalAs(UnmanagedType.LPStr)]
public string lpRemoteName;
[MarshalAs(UnmanagedType.LPStr)]
public string lpComment;
[MarshalAs(UnmanagedType.LPStr)]
public string lpProvider;
}
public class NetworkConnection
{
[DllImport("mpr.dll")]
public static extern int WNetAddConnection2A (NETRESOURCE[] lpNetResource, string lpPassword, string lpUserName, int dwFlags);
[DllImport("mpr.dll")]
public static extern int WNetCancelConnection2A (string sharename, int dwFlags, int fForce);
public static int Connect (string remotePath, string localPath, string username, string password)
{
NETRESOURCE[] share_driver = new NETRESOURCE[1];
share_driver[0].dwScope = RESOURCE_SCOPE.RESOURCE_GLOBALNET;
share_driver[0].dwType = RESOURCE_TYPE.RESOURCETYPE_DISK;
share_driver[0].dwDisplayType = RESOURCE_DISPLAYTYPE.RESOURCEDISPLAYTYPE_SHARE;
share_driver[0].dwUsage = RESOURCE_USAGE.RESOURCEUSAGE_CONNECTABLE;
share_driver[0].lpLocalName = localPath;
share_driver[0].lpRemoteName = remotePath;
Disconnect(localPath);
int ret = WNetAddConnection2A(share_driver, password, username, 1);
return ret;
}
public static int Disconnect (string localpath)
{
return WNetCancelConnection2A(localpath, 1, 1);
}
调用方式：
public static void TestNetWorkConnection()
{
string localpath = "X:";
//int status = NetworkConnection.Connect(@"\\192.168.0.2\test", localpath, @"test", "test");
int status = NetworkConnection.Connect("\\\\192.168.0.2\\test", localpath, @"test", "test");
if (status == (int)ERROR_ID.ERROR_SUCCESS)
{
FileStream fs = new FileStream(localpath + @"\\123.txt", FileMode.OpenOrCreate);
using (StreamWriter stream = new StreamWriter(fs))
{
stream.WriteLine("你好呀，成功了");
stream.Flush();
stream.Close();
}
fs.Close();
}
else
{
Console.WriteLine(status);
}
NetworkConnection.Disconnect(localpath);
}
当前题目：vb点虐 共享数据 vba共享局域网excel表格
文章起源：http://pwwzsj.com/article/ddiscoh.html
