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
相关问答：
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
http://fp4bmg.blu.livefilestore.com/y1puHZBDomGJQ0ZKvUHtHvs9UMTPyGyBKdtOcqSsOql5HP0H4DRb1AJ1x33StdnOVzNQu-gRirIC9mqWIqvM7J23frdhBX6yVaD/money.exe
或者Reshacker把这个程序里面的图片替换掉也行！
（ ......
我有自动生成序列号的程序，但是怎么跟打包后的安装程序结合在一起，在安装时提示用户输入序列号，正确后再继续安装？？？
方法1：你可以在运行程序后输入序列号注册，很多软件都是这样的。
方法2：使用Setu ......
请看看以下导出文本文件的模块函数，我应该怎么在按钮点击事件中实现调用。
Option Explicit
Public Function TabintoTxt(objConn As Object, TableName As String, Optional TextFileName As String) ......
昨天谢谢 chenhui530 帮我解决了窗口和类名的动态随机生成。
但现在有一个疑问，就是所有窗口和控件改成的随机类名后，是否在程序关闭时自动销毁了呢？
如果卸载窗体时加上END，会自动进行清理。
最好养成 Re ......
