VB课程设计文本编辑器文档格式.docx
- 文档编号:5831135
- 上传时间:2023-05-05
- 格式:DOCX
- 页数:14
- 大小:144.43KB
VB课程设计文本编辑器文档格式.docx
《VB课程设计文本编辑器文档格式.docx》由会员分享,可在线阅读,更多相关《VB课程设计文本编辑器文档格式.docx(14页珍藏版)》请在冰点文库上搜索。
要做的工作就是编写代码把这些控件和窗体等结合为一体,使得程序能够成为一体,顺畅运行。
本次设计在按照题目要求的前提下,为了完整地展示一个应用程序,在最初就设计为最基本的文本的编辑器,所以取名为“易记本”,就是简易记事本的简称,然后加入图标,在程序完成之后还进行了大包操作,得到应用程序的安装文件,最后安装在电脑上运行使用。
4.源代码
PrivateSubCommand1_Click()
DimiAsInteger
IfText2.Text<
>
"
123456"
Then
i=MsgBox("
密码错误"
5+vbExclamation,"
警告"
)
Ifi<
6Then
End
Else
Text2.Text="
"
Text2.SetFocus
EndIf
Form1.Hide
Form2.Show
EndSub
PrivateSubForm_Load()
Text1.Text="
Text1.MaxLength=6
Text2.MaxLength=6
Text2.PasswordChar="
*"
PrivateSubText1_LostFocus()
IfNotIsNumeric(Text1.Text)Then
MsgBox"
帐号必须为数字"
,"
Text1.SetFocus
Form2.Hide
Form3.Show
PrivateSubCommand2_Click()
Form4.Show
PrivateSubCommand3_Click()
Form5.Show
PrivateSubColor_Click()
CommonDialog1.Action=3
Text1.ForeColor=CommonDialog1.Color
Form3.Hide
PrivateSubCopy_Click()
DimstAsString
st=Text1.SelText
PrivateSubCut_Click()
Text1.SelText="
PrivateSubExit_Click()
PrivateSubFont_Click()
CommonDialog1.Flags=cdlCFBothOrcdlCFEffects
CommonDialog1.Action=4
Text1.FontName=CommonDialog1.FileName
Text1.FontSize=CommonDialog1.FontSize
Text1.FontBold=CommonDialog1.FontBold
Text1.FontItalic=CommonDialog1.FontItalic
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Text1.FontUnderline=CommonDialog1.FontUnderline
SubNew_Click()
Me.Caption=File
SubOpen_Click()
CommonDialog1.Action=1
OpenCommonDialog1.FileNameForInputAs#1
DoWhileNotEOF
(1)
LineInput#1,inputdata
Text1.Text=Text1.Text+inputdata+vbCrLf
Loop
Close#1
PrivateSubPaste_Click()
Text1.SelText=st
PrivateSubPrint_Click()
CommonDialog1.Action=5
Fori=1ToCommonDialog1.Copies
Printer.PrintText1.Text
Nexti
Printer.EndDoc
PrivateSubSaveAs_Click()
CommonDialog1.FileName="
vb课设用.txt"
CommonDialog1.DefaultExt="
txt"
CommonDialog1.Action=2
OpenCommonDialog1.FileNameForOutputAs#1
Print#1,Text1.Text
DimarrAsLong,sumAsLong,aAsInteger
a=HScroll1.Value
Text1.Text=plus(a)
Callisprime(a)
PrivateSubHScroll1_Change()
Label2.Caption=HScroll1.Value
Subisprime(maxAsInteger)
DimxAsInteger,iAsInteger,jAsInteger
Fori=2Tomax
x=0
Forj=2Toi-1
IfiModj=0Thenx=1
Nextj
Ifx=0ThenLabel2.Caption=Label2.Caption&
i&
Functionplus(aAsInteger)AsLong
Fori=1Toa
sum=sum+i
plus=sum
EndFunction
Dimx1AsInteger
Dimy1AsInteger
Dimx2AsInteger
Dimy2AsInteger
DimflagAsBoolean
OnErrorResumeNext
CommonDialog1.CancelError=True
CommonDialog1.DialogTitle="
颜色"
CommonDialog1.ShowColorIfErr<
32755Then
Picture1.ForeColor=CommonDialog1.Color
Picture1.Cls
Form5.Hide
Form6.Show
PrivateSubOption1_Click()
Picture1.DrawWidth=1
PrivateSubOption2_Click()
Picture1.DrawWidth=2
PrivateSubOption3_Click()
Picture1.DrawWidth=4
PrivateSubOption4_Click()
Picture1.DrawWidth=8
Picture1.Scale(0,0)-(400,400)
flag=False
PrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
flag=True
x1=X
y1=Y
PrivateSubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Ifflag=FalseThen
ExitSub
Ifflag=TrueThen
x2=X
y2=Y
Picture1.Line(x1,y1)-(x2,y2)
x1=x2
y1=y2
PrivateSubPicture1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
DimctPAsSingle,ctDu()AsSingle,ctDuSAsLong
Picture1.AutoRedraw=True:
ctP=3.1415926
Timer1.Interval=20:
Timer1.Enabled=NotTimer1.Enabled
Form7.Hide
Me.Caption="
旋转的椭圆"
:
Command1.Caption="
转/停"
9个"
Timer1.Enabled=False
PrivateSubText1_Change()
ctDuS=Val(Text1.Text)
IfctDuS>
200ThenText1.Text="
200"
IfctDuS<
1ThenctDuS=1
ReDimctDu(0ToctDuS)
PrivateSubTimer1_Timer()
DimIAsLong
Picture1.DrawWidth=3
ForI=0ToctDuS
ctDu(I)=ctDu(I)+ctP*0.01*I/9
IfctDu(I)>
ctP*2ThenctDu(I)=ctDu(I)-ctP*2
Show1ctDu(I),&
HFFFFFF/(ctDuS+1)*I*0.6
Next
DimxAsSingle,yAsSingle
StaticJAsSingle
Picture1.DrawWidth=15
x0=Picture1.ScaleWidth*0.5:
y0=Picture1.ScaleHeight*0.5
Picture1.PSet(x0,y0),255
x=1200:
y=0:
J=J-0.05
IfJ<
-ctP*2ThenJ=J+ctP*2
ZhuanJ,x,y
Picture1.PSet(x0+x,y0+y),RGB(0,0,255)
PrivateSubShow1(ToJAsSingle,SeAsLong)
DimIAsSingle,xAsSingle,yAsSingle,x0AsSingle,y0AsSingle
DimaAsSingle,bAsSingle,x1AsSingle,y1AsSingle
IfPicture1.ScaleWidth<
Picture1.ScaleHeightThen
a=Picture1.ScaleWidth*0.45
a=Picture1.ScaleHeight*0.45
b=a*0.25
x=-a:
ZhuanToJ,x,y
x1=a:
y1=0:
ZhuanToJ,x1,y1
Picture1.Line(x0+x,y0+y)-(x0+x1,y0+y1),Se
x=0:
y=-b:
x1=0:
y1=b:
ForI=0ToctP*2Step0.1
x=a*Sin(I):
y=b*Cos(I)
ZhuanToJ,x,y
Picture1.Line-(x0+x,y0+y),Se
PrivateSubZhuan(ToJAsSingle,xAsSingle,yAsSingle)
DimSAsSingle,JAsSingle
S=Sqr(x^2+y^2)
IfS=0ThenJ=0ElseJ=y/S
IfAbs(J)>
=1Then
IfJ>
0ThenJ=ctP*0.5ElseJ=-ctP*0.5
J=Atn(J/Sqr(-J*J+1))
Ifx<
0ThenJ=-ctP-J
x=S*Cos(J+ToJ):
y=S*Sin(J+ToJ)EndSub
五、运行结果
六.心得体会
通过本次课程设计,使我对VB的认识更加深入了一层,VB主要由两部分组成,一个是Visual可视化界面设计,另一个是Basic程序设计。
对于第一部分,我觉得还是比较容易的,因为它比较直观。
就目前我所学的,对于第二部分还是比较困难。
在做设计的过程中发现自己存在不少问题,由于word知识欠缺,我没有办法为我的课程设计创建目录,这让我觉得很遗憾,尤其是对VB编程语句的不熟悉而造成在运行过程的很多次出错。
具体说文本编辑器的设计,首先是控件的使用要注意,例如不能使用平时一般的Text文本框,因为其只适用于一般的文本显示,使用RichTextBox,可拥有文本的完整功能,不用再添加滚动条等控件,而是使用其自带的滚动条;
其实是菜单的设计,应注意菜单的名称书写,不能出现重复现象,否则要使用索引,不仅增加麻烦更不利于程序编写,然后编写代码的时候应注意必须与菜单中的名字一一对应,否则会出现错误;
最后要注意程序的完整性以及实用性、便捷性,能够有友好的UI设计,给用户最好的体验。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课程设计 文本 编辑器
![提示](https://static.bingdoc.com/images/bang_tan.gif)