评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

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

2013-06-17 01:05 mages(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
End If
End Sub
Private Sub BackColor_Click()
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
End Sub

Private Sub Box_Click()
'显停工具栏
If Box.Checked Then
'将停显工具栏
Box.Checked = False
CoolBar1.Visible = False
Else
Box.Checked = True
CoolBar1.Visible = True
End If

Form_Resize '重新调整控件位置
End Sub

Private Sub Close_Click()
Dim FileNum As Integer

If Len(FileName)  0 Then
'有输入文件名
FileNum = FreeFile() '获得可用文件号
Open FileName For Output As FileNum '打开输出文件
'如果无指定文件，则创建新文件
Print #FileNum, Text1.Text '输出文本
Close FileNum '关闭文件
End If

Text1.Text =
FileName =
End Sub

Private Sub ComboSize_Click()
Text1.FontSize = Val(ComboSize.Text)
End Sub

Private Sub ComboFont_Click()
Text1.FontName = ComboFont.Text
End Sub

Private Sub Copy_Click()
Clipboard.SetText Text1.SelText '复制文本到剪裁板
End Sub

Private Sub Cut_Click()
Clipboard.SetText Text1.SelText '复制文本到剪裁板
Text1.SelText =  '清选择的文本
End Sub

Private Sub DataTime_Click()
Text1.SelText = Now
End Sub

Private Sub Delete_Click()
Text1.SelText =  '清选择的文本
End Sub

Private Sub Edit_Click()
'当程序显示“编辑”子菜单前，触发该程序
If Text1.SelLength  0 Then
'文本框中有选中的文本
Cut.Enabled = True

（科教范文网 Lw.nsEAc.com编辑整理）

Copy.Enabled = True
Delete.Enabled = True
Else
Cut.Enabled = False
Copy.Enabled = False
Delete.Enabled = False
End If

If Len(Clipboard.GetText())  0 Then
'剪裁板中有文本数据
Paste.Enabled = True
Else
'没有可粘贴的文本
Paste.Enabled = False
End If
End Sub

Private Sub Exit_Click()
Unload Me
End Sub

Private Sub FindText_KeyPress(KeyAscii As Integer)
Dim BeginPos As Long

If KeyAscii = 13 Then
BeginPos = InStr(1, Text1.Text, FindText.Text, vbTextCompare)
If BeginPos  0 Then
Text1.SelStart = BeginPos - 1
Text1.SelLength = Len(FindText.Text)
End If
End If
End Sub

Private Sub Fontcolor_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub

Private Sub Form_Load()
Dim i As Integer

'加载图像
ImgNew.Picture = ImageUp.ListImages(New).Picture
ImgOpen.Picture = ImageUp.ListImages(Open).Picture
ImgSave.Picture = ImageUp.ListImages(Save).Picture
ImgUndo.Picture = ImageDisable.ListImages(Undo).Picture
Check_ImgPaste
Check_ImgCutCopy

'加载系统字体
For i = 0 To Screen.FontCount - 1
ComboFont.AddItem Screen.Fonts(i)
Next i
End Sub

Private Sub Form_Resize()
Dim TextTop As Long

'修改工具条大小
CoolBar1.Top = Me.ScaleTop

 

 

 

 

 Me.ScaleLeft
Text1.Width = Me.ScaleWidth
If Me.ScaleHeight  CoolBar1.Height Then
Text1.Height = Me.ScaleHeight - TextTop
Else
Text1.Height = 0
End If
End Sub

Private Sub ImgCopy_Click()
Copy_Click '复制
Check_ImgPaste
Check_ImgCutCopy
End Sub

Private Sub ImgCopy_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

（转载自中国科教评价网http://www.nseac.com）

'“按下”按钮
If Button = 1 Then
ImgCopy.Picture = ImageDown.ListImages(Copy).Picture
End If
End Sub

Private Sub ImgCopy_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = 将选择的文本复制到剪裁板

'判断鼠标位置,显示不同图像
If