高考问答印度背乘法口诀表:一道很容易的vb题,我却做不出来了!!!来看看!!
来源：百度文库 编辑：高考问答 时间：2024/05/08 06:11:59
题目是这样的:
在一个窗体(form1)中定义一个变量x, 在另一个窗体(form2)里为他赋值,运行时,要在(form2)的文本框输入字符,而在(form1)里打印出来!!
请问怎么实现?>?
在一个窗体(form1)中定义一个变量x, 在另一个窗体(form2)里为他赋值,运行时,要在(form2)的文本框输入字符,而在(form1)里打印出来!!
请问怎么实现?>?
FORM1中：
Public x As String
Public Sub p()
Print x
End Sub
FORM2中：
Private Sub Text1_Change()
Form1.x = Text1.Text
Call Form1.p
End Sub
把那个变量定义成全局的
在Form2中访问时Form1.x =
对的,就是 窗体名.控件名.属性
DIM X AS INTEGER \'在窗体FORM1 里定义
Form1.x = TEXT1 在窗体FORM2 里
TEXT1.TEXT=3
Printgrid1.Unit = Centimeter 窗体FORM1 里打印
Printgrid1.PrintObject = 变量
Printgrid1.DoPreView
有两种方法可解决此问题：
一是定义变量x为全局变量。
二是在Form1中加一TIMER计时器，在Form2中对Form1的文本或标签控键赋值，由Form1的TIMER计时器捕获并将其赋值给变量x，其Form2的某事件代码中写：
Form1.Text1 = 16
TIMER计时器的TIMER事件中写代码
s = Val(Text1)
再提供一种方法:
在FORM1窗体的代码:
Option Explicit
Dim s As String
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Text1_Change()
s = Text1.Text
End Sub
在FORM2窗体的代码:
Private Sub Command1_Click()
Form1.Text1 = "456"
End Sub