为什么出错

learn_vb 2000-07-25 09:52:00
Public Function isempty(ByVal cons As Controls) As Boolean
Dim con As Control
For Each con In cons

If TypeOf con Is TextBox Then
If Trim(con.Text) = "" Then
isempty = True
Exit Sub
End If
End If
Next

End Function
在For k = 0 To 2 Step 1
If Check(txt(k).Text) = True Then
MsgBox "dfdfsd"
'Exit Sub
End If
Next调用时为什么出错
...全文
142 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiaoy2000 2000-07-26
  • 打赏
  • 举报
回复
第一行就错了isempty是vb保留的,他有固定的含义,不能拿他作函数名
这是错误原因,上边几个人已给出几种方法,看看吧
bing71 2000-07-26
  • 打赏
  • 举报
回复
IsEmpty是系统的一个函数,不能自定义。如果将程序中的IsEmpty改名为emptystring
If Check(txt(k).Text) = True Then
应该是:
If emptystring(txt(k)) = True Then
UserReg 2000-07-25
  • 打赏
  • 举报
回复
IsEmpty是系统的一个函数啊
TopHead 2000-07-25
  • 打赏
  • 举报
回复
呵呵,没看懂问题,这是哪跟哪啊?:)
Tyro 2000-07-25
  • 打赏
  • 举报
回复
isempty和check不会是一个函数吧?
Wingsun 2000-07-25
  • 打赏
  • 举报
回复
Public Function isempty(ByVal cons As Controls) As Boolean
Dim con As Control
For Each con In cons

If TypeOf con Is TextBox Then
If Trim(con.Text) = "" Then
isempty = True
'Exit Sub//错
Exit Function
End If
End If
Next

End Function
Limu 2000-07-25
  • 打赏
  • 举报
回复
你出的问题就有问题,Check和IsEmpty是不是同一个函数,如果是,你在定义时用的参数是一个控件组(Controls),而在调用时为什么却传一个控件的显示值(txt(k).text)进去呢?
leslielu 2000-07-25
  • 打赏
  • 举报
回复
??????
什么调什么呀?
2022 / 01/ 30: 新版esptool 刷micropython固件指令不是 esptool.py cmd... 而是 esptool cmd... 即可;另外rshell 在 >= python 3.10 的时候出错解决方法可以查看:  已于2022年发布的: 第二章:修复rshell在python3.10出错 免费内容: https://edu.csdn.net/course/detail/29666 micropython语法和python3一样,编写起来非常方便。如果你快速入门单片机玩物联网而且像轻松实现各种功能,那绝力推荐使用micropython。方便易懂易学。 同时如果你懂C语音,也可以用C写好函数并编译进micropython固件里然后进入micropython调用(非必须)。 能通过WIFI联网(2.1章),也能通过sim卡使用2G/3G/4G/5G联网(4.5章)。 为实现语音控制,本教程会教大家使用tensorflow利用神经网络训练自己的语音模型并应用。为实现通过网页控制,本教程会教大家linux(debian10 nginx->uwsgi->python3->postgresql)网站前后台入门。为记录单片机传输过来的数据, 本教程会教大家入门数据库。  本教程会通过通俗易懂的比喻来讲解各种原理与思路,并手把手编写程序来实现各项功能。 本教程micropython版本是 2019年6月发布的1.11; 更多内容请看视频列表。  学习这门课程之前你需要至少掌握: 1: python3基础(变量, 循环, 函数, 常用库, 常用方法)。 本视频使用到的零件与淘宝上大致价格:     1: 超声波传感器(3)     2: MAX9814麦克风放大模块(8)     3: DHT22(15)     4: LED(0.1)     5: 8路5V低电平触发继电器(12)     6: HX1838红外接收模块(2)     7:红外发射管(0.1),HX1838红外接收板(1)     other: 电表, 排线, 面包板(2)*2,ESP32(28)  

7,759

社区成员

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

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