重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你这个是VB.NET环境,Print 语句与VB6里的功能已经不一样了。
我们提供的服务有:网站设计制作、成都网站建设、微信公众号开发、网站优化、网站认证、宕昌ssl等。为上千余家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的宕昌网站制作公司
解决的方法可以两种:
方法一:
把 Print(a) 改成 msgbox(a)
方法二:
在窗体上添加一个标签控件Label1
把 Print(a) 改成 Label1.Text = a
两种方法:
图片框上盖个Label 向其输入内容。
载入图片,通过内存直接 DrawImage绘制个新图,然后在图上盖文字。最后赋值给图片框。
VB6的print 实质是向图片框打印文字,不管有无图都能在上面Print. 考虑速度和实现难度问题,如果纯粹显示,最好直接盖个Label最简单。第二种方法 需要考虑文字大小、颜色、坐标定位等等。如果一行文字显示不下,不会自动换行,得自己切。
额,我可以用vb6.0的语句回答您,给您参考,就是不知道您可以转化成.net语句与否。
'添加text1,text2,text3用于记录a,b,c的值
Private Sub Command1_Click()
On Error GoTo check
Dim a, b, c, result1, result2
a = Text1.Text
b = Text2.Text
c = Text3.Text
result1 = (((-1) * b) + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
result2 = (((-1) * b) - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
MsgBox "x1= " result1 " x2= " result2
Exit Sub
check:
MsgBox "error!please check your number!"
End Sub