Question

高分求助！帮忙翻译一下这段vb程序代码的中文意思

Private Sub CmdSplit_Click()
Dim sBmpFileName As String
Dim sFileName As String
Dim sPassword As String
Dim sfile
'sBmpFileName = Text1.Text
sFileName = Text2.Text
sPassword = txtPassword.Text
'sfile = sBmpFileName
If sPassword = "" Then
MsgBox " 请输入密码 ！ ", vbOKOnly + vbExclamation, " 注意 "
Timer1.Enabled = True
Exit Sub
End If
If OptionJ1.Value = True Then
sBmpFileName = CD1.FileName
Call splitotherfileJ(sBmpFileName, sFileName, sPassword) ' 调用分离出密文的子程序
MsgBox " 文件解密完毕，请选择适当方式查看密文！ ", vbOKOnly + vbInformation, " 祝贺你 "
Text4.BackColor = &HFFC0C0
Text4.Font = "楷体"
Open (CommonDialog2.FileName) For Output Access Write As #4
Print #4, Text4.Text '将rich1.Text的内容写入文件号为4的文件
Close #4
End If
If OptionJ2.Value = True Then
If rich1.Text = "" Then ' 判断密文是否为空
MsgBox " 文件为空,请选择有效文件！ ", vbOKOnly + vbExclamation, " 注意 "
Exit Sub
End If
If rich1.Text <> "" Then
Text4.Text = DES.DecryptString(rich1.Text, txtPassword.Text)
Text4.BackColor = &HFFC0C0
Text4.Font = "楷体"
End If
Open (CommonDialog2.FileName) For Output Access Write As #4
Print #4, Text4.Text '将rich1.Text的内容写入文件号为4的文件
Close #4
MsgBox "文件解密完毕！ ", vbOKOnly + vbInformation, " 祝贺你 "
End If
Dim FileName As String
Dim pass() As Byte
Dim KeyBits As Long
Dim BlockBits As Long
If OptionJ3.Value = True Then
If rich1.Text = "" Then ' 判断密文是否为空
MsgBox " 文件为空,请选择有效文件！ ", vbOKOnly + vbExclamation, " 注意 "
Exit Sub
End If
If rich1.Text <> "" Then
FileName = Text2.Text
If Len(FileName) <> 0 Then
If InStrRev(FileName, ".txt") = Len(FileName) - 3 Then FileName2 = Left$(FileName, Len(FileName) - 4)
FileName2 = FileDialog(Me, True, "解密数据另存为：", "另存为 |*.*|*.txt|*.aes|*.*")
If Len(FileName2) <> 0 Then
RidFile FileName2
KeyBits = cboKeySize.ItemData(cboKeySize.ListIndex)
BlockBits = cboBlockSize.ItemData(cboBlockSize.ListIndex)
pass = GetPassword
Status = "Decrypting File"
#If SUPPORT_LEVEL Then
m_Rijndael.SetCipherKey pass, KeyBits, BlockBits
m_Rijndael.FileDecrypt FileName2, FileName, BlockBits
#Else
m_Rijndael.SetCipherKey pass, KeyBits
m_Rijndael.FileDecrypt FileName2, FileName
#End If
Status = ""
End If
End If

Answer 1

rivate Sub CmdSplit_Click()
私人次级CmdSplit_Click()

Dim sBmpFileName As String
昏暗的sBmpFileName字符串

Dim sFileName As String
昏暗的sFileName字符串

Dim sPassword As String
昏暗的sPassword字符串

Dim sfile
昏暗的sfile

'sBmpFileName = Text1.Text
sBmpFileName = Text1.Text '

sFileName = Text2.Text
sFileName = Text2.Text

sPassword = txtPassword.Text
sPassword = txtPassword.Text

'sfile = sBmpFileName
sfile = sBmpFileName的

If sPassword = "" Then
如果sPassword =”“那么

MsgBox " 请输入密码 ！ ", vbOKOnly + vbExclamation, " 注意 "
“请输入密码MsgBox !”,vbOKOnly + vbExclamation注意“,”

Timer1.
Timer1。

Enabled = True
=真正使

Exit Sub
退出子

End If
结束

If OptionJ1.
如果OptionJ1。

Value = True Then
价值=如此,那

sBmpFileName = CD1.FileName
sBmpFileName = CD1.FileName

Call splitotherfileJ(sBmpFileName, sFileName, sPassword)
(sBmpFileName splitotherfileJ,sFileName打电话,sPassword)

' 调用分离出密文的子程序
'调用分离出密文的子程序

MsgBox " 文件解密完毕，请选择适当方式查看密文！ ", vbOKOnly + vbInformation, " 祝贺你 "
“文件解密完毕MsgBox,请选择适当方式查看密文!”,vbOKOnly + vbInformation”,祝贺你”

