私有子窗體_Click()
Text1。移動0,0
末端接頭
私有子文本1_Change()
Text1。感動我。寬度- Text1。寬度,0
末端接頭
練習1-13:
私有Sub C1_Click()
Text1。Text = LCase(Text1。正文)
文本2。Text = UCase(Text1。正文)
末端接頭
練習1-14:
私有子命令1_Click()
如果Text1。Text & lt& gt“計算機等級考試”然後退出Sub
Text1。可見=假
Label1。Caption = Text1。文本
Label1。可見=真
末端接頭
練習1-15:
1)將Text1的MultiLine屬性設置為True。
2)將Text1的ScroolBars屬性設置為2-Vertical。
3)將Text1的文本屬性設置為編程。
4)點擊Text1的Font屬性右邊的小按鈕,在出現的對話框中設置粗體和3號字體。
5)設置Form1的Caption屬性來設置文本框屬性。
練習1-16:
私有子窗體_Load()
Text1。PasswordChar = "* "
末端接頭
私有子文本1_Change()
文本2。Text = Text1。文本
末端接頭
練習1-17:
私有Sub C1_Click()
Text1。Text = "等級考試"
末端接頭
私有子C2_Click()
T1。寬度= T1。寬度* 2
T1。高度= T1。高度* 2
T1。FontSize = T1。字體大小* 3
末端接頭
練習1-18:
在Form1上畫壹個Shape1,然後將其Shape屬性設置為3-Circle,再將Shape1的Height和Width屬性設置為1500,然後將表單的Caption屬性設置為圓形,最後將表單的MinButton屬性和MaxButton屬性設置為False。
希望我的回答能幫妳解決問題。