kwrl.net
当前位置:首页 >> VB一个窗体上的数值怎么能够被另一个窗体上的代码引用 >>

VB一个窗体上的数值怎么能够被另一个窗体上的代码引用

可以采用两种方法来解决: 一)在标准模块中声明全局变量,该变量在一个窗体的某事件中赋值或改变,另一窗体的某事件或过程中执行时就可直接引用。 '标准模块代码Option Explicit Public i As Long'Form1代码Option ExplicitPrivate Sub Command...

可以用“窗体.代码”的模式去执行别的窗体的代码。假设要在窗体 frm1 里执行窗体 frm2 的Form_Click 代码,程序如下: Private Sub Form_Click() frm2.Form_Click() '在frm1 里执行 frm2 的 From_Click 代码 End Sub

窗体1 command1_click() '显示 form2.show unload me '也可用 me.hide end sub 窗体2 command1_click() '返回 form1.show unload me end sub

用 窗体名.控件名.属性 来引用,比如 Form1.Text1.Text,跟当前窗体的控件的引用方法是一样的(但当前窗体的窗体名可以省略不写,或者用Me代替)。 比方说在Form1中引用Text1,下面的写法都是正确的: Form1.Text1.Text '这是完整写法 Me.Text1....

只要在一个窗体正确声明变量为公共变量,其它窗体是能调用该变量。 'Form1 CoadOption Explicit Public ab As Long Private Sub Command1_Click() ab = 123456 Form2.ShowEnd Sub'Form2 CoadOption ExplicitPrivate Sub Form_Load() Text1 = For...

a=form1.text1.text b=form2.text1.text ... 引用的前提是前面的窗口没有关闭,否则只能用全局变量来实现传递。

2种办法,楼上的是一种(那代码看着很眼熟,貌似是我以前写的),说下第二种: Form1代码,需要一个TextBox Private Sub Form_Load() Form2.Show Text1.Text = "" End Sub For2代码,需要一个按扭: Private Sub Command1_Click() Form1.Text1.Text = "来...

Private Sub Form_Click() Dim I, J As Integer Dim a(7), B(7) As Integer Cls Randomize a(0) = Int(Rnd() * 10) For I = 1 To 6 a(I) = Int(Rnd() * 10) For J = 0 To I - 1 If a(J) = a(I) Then J = 7 I = I - 1 End If Next J Next I For I...

把第二个窗体(就是你说的(上面那个窗体) )的StartUpPosition属性 设置为0 再设置 第二个窗体 的Left、Top属性值 (举个两个例子:1.在编写程序时 将第二个窗体的 StartUpPosition属性 设置为0 Left属性值设置为0 Top属性值设置为0 则第二个...

Sheets("工作月报").Range("A6:A100") = ("需要输入的数据") Sheets("工作月报").Range("B6:B100") = ("需要输入的数据") 如果每次的数据不同,则可以遍历每个单元格: dim i % for i =6 to 100 Sheets("工作月报").Range("A"&i) =("需要输入的...

网站首页 | 网站地图
All rights reserved Powered by www.kwrl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com