7487
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
zhangwh6882 2002-08-23
newyon() 的方法很好，而且我的程序需要传递20几个数组，如果用全局变量的话显然不太合适！
多谢两位~！
多谢两位~！
newyon 2002-08-23
还可以用一种简单的方法
把form2的
private a As Variant
改成为
Public a As Variant
然后把定义的属性的定义去掉,这样也可以用!
不过这样做不太好!
到时你做过就知道了!
用公共变量的确方便,但是不方便其他人阅读自己写的程序,有什么问题就要添加全局的变量或数组可能会给自己带来很大的麻烦的啊!有时排错的时候都不知道在什么地方把这个变量的值改变了,就算用搜索找出来都是挺麻烦的.
这些是我在开发程序时自己的一些体会
把form2的
private a As Variant
改成为
Public a As Variant
然后把定义的属性的定义去掉,这样也可以用!
不过这样做不太好!
到时你做过就知道了!
用公共变量的确方便,但是不方便其他人阅读自己写的程序,有什么问题就要添加全局的变量或数组可能会给自己带来很大的麻烦的啊!有时排错的时候都不知道在什么地方把这个变量的值改变了,就算用搜索找出来都是挺麻烦的.
这些是我在开发程序时自己的一些体会
Tenner 2002-08-23
还是用公共变量方便
newyon 2002-08-23
FORM1代码:
Private a(3) As Integer
Private Sub Command1_Click()
Dim bb As New Form2
Form2.ay = a
Form2.Show 1
End Sub
Private Sub Form_Load()
a(0) = 1
a(1) = 2
a(2) = 3
a(3) = 4
End Sub
FORM2的代码
Private a As Variant
Private Sub Command1_Click()
If IsArray(a) = True Then
MsgBox a(UBound(a))
End If
End Sub
Public Property Get ay() As Variant
ay = a
End Property
Public Property Let ay(ByVal vNewValue As Variant)
a = vNewValue
End Property
先运行form1
Private a(3) As Integer
Private Sub Command1_Click()
Dim bb As New Form2
Form2.ay = a
Form2.Show 1
End Sub
Private Sub Form_Load()
a(0) = 1
a(1) = 2
a(2) = 3
a(3) = 4
End Sub
FORM2的代码
Private a As Variant
Private Sub Command1_Click()
If IsArray(a) = True Then
MsgBox a(UBound(a))
End If
End Sub
Public Property Get ay() As Variant
ay = a
End Property
Public Property Let ay(ByVal vNewValue As Variant)
a = vNewValue
End Property
先运行form1
zhangwh6882 2002-08-23
newyon()能稍微详细一点么？我没用过
Tenner 2002-08-23
楼上的请举例
newyon 2002-08-23
在窗体建立自己的属性，这个属性用变体变量。
这是没有问题的!
这是没有问题的!
Tenner 2002-08-23
变体变量只以用于在Function中返回数组，似乎用在窗口之间不行
newyon 2002-08-23
可以用变体变量来传
Tenner 2002-08-23
用Public吧，在模块中声明一个全局数组，在主窗口中给数组赋值，在子窗口中调用
大规模病毒爆发预案(样稿090408) 病毒预案有很多，大多没有具体的方法和步骤，本人参考多篇预案，并结合实际进行的分类处理。希望能对有需求的同仁些许帮助
针对局域网内的可能的大规模病毒爆发，导致面积性故障的病毒，给出预案的样稿
1、arp
2、聊天软件
3、系统软件漏洞
QRegExp的详细解析 引言
正则表达式（regular expression）就是用一个“字符串”来描述一个特征，然后去验证另一个“字符串”是否符合这个特征。比如 表达式“ab+” 描述的特征是“一个 'a' 和 任意个 'b' ”，那么 'ab', 'abb', 'abbbbbbbbbb' 都符合这个特征。 正则表达式可以用来：（1）验证字符串是否符合指定特征，比如验证是否是合法的邮件地址。（2）用来查找字符串，从一个长的文本中查找符合指定特征的字符串，比查找固定字符串更加灵活方便。（3）用来替换，比普通的替换更强大。
APP内置IM 系统——从入门到千万级在线 IM （即时通讯）系统是一种大型实时系统，其对技术方面的要求非常高。在APP社交化的今天，很多APP都希望为自己的应用增加IM系统，但却不得其法。本课程抽丝剥茧，搭建一套简IM 系统，先让开发者了解如何实现这类系统，然后会不断的对系统进行扩展，并详述要支撑千万级别的用户，系统架构要经过哪些方面的演变，在每个阶段需要具体考量哪些因素；其中涉及到大型网络开发、协议的制定解析、数据库的优化、负载均衡、监控、测试等方面的知识。相信通过此课程，开发者对IM 系统将有一个全面的认识。 a:0:{}
学会在Linux上编译调试C++项目 本课程主要针对没有或者很少写过linux上C++程序的同学， 本课程会教你如何从0基础开始，安装配置ubuntu虚拟机、使用GCC编译普通程序、动态库、静态库，编写复杂项目配置文件makefile，使用GDB工具调试C++程序。 通过本课程学习，可以熟练掌握如何高效的编译调试Linux上的c++程序，掌握如何安装配置ubuntu系统，掌握gcc编译动态、静态库，掌握makefile的编写，能够用Makfile编写出高效的项目配置文件。
C语言--视频精讲 C语言作为被长期使用的编程语言，可以被运用到各种操作系统，游戏，开发中。本课程作为互联网上首家使用C99录制的C语言教程，展现了全面、专业。标准的C语言教程。可以帮助学员从基础开始一点点的深刻理解C语言。 a:0:{}
Java基础核心技术：面向对象编程(day05-day07) 本套Java视频完全针对初级学员，课堂实录，自发布以来，好评如潮！Java视频中注重与学生互动，讲授幽默诙谐、细致入微，覆盖Java基础所有核心知识点，同类Java视频中也是代码量大、案例多、实战性强的。同时，本Java视频教程注重技术原理剖析，深入JDK源码，辅以代码实战贯穿始终，用实践驱动理论，并辅以必要的代码练习。 通过20的课程学习，使学员掌握java核心语法、面向对象思想编程、异常处理、IO流、集合类、多线程、网络编程等。
EXCEL VBA编程（excel办公高手必经之路） 宏基础
VBA编程基础
常用语句（分支、循环语句的基础及应用）
VBA结合工作表的函数功能的应用等 如果您会了所有的excel技能都不能解决工作的数据问题。那请选择VBA技术完成。本季主要讲解关于VBA的基础知识。为走向更高阶的excel技术打下基础。为更高效的办公打下基础。
打通Linux脉络系列：进程、线程和调度 本课程分成4个组成部分，每次课60分钟，每次课后留下3-4个练习题，可以在Linuxer公众号留言讨论答案和做题心得。
第一部分：深入彻底搞清楚进程生命周期，进程生命周期创建、退出、停止、以及僵尸是个什么意思；
第二部分：深入分析进程创建的写时拷贝技术、以及Linux的线程究竟是怎么回事（为什么称为轻量级进程），此部分也会搞清楚进程0、进程1和托孤，以及睡眠时的等待队列；
第三部分：搞清楚Linux进程调度算法，不同的调度策略，实时性，完全公平调度算法；
第四部分：讲解Linux多核下CPU、中断、软负载均衡、cgroups调度算法以及Linux为什么不是一个实时操作系统。 掌握Linux脉络知识：进程、线程和调度。
Winfrom通用权限管理系统 Winfrom框架，动态生成菜单界面，附带数据库。纯手写，仅供学习参考，希望.net 程序员越来越好。
博客地址：https://blog.csdn.net/zzzzzzzert 有问题留言，互相学习交流
USB3300数据手册(1)_PDF密码解除 USB3300数据手册(1)_PDF密码解除
Hi-Speed USB Host,
Device or OTG PHY with
ULPI Low Pin Interface
Node.js进阶教程第一步(基础篇) 本课程从Node.js的安装配置开始，包括函数调用，模块调用，路由，文件操作，异常处理，参数接收，正则表达式，连接数据库，事件等内容，使学员通过十六课时，学习Node.js的基础知识，掌握JS开发服务端的编写方法，了解Node.js的运行机制，为深入学习后期各类框架打好基础。 学习Node.js的基础知识，掌握JS开发服务端的编写方法，了解Node.js的运行机制，为深入学习后期各类框架打好基础。
