MD5 計算器 - VB 與 VB.Net - 麻辣家族討論版版

[原創] MD5 計算器

1^# 跳轉到 »

發表於 2010-10-14 08:38 | 顯示全部帖子

本帖最後由 flying008 於 2010-10-14 08:40 編輯

[list=1]
[*]Public Class Form1
[*] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[*] OpenFileDialog1.FileName = ""
[*] If OpenFileDialog1.ShowDialog() = 1 Then
[*] Label1.Text = "Calculate MD5 sum in progress ..."
[*] TextBox1.Text = Module1.MD5CalcFile(OpenFileDialog1.FileName)
[/list]

複製代碼

呵呵……原来我们论坛真的可以在CODE前面加上行号来发贴, 这样对检索代码就方便多了, 今天又学了一招, 谢谢大大!

只有想不到的,
没有做不到的.

靜思自在 : 天上最美是星星，人生最美是溫情。