vb6.0 控件数组问题

额,饿了 2011-11-08 12:12:42
Public Function makeTransparentTextbox(aTxt As TextBox)
这个方法 的参数怎么传递过来
makeTransparentTextbox Text8 这个可以

makeTransparentTextbox Text2(0) 这个传递过去是空


我想知道控件数组 怎么传递
text2(0) text2(1) text2(2) text2(3) text2(4) text2(5)
...全文
208 19 打赏 收藏 转发到动态 举报
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
看来好讨要点代码 makeTransparentTextbox
额,饿了 2011-11-08
  • 打赏
  • 举报
回复
都在吃饭 休息、、、、我也去吃饭了回来在看
额,饿了 2011-11-08
  • 打赏
  • 举报
回复
有办法解决吗??
方法是别人写好的
我只有用它的方法
程序都写好了 用的数组
[Quote=引用 6 楼 sunjs12345 的回复:]
Public Function makeTransparentTextbox(aTxt As TextBox)
红线定义的不是数组,你传数组肯定传不过去
[/Quote]
杀神者 2011-11-08
  • 打赏
  • 举报
回复
Public Function makeTransparentTextbox(aTxt As TextBox)
红线定义的不是数组,你传数组肯定传不过去
额,饿了 2011-11-08
  • 打赏
  • 举报
回复
自己顶下 在线等高手
额,饿了 2011-11-08
  • 打赏
  • 举报
回复
我的代码传递没别抱错误 可是传递过去了为空
[Quote=引用 3 楼 patrickkong 的回复:]
上面的会出错,我试了你的代码,没问题
[/Quote]
  • 打赏
  • 举报
回复

上面的会出错,我试了你的代码,没问题
额,饿了 2011-11-08
  • 打赏
  • 举报
回复
编译都通不过
类型不匹配

[Quote=引用 1 楼 patrickkong 的回复:]
makeTransparentTextbox (Text2(0) )
[/Quote]
  • 打赏
  • 举报
回复

makeTransparentTextbox (Text2(0) )
额,饿了 2011-11-08
  • 打赏
  • 举报
回复
明白了 哈哈 是挺郁闷的错误。。。谢谢了
[Quote=引用 18 楼 worldy 的回复:]
引用 14 楼 ni04730184 的回复:
这个是我的测试代码 你看看 明明是空啊


老兄啊老兄,atxt=""是text属性为空字串,并不是atxt为nothing
[/Quote]
worldy 2011-11-08
  • 打赏
  • 举报
回复
[Quote=引用 14 楼 ni04730184 的回复:]
这个是我的测试代码 你看看 明明是空啊
[/Quote]

老兄啊老兄,atxt=""是text属性为空字串,并不是atxt为nothing
额,饿了 2011-11-08
  • 打赏
  • 举报
回复

这个就是有值的
king06 2011-11-08
  • 打赏
  • 举报
回复
[Quote=引用 14 楼 ni04730184 的回复:]
这个是我的测试代码 你看看 明明是空啊
[/Quote]
里面写个代码语句再看就不是空的了.
调试的时候,走到函数或方法的那个地方看它的值本来就会是空的.
  • 打赏
  • 举报
回复
textbox的default的属性是text。
额,饿了 2011-11-08
  • 打赏
  • 举报
回复

这个是我的测试代码 你看看 明明是空啊
zfl2k 2011-11-08
  • 打赏
  • 举报
回复
Option Explicit

Private Sub Command1_Click()
t Text1(0)
End Sub
Sub t(a As TextBox)
a.Text = "34"
End Sub

一点问题都没有
额,饿了 2011-11-08
  • 打赏
  • 举报
回复
Debug.Print aTxt.Text
能输出值来??

[Quote=引用 11 楼 king06 的回复:]
为啥我编译通过了...

VB code

Option Explicit

Public Function makeTransparentTextbox(aTxt As TextBox)
Debug.Print aTxt.Text
End Function

Private Sub Command1_Click()
makeTransparentTextbo……
[/Quote]
king06 2011-11-08
  • 打赏
  • 举报
回复
为啥我编译通过了...
Option Explicit

Public Function makeTransparentTextbox(aTxt As TextBox)
Debug.Print aTxt.Text
End Function

Private Sub Command1_Click()
makeTransparentTextbox Text1(0)
End Sub
额,饿了 2011-11-08
  • 打赏
  • 举报
回复
没人来 了吗。。。。

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