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

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

2013-06-17 01:05 Button = 1 And (X  0 And X  ImgNew.Width And Y  0 And Y  ImgNew.Height) Then
ImgCopy.Picture = ImageDown.ListImages(Copy).Picture
ElseIf Button = 1 Then
ImgCopy.Picture = ImageUp.ListImages(Copy).Picture
End If
End Sub
Private Sub ImgCopy_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgCopy.Picture = ImageUp.ListImages(Copy).Picture
End If
End Sub

Private Sub ImgCut_Click()
'If Text1.SelLength  0 Then
Cut_Click '剪切
Check_ImgPaste
Check_ImgCutCopy
'End If
End Sub

Private Sub ImgCut_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“按下”按钮
ImgCut.Picture = ImageDown.ListImages(Cut).Picture
End If
End Sub

Private Sub ImgCut_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = 剪切选择的文字到剪裁板

'判断鼠标位置,显示不同图像
If Button = 1 And (X  0 And X  ImgNew.Width And Y  0 And Y  ImgNew.Height) Then
ImgCut.Picture = ImageDown.ListImages(Cut).Picture
ElseIf Button = 1 Then
ImgCut.Picture = ImageUp.ListImages(Cut).Picture
End If
End Sub

Private Sub ImgCut_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgCut.Picture = ImageUp.ListImages(Cut).Picture
End If
End Sub

Private Sub ImgNew_Click()
New_Click
End Sub

Private Sub ImgNew_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“按下”按钮
ImgNew.Picture = ImageDown.ListImages(New).Picture
End If
End Sub

Private Sub ImgNew_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) （转载自科教范文网http://fw.nseac.com）
Label1 = 创建新文件 '修改提示信息

'判断鼠标位置,显示不同图像
If Button = 1 And (X  0 And X  ImgNew.Width And Y  0 And Y  ImgNew.Height) Then
ImgNew.Picture = ImageDown.ListImages(New).Picture
ElseIf Button = 1 Then
ImgNew.Picture = ImageUp.ListImages(New).Picture
End If
End Sub

Private Sub ImgNew_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgNew.Picture = ImageUp.ListImages(New).Picture
End If
End Sub

Private Sub ImgOpen_Click()
Open_Click
End Sub

Private Sub ImgOpen_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'“按下”按钮
If Button = 1 Then
ImgOpen.Picture = ImageDown.ListImages(Open).Picture
End If
End Sub
Private Sub ImgOpen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = 选择文件名并打开文件

'判断鼠标位置,显示不同图像
If Button = 1 And (X  0 And X  ImgNew.Width And Y  0 And Y  ImgNew.Height) Then
ImgOpen.Picture = ImageDown.ListImages(Open).Picture
ElseIf Button = 1 Then
ImgOpen.Picture = ImageUp.ListImages(Open).Picture
End If
End Sub

Private Sub ImgOpen_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgOpen.Picture = ImageUp.ListImages(Open).Picture
End If
End Sub

Private Sub ImgPaste_Click()
Paste_Click '粘贴
End Sub

Private Sub ImgPaste_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“按下”按钮
ImgPaste.Picture = ImageDown.ListImages(Paste).Picture
End If
End Sub

Private Sub ImgPaste_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) （科教范文网 Lw.nsEAc.com编辑整理）
Label1 = 粘贴文本到当前光标位置

'判断鼠标位置,显示不同图像
If Button = 1 And (X  0 And X