form2,form3都分别有一个label1属性是一样
Private Sub Command1_Click()
Dim lbl As Label
if combo1.text="1" then
lbl = Form2.Label1
else
lbl = Form3.Label1
end if
With lbl
.Caption = Combo1.Text
...........................................
50多个属性在不同的两个窗口form2,form3
End With
Form2.Show
Form3.Show
End Sub
如何把上面的代码改正确，因为属性太多，不可能同时两个窗口一起同时属性赋值
不懂你的意思
label最多也就是用到 text 位置 大小 颜色 样式，怎么有50多个属性？
另外不要在窗口之间来回的调用，这样代码很混乱。
Dim lbl As Label
if combo1.text="1" then
lbl = Form2.Label1
else
lbl = Form3.Label1
end if
'混乱是你代码逻辑混乱引起的,Form2.Label1 ,Form3.Label1 都赋给lbl,然后再给lbl赋属性,本来Form3.Label1,Form2.Label1就很清楚,结果乱成一团.
是否可以考虑将Form2和Form3合并成一个Form，将其中的Label1变成Label数组
Private Sub Command1_Click()
Dim lbl As Object
If Combo1.Text = "1" Then
Set lbl = Form2.Label1
Else
Set lbl = Form3.Label1
End If
With lbl
.Caption = Combo1.Text
相关问答：
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好，用instance不是就可以了&# ......
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
出錯的時候去執行一段代碼之後,再回到出錯的地方接著往下執行
如何用vb來實現?
Sub FFFFFFF()
AAAA:
On Error goto BBBB
....
.... ......
我想在鼠标移至命令按钮上，弹出一个提示框，但不知如何弄，请做个示例
tooltip
谢谢！我是新手，能说得详细些吗？最好有个例子
Command1.ToolTipText="xxx"
我在command中看到这样不能实现 ......
