学生档案管理系统【荐】.docVIP

学生档案管理系统 UndoString= UndoNew= ImgUndo.Enabled=False ImgUndo.Picture=ImageDisable.ListImages(Undo).Picture EndSub PrivateSubImgUndoEnable() 有效“Undo”按钮 ImgUndo.Enabled=True ImgUndo.Picture=ImageUp.ListImages(Undo).Picture EndSub PrivateSubCheck_ImgPaste() 设置粘贴按钮 IfLen(Clipboard.GetText)0Then ImgPaste.Enabled=True ImgPaste.Picture=ImageUp.ListImages(Paste).Picture Else ImgPaste.Enabled=False ImgPaste.Picture=ImageDisable.ListImages(Paste).Picture EndIf EndSub PrivateSubCheck_ImgCutCopy() 设置剪切、复制按钮 IfText1.SelLength0Then ImgCut.Enabled=True ImgCut.Picture=ImageUp.ListImages(Cut).Picture ImgCopy.Enabled=True ImgCopy.Picture=ImageUp.ListImages(Copy).Picture Else ImgCut.Enabled=False ImgCut.Picture=ImageDisable.ListImages(Cut).Picture ImgCopy.Enabled=False ImgCopy.Picture=ImageDisable.ListImages(Copy).Picture EndIf EndSub PrivateSubBackColor_Click() CommonDialog1.ShowColor Text1.BackColor=CommonDialog1.Color EndSub PrivateSubBox_Click() 显停工具栏 IfBox.CheckedThen 将停显工具栏 Box.Checked=False CoolBar1.Visible=False Else Box.Checked=True CoolBar1.Visible=True EndIf Form_Resize重新调整控件位置 EndSub PrivateSubClose_Click() DimFileNumAsInteger IfLen(FileName)0Then 有输入文件名 FileNum=FreeFile()获得可用文件号 OpenFileNameForOutputAsFileNum打开输出文件 如果无指定文件，则创建新文件 Print#FileNum,Text1.Text输出文本 CloseFileNum关闭文件 EndIf Text1.Text= FileName= EndSub PrivateSubComboSize_Click() Text1.FontSize=Val(ComboSize.Text) EndSub PrivateSubComboFont_Click() Text1.FontName=ComboFont.Text EndSub PrivateSubCopy_Click() Clipboard.SetTextText1.SelText复制文本到剪裁板 EndSub PrivateSubCut_Click() Clipboard.SetTextText1.SelText复制文本到剪裁板 Text1.SelText=清选择的文本 EndSub PrivateSubDataTime_Click() Text1.SelText=Now EndSub PrivateSubDelete_Click() Text1.SelText=清选择的文本 EndSub PrivateSubEdit_Click() 当程序显示“编辑”子菜单前，触发该程序 IfText1.SelLength0Then 文本框中有选中的文本 Cut.Enabled=True Copy.Enabled=True Delete.Enabled=True Else Cut.Enabled=False Copy.Enabled=False Delete.Enabled=False EndIf IfLen(Clipboard.GetText())0Then 剪裁板中有文本数据 Paste.Enabled=True Else 没有可粘贴的