VB中Print语句怎么用?
例:有Form1、Form2、Form3三个窗口,Form1中设有两个Frame控件和两个Lable控件,一组Frame.caption为蔬菜,里面包含黄瓜单选钮和茄子单...
例:有Form1、Form2、Form3三个窗口,Form1中设有两个Frame控件和两个Lable控件,一组Frame.caption为蔬菜,里面包含黄瓜单选钮和茄子单选钮,另一组是Frame.caption为水果,里面包含草莓单选钮和甜橙单选钮。当蔬菜那组内容被选中时,Lable1中会出现:您选择的是“被选中的内容”;同时水果组内容被选中时Label2中会出现:您选择的是“被选中的内容”。Form2中同样设有两个Frame控件和两个Lable控件,一组Frame.caption为巧克力,里面包含黑巧克力和白巧克力两个复选框,另一组是Frame.caption为糖果,里面包含苹果糖和玉米糖两个复选框,当巧克力组被选中时,Label1中出现:您选择的是“被选中的内容;同时糖果组被选中时,Label2出现:您选择的是“被选中的内容”。
求:Form3的内容为Form1和Form2中四个Label控件里的内容,并随Label控件内容的变化而变化。(对VB的掌握一如我的用户名,诚求各位帮助,谢谢) 展开
求:Form3的内容为Form1和Form2中四个Label控件里的内容,并随Label控件内容的变化而变化。(对VB的掌握一如我的用户名,诚求各位帮助,谢谢) 展开
3个回答
展开全部
Private Sub Form_Load()
Frame1.Caption = "蔬菜"
Frame2.Caption = "水果"
Option1.Caption = "黄瓜"
Option2.Caption = "茄子"
Option3.Caption = "草莓"
Option4.Caption = "甜橙"
Label1.Visible = False
Label2.Visible = False
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Form3.Show
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Label1.Caption = Option1.Caption
Form3.Print Label1.Caption
Label1.Visible = True
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Label1.Caption = Option2.Caption
Form3.Print Label1.Caption
Label1.Visible = True
End If
End Sub
Private Sub Option3_Click()
If Option3.Value = True Then
Label2.Caption = Option3.Caption
Form3.Print Label2.Caption
Label2.Visible = True
End If
End Sub
Private Sub Option4_Click()
If Option4.Value = True Then
Label2.Caption = Option4.Caption
Form3.Print Label2.Caption
Label2.Visible = True
End If
End Sub
窗体1代码如上~窗体2我就省略和1一样 窗体3就不需要代码了。~
Frame1.Caption = "蔬菜"
Frame2.Caption = "水果"
Option1.Caption = "黄瓜"
Option2.Caption = "茄子"
Option3.Caption = "草莓"
Option4.Caption = "甜橙"
Label1.Visible = False
Label2.Visible = False
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Form3.Show
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Label1.Caption = Option1.Caption
Form3.Print Label1.Caption
Label1.Visible = True
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Label1.Caption = Option2.Caption
Form3.Print Label1.Caption
Label1.Visible = True
End If
End Sub
Private Sub Option3_Click()
If Option3.Value = True Then
Label2.Caption = Option3.Caption
Form3.Print Label2.Caption
Label2.Visible = True
End If
End Sub
Private Sub Option4_Click()
If Option4.Value = True Then
Label2.Caption = Option4.Caption
Form3.Print Label2.Caption
Label2.Visible = True
End If
End Sub
窗体1代码如上~窗体2我就省略和1一样 窗体3就不需要代码了。~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
楼主如果还是做不出来的话,可以把邮箱留下,我把我用VB6.0做的一个例子给你发过去,解压之后就能运行了,你可以参考下。
好像你的邮箱是qinyehong@126.com是吧?我已经发过去了。
好像你的邮箱是qinyehong@126.com是吧?我已经发过去了。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询