vb作业.docx - 冰豆网

资源描述

vb作业.docx

《vb作业.docx》由会员分享，可在线阅读，更多相关《vb作业.docx（19页珍藏版）》请在冰豆网上搜索。

vb作业.docx

vb作业

PrivateSubCommand1_Click（）

Form2.Cls

Form2.ForeColor=vbYellow

Form2.Print"右移"

Form2.Left=Form2.Left+100

EndSub

PrivateSubCommand2_Click（）

Form2.BackColor=vbBlack

Form2.Show

左移.Enabled=True

Command5.Enabled=True

Command1.Enabled=True

Command6.Enabled=True

EndSub

PrivateSubCommand3_Click（）

Form2.Hide

左移.Enabled=False

Command5.Enabled=False

Command1.Enabled=False

Command6.Enabled=False

EndSub

PrivateSubCommand4_Click（）

End

EndSub

PrivateSubCommand5_Click（）

Form2.Cls

Form2.ForeColor=vbYellow

Form2.Print"放大"

Form2.Width=Form2.Width*2

Form2.Height=Form2.Height*2

EndSub

PrivateSubCommand6_Click（）

Form2.Cls

Form2.ForeColor=vbYellow

Form2.Print"缩小"

Form2.Width=Form2.Width/2

Form2.Height=Form2.Height/2

EndSub

PrivateSubCommand7_Click（）

Form1.ForeColor=vbBlack

Form1.Print"ok!

EndSub

PrivateSubCommand8_Click（）

Form1.Cls

EndSub

PrivateSub左移_Click（）

Form2.Cls

Form2.ForeColor=vbYellow

Form2.Print"左移"

Form2.Left=Form2.Left-100

EndSub

PrivateSubCommand1_Click（）

DimaAsSingle,bAsSingle,cAsSingle

Label1.Caption=""

a=Val（Text1.Text）

b=Val（Text2.Text）

c=a+b

Label1.Caption=Val（Text1.Text）&"+"&Val（Text2.Text）&"="&c

EndSub

PrivateSubCommand2_Click（）

DimaAsSingle,bAsSingle,cAsSingle

Label1.Caption=""

a=Val（Text1.Text）

b=Val（Text2.Text）

c=a-b

Label1.Caption=Val（Text1.Text）&"-"&Val（Text2.Text）&"="&c

EndSub

PrivateSubCommand3_Click（）

Text1=""

Text2=""

Label1.Caption=""

EndSub

PrivateSubCommand4_Click（）

End

EndSub

PrivateSubCommand1_Click（）

Text1.Text=Int（Rnd*（99-10+1））+10

Text2.Text=Int（Rnd*（99-10+1））+10

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text1.SetFocus

EndSub

PrivateSubText1_Change（）

Text3.Text=Trim（Str（Val（Text1.Text）+Val（Text2.Text）））

EndSub

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

IfKeyAscii>Asc（"9"）OrKeyAscii

KeyAscii=0

EndIf

EndSub

PrivateSubText2_Change（）

Text3.Text=Trim（Str（Val（Text1.Text）+Val（Text2.Text）））

EndSub

PrivateSubText2_KeyPress（KeyAsciiAsInteger）

IfKeyAscii>Asc（"9"）OrKeyAscii

KeyAscii=0

EndIf

EndSub

DimaAsString

DimbAsString

PrivateSubCheck1_Click（）

IfCheck1.Value=1Then

Option1.Enabled=True

Option2.Enabled=True

Option3.Enabled=True

Else

Option1.Enabled=False

Option2.Enabled=False

Option3.Enabled=False

EndIf

EndSub

PrivateSubCheck2_Click（）

IfCheck2.Value=1Then

Option4.Enabled=True

Option5.Enabled=True

Else

Option4.Enabled=False

Option5.Enabled=False

EndIf

EndSub

PrivateSubCommand1_Click（）

Label3.Caption="你订购了"+b+"系统的"+a+Text1.Text+"台"

EndSub

PrivateSubOption4_Click（）

b=Option4.Caption

EndSub

PrivateSubOption5_Click（）

b=Option5.Caption

EndSub

PrivateSubOption1_Click（）

a=Option1.Caption

EndSub

PrivateSubOption2_Click（）

a=Option2.Caption

EndSub

PrivateSubOption3_Click（）

a=Option3.Caption

EndSub

PrivateSubTimer1_Timer（）

Label1.Caption="当前时间是：

"&Hour（Time）&"时"&Minute（Time）&"分"&Second（Time）&"秒"

Label2.Caption="当前时间是：

"&Date

EndSub

PrivateSubCommand1_Click（）

IfList1.ListIndex=-1Then

n=MsgBox（"请先选择一个选项！

",0,"提示"）

Else

Combo1.AddItemList1.Text

List1.RemoveItemList1.ListIndex

EndIf

EndSub

PrivateSubCommand2_Click（）

IfCombo1.ListIndex=-1Then

n=MsgBox（"请先选择一个选项！

",0,"提示"）

Else

List1.AddItemCombo1.Text

Combo1.RemoveItemCombo1.ListIndex

EndIf

EndSub

PrivateSubCommand3_Click（）

Fori=List1.ListCount-1To0Step-1

Combo1.AddItemList1.List（i）

Nexti

List1.Clear

EndSub

Dimx,yAsInteger

PrivateSubCommand1_Click（）

Timer1.Enabled=True

Command1.Enabled=False

Command2.Enabled=True

EndSub

PrivateSubCommand2_Click（）

Timer1.Enabled=Flase

Command1.Enabled=True

