VB+学生档案管理系统 (一)毕业论文(7)

2013-06-17 01:05

导读：cture1_Resize() If Picture1.Width Label1.Left Then Label1.Width = Picture1.ScaleWidth - Label1.Left End If End Sub Private Sub Save_Click() Dim FileNum As Integer '文件句柄号 CommonDialog1.ShowSa

cture1_Resize()
If Picture1.Width Label1.Left Then
Label1.Width = Picture1.ScaleWidth - Label1.Left
End If
End Sub

Private Sub Save_Click()
Dim FileNum As Integer '文件句柄号

CommonDialog1.ShowSave '显示保存对话框
If Len(CommonDialog1.FileName) 0 Then
'有输入文件名
FileName = CommonDialog1.FileName '保存文件名
FileNum = FreeFile() '获得可用文件号
Open FileName For Output As FileNum '打开输出文件
'如果无指定文件，则创建新文件
Print #FileNum, Text1.Text '输出文本
Close FileNum '关闭文件
Me.Caption = 记事本 - + FileName '修改标题显示
ImgUndoDisable
End If
End Sub

Private Sub Text1_Change()
If Not ImgUndo.Enabled Then
'使“Undo”按钮可用
ImgUndoEnable
End If
UndoString = UndoNew
UndoNew = Text1
End Sub

Private Sub Text1_Click()
Check_ImgCutCopy
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Check_ImgCutCopy
End sub

上一篇：VB+图书管理系统的设计与实现(一)毕业论下一篇：没有了