大学计算机vb基本编辑.docVIP

作图

PrivateSubCommand1_Click()

Picture1.Scale(-10,10)-(10,-10)

Picture1.CurrentX=0

Picture1.CurrentY=0

Picture1.Print(0,0)

Picture1.Line(-10,0)-(10,0)

Picture1.Line(0,-10)-(0,10)

EndSub

PrivateSubCommand2_Click()

Picture1.FillStyle=0颜色填充

Picture1.FillColor=RGB(0,255,0)绿色填充

Picture1.DrawWidth=2边线粗为2

Picture1.Circle(0,0),5,RGB(255,0,0),-3.1415/6,-3.1415*5/6（0，0）为圆心，半径为5，颜色为红

EndSub

PrivateSubCommand3_Click()

End

EndSub

最大化和还原编辑

PrivateSubCmdMaxsize_Click()

IfCmdMaxsize.Caption=最大化(L)Then

Form1.WindowState=2

CmdMaxsize.Caption=还原(B)

Else

Form1.WindowState=0

CmdMaxsize.Caption=最大化(L)

EndIf

Form_Load

EndSub

PrivateSubForm_Load()

CmdMaxsize.Left=(Form1.ScaleWidth-CmdMaxsize.Width)\2

CmdMaxsize.Top=(Form1.ScaleHeight-CmdMaxsize.Height)\2

EndSub

用户名改写密码设置

PrivateSubCmdMaxsize_Click()

IfCmdMaxsize.Caption=最大化(L)Then

Form1.WindowState=2

CmdMaxsize.Caption=还原(B)

Else

Form1.WindowState=0

CmdMaxsize.Caption=最大化(L)

EndIf

Form_Load

EndSub

PrivateSubForm_Load()

CmdMaxsize.Left=(Form1.ScaleWidth-CmdMaxsize.Width)\2

CmdMaxsize.Top=(Form1.ScaleHeight-CmdMaxsize.Height)\2

EndSub

编辑

Dimstr1AsString

PrivateSubCommand1_Click()

str1=Text1.SelText

EndSub

PrivateSubCommand2_Click()

str1=Text1.SelText

Text1.SelText=

EndSub

PrivateSubCommand3_Click()

Text1.SelText=str1

EndSub

PrivateSubCommand4_Click()

Text1.SelText=

EndSub

格式设置

PrivateSubCombo1_Click()

SelectCaseCombo1.ListIndex

Case0

Text1.Alignment=0

Case1

Text1.Alignment=2

Case2

Text1.Alignment=1

EndSelect

EndSub

PrivateSubCombo2_Click()

SelectCaseCombo2.ListIndex

Case0

Text1.FontItalic=False

Text1.FontBold=False

Case1

Text1.FontItalic=True

Text1.FontBold=False

Case2

Text1.FontBold=