VB 请教高手关于用户控件问题
我制作了个用户控件,需要动态加载到窗体上
Set objExt = Controls.Add("工程1.meActiveX", argName)
objExt.Visible = True
程序一次能加载N个, 现在想对某一个用户控件中的Text赋值,应该怎么做呢? 用 argName.Text1.Text=".." 会报错呢,请高手指点,谢谢
有没有人会呢? 很急呢
objExt 怎么声明的?
VB code:
Dim myCtl As 工程1.meActiveX
Dim ctl As Control
Set ctl = Me.Controls.Add("工程1.meActiveX", argName)
ctl.Visible = True
Set myCtl = ctl
myCtl.Text1.Text = "hello"
相关问答:
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
VB偶学得不错,现在大一,高三的时候就学VB了,现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年,对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
各位大虾:
我有一个VB调用水晶报表的系统,报表是作为一个Design嵌在VB里的,今天发现打印第一张报表正常,同样的数据,在点打印再调用一次就会报 Memory Full的错误,但是 ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......