Vbzip源代碼

進口系統。超正析象管(Image Orthicon)

進口系統。文本

公共類表單1

Dim文件路徑為String = "d:\MyTest.txt "

將文件系統顯示為文件流

Dim寫入assystem.io.streamwriter。

Dim讀取assystem.io.streamwriter。

Dim文件內容容器為RichTextBox = New RichTextBox

private Sub button 1 _ Click(ByVal sender As System。對象，ByVal e作為系統。EventArgs)處理按鈕1。點擊

如果文件。Exists(文件路徑)= False。

Fs =文件。創建(文件路徑)

fs。關閉()

如果…就會結束

write = my . computer . file system . opentextfilewriter(文件路徑，False)。

ComboBox1。Items.Clear()

對於I為整數= 1到10

寫吧。WriteLine("第壹個" &；我& amp“變量”)

ComboBox1。項目.增加(壹)

然後

ComboBox1。SelectedIndex = 0

寫吧。關閉()

文件內容容器。文本= " "

文件內容容器。LoadFile(文件路徑，richtextboxstreamtype.plaintext)

末端接頭

private Sub button 2 _ Click(ByVal sender As System。對象，ByVal e作為系統。EventArgs)處理Button2。點擊

MsgBox(文件內容容器。行(組合框1。selectedindex)。tostring)

末端接頭

私有子表單1 _ Load(ByVal sender As System。對象，ByVal e作為系統。EventArgs)處理MyBase。負荷

末端接頭

結束類

右擊圖片選擇目標為？把文件擴展名設為JPG？ZIP解壓反而可以得到源代碼，如果不信任請先殺毒。