-- 发布时间：12/13/2005 9:55:00 PM
-- 跪求哪位能帮忙把下面的VB翻译成C# 有急用谢谢
Dim a As IntegerPrivate Sub Command1_Click()
If a < File1.ListCount Then
File1.Selected(a) = True
a = a + 1
Else
a = 0
End If
End Sub
Private Sub Command2_Click()
CommonDialog1.CancelError = True
On Error GoTo errhandler
CommonDialog1.Filter = "BMP图象文件(*.bmp)|*.bmp|JPG图象文件*.jpg|*.jpg"
CommonDialog1.ShowSave
CloseFile (CommonDialog1.FileName)
errhandler:
End Sub
Public Sub CloseFile(FileName As String)
Dim F As InputModeConstants
F = FreeFile
Open FileName For Output As F
Print #F, frmCD!txtCD.txt
FileName = CommonDialog1.FileName
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
a = 0
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
a = 0
End Sub
Private Sub File1_Click()
SelectedFile = File1.Path & "\" & File1.FileName
a = File1.ListIndex
Image1.Picture = LoadPicture(SelectedFile)
End Sub