Option Explicit

《Option Explicit》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一、OptionExplicitPrivateSubCommand1_Click()FontSize=FontSize+3Print"字体由小变大"EndSubPrivateSubCommand2_Click()FontSize=FontSize-3Print"字体由大变小"EndSubPrivateSubCommand3_Click()FontBold=TruePrint"加粗"EndSubPrivateSubCommand4_Click()FontItalic=TruePrint"倾斜"EndSubPrivateSubCommand5_

2、Click()ClsFontSize=9FontBold=False:FontItalic=FalseEndSub二、OptionExplicitPrivateSubCommand1_Click()Width=Width*2:Height=Height*2EndSubPrivateSubCommand2_Click()Width=Width/2:Height=Height/2EndSubPrivateSubCommand3_Click()Left=Left+200EndSubPrivateSubCommand4_Click()Left=Le

3、ft-200EndSubPrivateSubForm_DblClick()EndEndSub三、OptionExplicitPrivateSubCommand1_Click()Form1.Move0,0,Screen.Width,Screen.HeightEndSubPrivateSubCommand2_Click()Form2.ShowForm1.HideForm2.Left=Screen.Width/2-Form2.Width/2Form2.Top=Screen.Height/2-Form2.Height/2EndSubPrivateS

4、ubForm_Load()EndSub四、OptionExplicitPrivateSubForm_Load()Form1.Move0,0,Screen.Width,Screen.HeightLabel1.Left=(Form1.Width-Label1.Width)/2Label1.Top=1500Label2.Left=0Label2.Top=Form1.Height-3000EndSubPrivateSubTimer1_Timer()IfLabel1.FontSize<100ThenLabel1.FontSize=Label1.Fon

5、tSize*1.1Label1.Top=Label1.Top+100ElseTimer1.Enabled=FalseEndIfLabel1.Left=(Form1.Width-Label1.Width)/2EndSubPrivateSubTimer2_Timer()Label2.MoveLabel2.Left+300IfLabel2.Left>=Form1.WidthThenLabel2.Left=-Label2.WidthEndIfEndSub五、OptionExplicitPrivateSubCommand1_Click()Clipbo

6、ard.ClearClipboard.SetTextText1.SelTextCommand3.Enabled=TrueText1.SetFocusEndSubPrivateSubCommand2_Click()clioboard.ClearClipboard.SetTextText1.SelTextCommand3.Enabled=TrueText1.SelText=""EndSubPrivateSubCommand3_Click()Text1.SelText=Clipboard.GetTextText1.SetFocusEndSubPr

7、ivateSubCommand4_Click()Text1.Text=""Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseEndSubPrivateSubForm_Load()Text1=""Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=TrueEndSubPrivateSubText1_Click()Text1.SetFocusEndSu

8、bPrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfText1.SelLe