帮忙翻译VB代码

来源：百度知道 编辑：UC知道 时间：2024/07/02 09:42:10
Private Sub mnufuzhi_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
End Sub

Private Sub mnujianqie_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub

Private Sub mnuqianjing_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub

Private Sub mnuqingchu_Click()
Text1.Text = ""
End Sub

Private Sub mnuquanxuan_Click()
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub mnutui_Click()
Unload Me
End Sub

Private Sub mnutuichu_Click()
mnutui_Click
End Sub

Private Sub mnuzhantie_Click()
Text1.SelText = Clipboard.GetText

-----------------------------------------

全部翻译下,谢谢。.

Private Sub mnufuzhi_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText '设置包含当前所选择文本的字符串
End Sub

Private Sub mnujianqie_Click()
Clipboard.Clear '剪贴板清空
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub

Private Sub mnuqianjing_Click()
CommonDialog1.ShowColor '调用对话框控件 打开调色板
Text1.ForeColor = CommonDialog1.Color 'text1前景色为选择的颜色
End Sub

Private Sub mnuqingchu_Click()
Text1.Text = ""
End Sub

Private Sub mnuquanxuan_Click()
Text1.SetFocus 'text1 获得焦点
Text1.SelStart = 0 '光标起始位置为0
Text1.SelLength = Len(Text1.Text) '设置所选择的字符数
End Sub

Private Sub mnutui_Click()
Unload Me '卸载自身
End Sub

Private Sub mnutuichu_Click()
mnutui_Click '调用mnutui_Click过程
End Sub

Private Sub mnuzhantie_Click()
Text1.SelText = Clipboard.GetText '剪贴板文本赋值替换选定的文本

Priv