Text4.
Text4。

BackColor = &HFFC0C0
&HFFC0C0 BackColor =

Text4.
Text4。

Font = "楷体"
字体= "楷体”

Open (CommonDialog2.FileName) For Output Access Write As #4
开放的(CommonDialog2.FileName)输出接入写4号

Print #4, Text4.
打印# 4,Text4。

Text '将rich1.Text的内容写入文件号为4的文件
将rich1.Text的内容写入文件号为4的文件文本'

Close #4
关闭# 4

End If
结束

If OptionJ2.
如果OptionJ2。

Value = True Then
价值=如此,那

If rich1.
如果rich1。

Text = "" Then ' 判断密文是否为空
文本= " "然后'判断密文是否为空

MsgBox " 文件为空,请选择有效文件！ ", vbOKOnly + vbExclamation, " 注意 "
“文件为空MsgBox,请选择有效文件!”,vbOKOnly + vbExclamation注意“,”

Exit Sub
退出子

End If
结束

If rich1.
如果rich1。

Text <> "" Then
文本< >”“那么

Text4.
Text4。

Text = DES.DecryptString(rich1.Text, txtPassword.Text)
(rich1.Text = DES.DecryptString文本,txtPassword.Text)

Text4.
Text4。

BackColor = &HFFC0C0
&HFFC0C0 BackColor =

Text4.
Text4。

Font = "楷体"
字体= "楷体”

End If
结束

Open (CommonDialog2.FileName) For Output Access Write As #4
开放的(CommonDialog2.FileName)输出接入写4号

Print #4, Text4.
打印# 4,Text4。

Text '将rich1.Text的内容写入文件号为4的文件
将rich1.Text的内容写入文件号为4的文件文本'

Close #4
关闭# 4

MsgBox "文件解密完毕！ ", vbOKOnly + vbInformation, " 祝贺你 "
“文件解密完毕MsgBox !”,vbOKOnly + vbInformation”,祝贺你”

End If
结束

Dim FileName As String
昏暗的文件名字符串

Dim pass() As Byte
昏暗的传球()为字节

Dim KeyBits As Long
昏暗的KeyBits一样长

Dim BlockBits As Long
昏暗的BlockBits一样长

If OptionJ3.
如果OptionJ3。

Value = True Then
价值=如此,那

If rich1.
如果rich1。

Text = "" Then ' 判断密文是否为空
文本= " "然后'判断密文是否为空

MsgBox " 文件为空,请选择有效文件！ ", vbOKOnly + vbExclamation, " 注意 "
“文件为空MsgBox,请选择有效文件!”,vbOKOnly + vbExclamation注意“,”

Exit Sub
退出子

End If
结束

If rich1.
如果rich1。

Text <> "" Then
文本< >”“那么

FileName = Text2.Text
Text2.Text文件名=

If Len(FileName) <> 0 Then
如果兰(文件名)< > 0即可

If InStrRev(FileName, ".txt") = Len(FileName) - 3 Then FileName2 = Left$(FileName, Len(FileName) - 4)
如果InStrRev(文件名,“.txt”)=莱恩(文件名)- 3然后FileName2美元=离开(文件名,莱恩(文件名)- 4)

FileName2 = FileDialog(Me, True, "解密数据另存为：", "另存为 |*.*|*.txt|*.aes|*.*")
FileName2 = FileDialog(我,真的,”解密数据另存为”、“另存为| * * . * * .aes | | | .txt * . *”)

If Len(FileName2) <> 0 Then
如果兰(FileName2)< > 0即可

RidFile FileName2
RidFile FileName2

KeyBits = cboKeySize.ItemData(cboKeySize.ListIndex)
KeyBits = cboKeySize.ItemData(cboKeySize.ListIndex)

BlockBits = cboBlockSize.ItemData(cboBlockSize.ListIndex)
BlockBits = cboBlockSize.ItemData(cboBlockSize.ListIndex)

pass = GetPassword
= GetPassword通过

Status = "Decrypting File"
解密档案”地位= "

#If SUPPORT_LEVEL Then
#如果SUPPORT_LEVEL然后

m_Rijndael.
m_Rijndael。

SetCipherKey pass, KeyBits, BlockBits
过去,KeyBits BlockBits SetCipherKey,

m_Rijndael.
m_Rijndael。

FileDecrypt FileName2, FileName, BlockBits
FileDecrypt BlockBits FileName2,文件名,

#Else
#别的

m_Rijndael.
m_Rijndael。

SetCipherKey pass, KeyBits
KeyBits SetCipherKey过去,

m_Rijndael.
m_Rijndael。

FileDecrypt FileName2, FileName
FileDecrypt FileName2,文件名

#End If
#结束

Status = ""
状态=”“

End If
结束

End If
结束

Answer 2

幽幽，:)