vb空心菱形求助

来源：百度知道 编辑：UC知道 时间：2024/09/22 23:31:08
【实验题5－3】用Print方法、文本框和标签框输出菱形图案，比较它们的不同用法，运行结果见图。程序启动时，通过弹出的输入对话窗口输入窗体中显示的菱形图案的顶点列数，则窗体中显示菱形图案；点击文本框或标签框时在文本框或标签框中也显示菱形图案，初始界面见图5－4。（提示：①文本框设置多行显示属性Multiline 为 True。②文本框的换行用Chr(13) & Chr(10)实现。③标签框的换行用Chr(13) 实现。④为了区分窗体上的菱形和标签框中的菱形，将标签设为有边框。）
*
* *
*
依次类推

把下面代码保存成form1.frm文件,双击并运行:

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 6360
ClientLeft = 60
ClientTop = 450
ClientWidth = 9915
LinkTopic = "Form1"
ScaleHeight = 6360
ScaleWidth = 9915
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text1
Height = 2655
Left = 4920
MultiLine = -1 'True
TabIndex = 1
Text = "Form1.frx":0000
Top = 3600
Width = 3975
End
Begin VB.Label Label2
Caption = "点击窗体也会显示，不知道为什么label1显示有问题"
Height = 735
Left = 3000
TabIndex = 2
Top = 3240
Width