007
01.09.2006, 13:45 Uhr
jeller
|
| Visual Basic: |
Imports System.Text
Imports System.IO
Public Class Form1
Private Sub FolderBrowserDialog1_HelpRequest(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
ofd1.ShowDialog()
End Sub
Private Sub cmden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmden.Click
System.IO.File.Encrypt(ofd1.FileName)
End Sub
Private Sub ofd1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ofd1.FileOk
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Private Sub cmdde_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdde.Click
System.IO.File.Decrypt(ofd1.FileName)
End Sub
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
End
End Sub
Private Sub DateiToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateiToolStripMenuItem.Click
End Sub
End Class
|
|
