易截截图软件、单文件、免安装、纯绿色、仅160KB

vb 难题

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


相关问答:

关于ASP.net(vb)播放监控录像的问题

我有厂家做的ASP的监控录像(DVR)的局域网播放的源程序与控件,想要用ASP.net做一个视频回放的程序(利用他的控件)但不知如下去做,望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......

VB中有无TApplication对应类型

我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好,用instance不是就可以了&# ......

请好心人帮我把VB源码转为VB.NET~

希望大家能够帮我下.感谢了..


源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html

转为VB.NET源码.

小弟完全是新手 不懂的说.麻烦各位帮忙一下

我的EMAIL是:4452 ......

VB能否把Control对象转为一个TEXTBOX对象?

VB能否把Control对象转为一个TEXTBOX对象?
VB.NET 有个CType函数,VB没有类似的?

只有转换变量的,似乎没发现有转换控件类型的


    Dim txt As Control
    Set txt = Text1
&n ......

看到VB版那些芙蓉姐夫式的家伙我就恶心

一个个为了出名居然使用自己的照片出来招摇,穷疯了吧
┌───────────────My 迅雷等级─────────────────┐




so what? disturbed you?

大概好多只有初中毕业

是� ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号