设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › VB6 中 用If语句监测Textbox是否有内容

VB6 中 用If语句监测Textbox是否有内容

[复制链接]
查看11 | 回复1 | 2011-5-16 06:02:24 | 显示全部楼层 |阅读模式
想实现用If语句监测Textbox是否有内容
若有则计算赋值到Label.caption
没有则在Label.caption写空白
（Label.caption在后面程序还需要调用计算平均值）
程序调试总是报错
内容如下：
IfIsNull(Trim(Text1.Text))OrIsNull(Trim(Text2.Text))Then
Label1.Caption=\"\"
Else
Label1.Caption=CSng(Text1.Text)-CSng(Text2.Text)
EndIf
IfIsNull(Trim(Text3.Text))OrIsNull(Trim(Text4.Text))Then
Label1.Caption=\"\"
Else
Label1.Caption=CSng(Text3.Text)-CSng(Text4.Text)
EndIf
示意如图
不管Textbox是否输入都提示计算赋值那句有错误
回复

使用道具 举报

千问 | 2011-5-16 06:02:24 | 显示全部楼层
IfTrim(Text1.Text)=\"\"OrTrim(Text2.Text)=\"\"Then
Label1.Caption=\"\"
Else
Label1.Caption=CStr(CSng(Text1.Text)-CSng(Text2.Text))
EndIf
IfTrim(Text3.Text)=\"\"OrTrim(Text4.Text)=\"\"Then
Label2.Caption=\"\"
Else
Label2.Caption=CStr(CSng(Text3.Text)-CSng(Text4.Text))
EndIf

还有，4个文本框的默认值只能输入阿拉伯数字，不能输入字母或中文
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行