Command2.Enabled=False

EndSub

PrivateSubCommand3_Click（）

End

EndSub

PrivateSubForm_Load（）

x=50

y=50

EndSub

PrivateSubTimer1_Timer（）

Shape1.Left=Shape1.Left+x

Shape1.Top=Shape1.Top+y

IfShape1.Left>=Picture1.ScaleWidth-Shape1.WidthOrShape1.Left<=0Then

x=-x

EndIf

IfShape1.Top>=Picture1.ScaleHeight-Shape1.HeightOrShape1.Top<=0Then

y=-y

EndIf

EndSub

PrivateSubCommand1_Click（）

CommonDialog1.Action=3

Text1.ForeColor=CommonDialog1.Color

EndSub

PrivateSubCommand2_Click（）

CommonDialog1.Flags=257

CommonDialog1.Action=4

Text1.FontName=CommonDialog1.FontName

Text1.FontSize=CommonDialog1.FontSize

Text1.FontBold=CommonDialog1.FontBold

Text1.FontUnderline=CommonDialog1.FontUnderline

Text1.FontStrikethru=CommonDialog1.FontStrikethru

Text1.ForeColor=CommonDialog1.Color

EndSub

PrivateSubTc1_Click（）

IfShape1.FillStyle=1Then

MsgBox"请选用非透明的填充类型！

Else

CommonDialog1.ShowColor

Shape1.FillColor=CommonDialog1.Color

EndIf

EndSub

PrivateSubYd1_Click（IndexAsInteger）

SelectCaseIndex

Case0

Shape1.Top=Shape1.Top-100

Case1

Shape1.Top=Shape1.Top+100

Case2

Shape1.Left=Shape1.Left-100

Case3

Shape1.Left=Shape1.Left+100

EndSelect

EndSub

PrivateSubTc31_Click（IndexAsInteger）

SelectCaseIndex

Case0

Shape1.FillStyle=0

Case1

Shape1.FillStyle=1

EndSelect

EndSub

PrivateSubXz1_Click（IndexAsInteger）

Shape1.Shape=Index

EndSub

PrivateSubdq_Click（IndexAsInteger）

Text1.Alignment=Index

EndSub

PrivateSubForm_Mouseup（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

IfButton=2Then

PopupMenuSz

EndIf

EndSub

PrivateSubjc_Click（）

jc.Checked=Notjc.Checked

Text1.FontBold=jc.Checked

EndSub

PrivateSubqx_Click（）

qx.Checked=Notqx.Checked

Text1.FontItalic=qx.Checked

EndSub

PrivateSubZt_Click（IndexAsInteger）

Text1.FontName=Zt（Index）.Caption

EndSub

PrivateSubDir1_Change（）

File1.Path=Dir1.Path

EndSub

PrivateSubDrive1_Change（）

Dir1.Path=Drive1.Drive

EndSub

PrivateSubFile1_Click（）

DimfsAsString

IfRight（File1.Path,1）="\"Then

fs=File1.Path+File1.FileName

Else

fs=File1.Path+"\"+File1.FileName

EndIf

Image1.Picture=LoadPicture（fs）

EndSub

PrivateSubForm_Load（）

Drive1.Drive="c:

File1.Pattern="*.bmp;*.gif;*.jpg"

EndSub

PrivateSubCommand1_Click（）

DimsAsString

Text1.Text=""

CommonDialog1.ShowOpen

OpenCommonDialog1.FileNameForInputAs#1

DoWhileNotEOF

（1）

LineInput#1,s

Text1.Text=Text1.Text+s+Chr（13）+Chr（10）

Loop

Close#1

EndSub

PrivateSubCommand2_Click（）

CommonDialog1.ShowSave

OpenCommonDialog1.FileNameForOutputAs#1

Print#1,Text1.Text

Close#1

EndSub

PrivateSubCommand3_Click（）

End

EndSub

DimtAsInteger

PrivateSubCommand1_Click（）

Timer1.Enabled=True

Command1.Enabled=False

Frame1.Enabled=False

EndSub

PrivateSubOption1_Click（IndexAsInteger）

Command1.Enabled=True

SelectCaseIndex

Case0

t=6

Label1.Caption=t

Case1

t=10

Label1.Caption=t

EndSelect

EndSub

PrivateSubTimer1_Timer（）

t=t-1

Ift>=0Then

Beep

Label1.Caption=t

Else

Label1.Caption="时间到！

Frame1.Enabled=True

Timer1.Enabled=False

EndIf

EndSub

PrivateSubCommand1_Click（）

IfCommand1.Caption="开始"Then

Timer1.Enabled=True

Command1.Caption="停止"

Else

Timer1.Enabled=False

Command1.Caption="开始"

EndIf

EndSub

PrivateSubTimer1_Timer（）

IfLabel1.Left<=Form1.WidthThen

Label1.Left=Label1.Left+100

Else

Label1.Left=-Label1.Width

EndIf

EndSub

PrivateSubForm_Load（）

Text1.Text=HScroll1.Value

Text2.Text=HScroll2.Value

Text3.Text=HScroll3.Value

EndSub

PrivateSubHScroll1_Change（）

Label1.BackColor=RGB（HScroll1.Value,_

HScroll2.Value,HScroll3.Value）'给标签的背景色赋值，该值用颜色函数RGB来实现，而颜色函数RGB的三个颜色参数分别来自滚动条

Text1.Text=HScroll1.Value'将Hscroll对象中的值赋给Text对象，使两者值相同

EndSub

PrivateSubHScroll1_Scroll（）