资源描述:
《VB小程序源代码.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、VB小程序复制粘贴PrivateSubCommand1_Click()Clipboard.SetTextText1.SelTextEndSubPrivateSubCommand2_Click()Text2.SelText=Clipboard.GetTextEndSub上海问题PrivateSubCommand1_Click()IfOption3.Value=TrueThenText1="Youareright"ElseText1="Youarewrong"EndIfEndSub中心问题PrivateSubForm_Resize()Command1.Left=(Form1.ScaleWidth
2、-Command1.Width)/2Command1.Top=(Form1.ScaleHeight-Command1.Height)/2Command1.Width=0.2*Form1.ScaleWidthEndSub曲线问题PrivateSubForm_Paint()Scale(0,0)-(3000,3000)Form1.DrawWidth=5Form1.ForeColor=RGB(255,0,0)Line(0,1500)-(3000,1500)Line(1500,0)-(1500,3000)Circle(1500,1500),35Forx=0To3000y=1500-200*(Sin((
3、x-1500)*3.1415926/180))PSet(x,y)NextxEndSub查找PrivateSubCommand1_Click()a=InStr(1,Text1,Text2)Text1.SelStart=a-1Text1.SelLength=Len(Text2)Text1.SetFocus5VB小程序EndSubPrivateSubText1_Change()EndSub改变字体PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.Font.Name="隶书"ElseText1.Font.Name="宋体"EndIfEndSubPri
4、vateSubCheck2_Click()IfCheck2.Value=1ThenText1.Font.Bold=TrueElseText1.Font.Bold=FalseEndIfEndSubPrivateSubCheck3_Click()IfCheck3.Value=1ThenText1.Font.Italic=TrueElseText1.Font.Italic=FalseEndIfEndSubPrivateSubCheck4_Click()IfCheck4.Value=1ThenText1.ForeColor=vbRedElseText1.ForeColor=vbBlueEndIfEn
5、dSub同步PrivateSubText1_Change()Text2=Text1.TextEndSubPrivateSubText2_Change()Text1=Text2.TextEndSubSin函数PrivateSubForm_Paint()5VB小程序Scale(0,0)-(2000,2000)PSet(1000,1000)Line(1000,0)-(950,50)Line(1050,50)-(1000,0)Line(1950,950)-(2000,1000)Line(1950,1050)-(2000,1000)Line(0,1000)-(2000,1000)Line(1000,0
6、)-(1000,2000)Circle(1000,1000),50Forx=0To2000y=1000-300*(Sin((x-1000)*3.1415926/180))PSet(x,y)NextxEndSub考试程序PrivateSubCommand1_Click()IfOption3.Value=TrueThenText1="正确"ElseText1="错误"EndIfEndSubPrivateSubForm_Load()EndSub复制粘贴查找替换PrivateSubCommand1_Click()Clipboard.SetTextText1.SelTextEndSubPrivateS
7、ubCommand2_Click()Text2.SelText=Clipboard.GetTextEndSubPrivateSubCommand3_Click()a=InStr(1,Text1,Text3)Text1.SelStart=a-1Text1.SelLength=Len(Text3)Text1.SetFocusEndSubPrivateSubCommand4_Click()Text1.SelText