vb6.0中如何在文本框输入文字?

怎样写个程序是连续点击“放大”则文本框内字体NBA连续放大?我写的代码为什么上面显示错误缺少语句,PrivateSub放大_Click()text1fontsize=te... 怎样写个程序是连续点击“放大”则文本框内字体NBA连续放大?我写的代码为什么上面显示错误缺少语句,
Private Sub 放大_Click()
text1 font size=text1 font size+2
End Sub求正确写法。
展开
 我来答
匿名用户
2011-08-31
展开全部
设计状态下在TEXT属性中输入文字!
运行时直接文本框就输入文字就可以了!
通过代码输入的话
text1.text="VB程序设计" 这样写!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友74b778d
2011-08-31 · TA获得超过253个赞
知道小有建树答主
回答量:234
采纳率:0%
帮助的人:134万
展开全部
Text1.FontSize = Text1.FontSize + 2
一点问题没有! 你不会少了“.”吧?我刚刚试了,一点问题没有
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
dfk1979
2011-08-31 · TA获得超过2287个赞
知道大有可为答主
回答量:2197
采纳率:80%
帮助的人:1120万
展开全部
正确写法。另外,在控件命名的时候尽量少使中文,这样省得切换输入方法。
Private Sub 放大_Click()
text1.font.size=text1.font.size+2
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友4684e1e
2011-08-31 · TA获得超过2309个赞
知道小有建树答主
回答量:1266
采纳率:0%
帮助的人:547万
展开全部
public A as integer "全局变量
Private Sub 放大_Click()
static A as integer
text1 fontsize=A
End Sub

Private Sub Form_Load()
A=5 "字体初始值
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
asdfv63
2011-08-31 · 超过47用户采纳过TA的回答
知道小有建树答主
回答量:136
采纳率:100%
帮助的人:120万
展开全部
只要TEXT的ENABLE的属性为TRUE就能写的吧
Text1.FontSize = Text1.FontSize + 2要点的
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式