学生档案管理系统

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

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

?????????????????????????????

??????????????????????????????????

???????????