VB中的问题 [英] Problem in VB

问题描述

Hi,

展开 | 选择 | Wrap | 行号

推荐答案

Dim objtmp作为控制


公共功能OnLoad（ByVal frmobj1作为表格）

For each objtmp in frmobj1.Controls

如果TypeOf objtmp是TextBox那么

objtmp.Enabled = False

结束如果

下一页tmp

结束功能


我在项目中创建了这个功能。但它不起作用。上面的代码有什么问题？请尽快告诉我。


谢谢

Hi,

Dim objtmp As Control

Public Function OnLoad(ByVal frmobj1 As Form)
For Each objtmp In frmobj1.Controls
If TypeOf objtmp Is TextBox Then
objtmp.Enabled = False
End If
Next tmp
End Function

I have created this function in my project. But it doesnt work. What is wrong with the above code? Please tell me as soon as possible.

Thanks

只需一个额外的字

替换下一个tmp by next或next objtmp

just one extra word
replace next tmp by next or next objtmp

只需要一个额外的单词

用下一个或下一个objtmp替换下一个tmp

just one extra word
replace next tmp by next or next objtmp

仍然没有用。 Plz建议我如何以其他方式编写代码？

Still its not working. Plz suggest me how to code it in other way?

仍然无效。 Plz建议我如何用其他方式编写代码？

Still its not working. Plz suggest me how to code it in other way?

代码写入调用函数你必须写onload me这将解决问题

或

将此代码放入表单并调用formload evnt

the code is write to call the function u have to write onload me this will solve the problem
or
put this code in form and call in formload evnt

展开 | 选择 | Wrap | 行号

这篇关于VB中的问题的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！