瑞星卡卡安全论坛技术交流区系统软件 【求助】vb6一个很简单的使用对象型变量的问题

1   1  /  1  页   跳转页

【求助】vb6一个很简单的使用对象型变量的问题

收藏
NeilβR
头像
初生襁褓狮
  • 帖子:22
  • 注册: 2007-04-20
  • 来自:
发表于： 2007-04-20 19:15 | 只看楼主 短消息 资料
字号： 小 中 大 1楼

【求助】vb6一个很简单的使用对象型变量的问题

我想定义一个label对象型变量，然后让它在form上显示出来"Hello! World!"除了Dim i as label
i.caption="Hello! World!"
之外，怎样把它放到form上去显示呢？谢谢！
ps.有没有微软语音引擎的SDK和帮助文件阿？哪里下？谢谢!
最后编辑2007-05-05 15:06:00.967000000
分享到：
gototop
 
GHRH
头像
自信弱冠狮
  • 帖子:455
  • 注册: 2005-01-26
  • 来自:
发表于： 2007-04-20 20:48 | 短消息 资料
字号： 小 中 大 2楼

label
是个组件
你可以把这个组件添加到TFORM里面
定义一个I为CHAR或STRING的类
然后在FORM里面
LABEL.CAPTION=''
gototop
 
TsunamiGZ
头像
初生襁褓狮
  • 帖子:71
  • 注册: 2007-04-17
  • 来自:
发表于： 2007-04-23 13:22 | 短消息 资料
字号： 小 中 大 3楼

按照目前我学习的VB来说，好象还没有办法通过命令行的形式，在FORM上添加一个部件，一般通用的办法是先通过手工在FORM上添加了部件，然后通过“form名.部件名.visible=false”来对这个部件进行隐藏，通过“form名.部件名.visible=true”来显示部件，通过“form名.部件名.caption="..."”来修改部件标题。
如果有通过命令行形式添加部件的方法，可能还需要高手指点。
gototop
 
TsunamiGZ
头像
初生襁褓狮
  • 帖子:71
  • 注册: 2007-04-17
  • 来自:
发表于： 2007-04-23 17:38 | 短消息 资料
字号： 小 中 大 4楼

刚翻了翻参考书后，找到了解决你的问题的办法，请参考以下代码动态生成VB标签。

Private Sub Form_Click()
    Form1.Controls.Add "vb.label", "aaa", Form1
   
    With Form1!aaa
        .Visible = True
        .Width = 5000
        .Height = 700
        .Caption = "aaabbb"
        .Top = 1000
    End With
   
End Sub
gototop
 
NeilβR
头像
初生襁褓狮
  • 帖子:22
  • 注册: 2007-04-20
  • 来自:
发表于： 2007-04-27 14:15 | 只看楼主 短消息 资料
字号： 小 中 大 5楼

高手！
不过请问能否解释一下？
比如form1.controls是什么？
还有，with form1!aaa，为何不是with form1.aaa
Thank you!
gototop
 
NeilβR
头像
初生襁褓狮
  • 帖子:22
  • 注册: 2007-04-20
  • 来自:
发表于： 2007-04-27 14:17 | 只看楼主 短消息 资料
字号： 小 中 大 6楼

ps..这本参考书书名是啥？哪个出版社的？我有5本vb6参考书，竟然找不到这种东西！?
gototop
 
TsunamiGZ
头像
初生襁褓狮
  • 帖子:71
  • 注册: 2007-04-17
  • 来自:
发表于： 2007-05-02 11:48 | 短消息 资料
字号： 小 中 大 7楼

《Visual Basic函数实用手册》冶金工业出版社。
form1.controls表示的是VB中的控件集合，其中包含了VB的各种控件。
使用form1!aaa而不使用form1.aaa的原因是：因为你的设计面板上，并没有手工添加aaa控件，所以，使用form1.aaa系统会提示找不到aaa控件，而通过form1!aaa系统会通过controls集合来寻找aaa控件，就能找到了。
gototop
 
编程小学生
头像
初生襁褓狮
  • 帖子:143
  • 注册: 2007-02-07
  • 来自:
发表于： 2007-05-05 14:56 | 短消息 资料
字号： 小 中 大 8楼

要求在窗体上先添加Label控件
Dim i As Object
Set i = Label1
i.Caption = "Hello! World!"
或
Label1.Caption = "Hello! World!"
或
最简单的方法就是在属性里直接加！

Dim i as label
i.caption="Hello! World!" 这个方法有错误！
gototop
 
编程小学生
头像
初生襁褓狮
  • 帖子:143
  • 注册: 2007-02-07
  • 来自:
发表于： 2007-05-05 15:06 | 短消息 资料
字号： 小 中 大 9楼

引用:
【TsunamiGZ的贴子】刚翻了翻参考书后，找到了解决你的问题的办法，请参考以下代码动态生成VB标签。

Private Sub Form_Click()
    Form1.Controls.Add "vb.label", "aaa", Form1
   
    With Form1!aaa
        .Visible = True
        .Width = 5000
        .Height = 700
        .Caption = "aaabbb"
        .Top = 1000
    End With
   
End Sub

………………

谢谢学习了！
gototop
 
<<上一主题|下一主题>>
1   1  /  1  页   跳转页
页面顶部
Powered by Discuz!NT