有没有一种VB的翻译软件。。就是输入一段VB的代码。。马上就能翻译出这段代码的意思。。

有没VB的代码翻译器？~

怎么可能有呢，就算有也是收费的！
最近微软和IBM都在构建一个平台！
就是要达到什么功能只要按一个命令键就能产生一段此功能的代码！

上面有一些语我也不懂，我只把我懂的简单地翻译了一下，希望对你有帮助：
Option Explicit

Private logintestCount As Integer '记录错误的登录次数

Private Sub cmdCancel_Click()
Unload Me '卸载当前窗体（退出当前界面）
End Sub

Private Sub cmdClose_Click()
Unload Me '卸载当前窗体（退出当前界面）
End Sub

Private Sub cmdOK_Click()
Dim strSql As String '定义字符串变量strsql 用于存放查询条件

strSql = " Oper_ID = " & "'" & dcmbOperName.BoundText & "'" '查询条件赋值给strsql字符变量



If Not (rctOperatorList.EOF And rctOperatorList.BOF) Then '当数据库的指针不是EOF状态进和指针不是BOF状态时进行查找

rctOperatorList.Find (strSql) '在数据表（rctoperatorlist是一个数据表类型的对象，已经连接一个数据表）中查找满足条件strsql的数据记录集合，并返回到其结果到rctoperatorlist

If Not (rctOperatorList.EOF Or rctOperatorList.BOF) Then

If Trim(rctOperatorList.Fields("Oper_Pass")) = Trim(txtOperPass.Text) Then '核对数据表中字段为oper_pass的值是否与
txtoperpass文本框中的字符一致，如果相同则
执行以下代码：

'以下代码是密码输入正确时的处理
OperaterName = Trim(dcmbOperName.Text) '记录当前用户
frmMain.Show '显示主窗体
Unload Me
Exit Sub
Else

'以下是密码输入错误的处理
logintestCount = logintestCount + 1 '将logintestcount变量自加1


'判断密码错误次数是否超过或等于三次 如果超过则关闭
If logintestCount >= 3 Then
MsgBox "您已经登录三次都失败，系统关闭", vbInformation + vbOKOnly, "非法用户" '给出提示三次输入密码错误
Unload Me '关闭窗体
Exit Sub '退出此子程序
Else

txtOperPass.SetFocus
End If
End If
Else
logintestCount = logintestCount + 1
If logintestCount >= 3 Then
MsgBox "您已经登录三次都失败，系统关闭", vbInformation + vbOKOnly, "非法用户"
Unload Me
Exit Sub
Else
txtOperPass.SetFocus
End If
End If

Else

MsgBox "数据库中没有操作用户数据", vbCritical + vbOKOnly, "系统错误"
Unload Me
Exit Sub
End If







End Sub

Private Sub Form_Load()
'以下是定义各按钮的颜色
cmdClose.BackColor = RGB(236, 226, 216)
cmdOK.BackColor = RGB(209, 215, 231)
cmdCancel.BackColor = RGB(209, 215, 231)
If ExcuteSql(rctOperatorList, "select * from OperatorList") = True Then
'
Set dcmbOperName.RowSource = rctOperatorList
dcmbOperName.BoundColumn = "Oper_ID"
dcmbOperName.ListField = "OPer_Name"
dcmbOperName.BoundText = "01"



Else
MsgBox "打开数据库失败,系统关闭!", vbCritical + vbOKOnly, "初始化错误"
Unload Me

End If

End Sub
问题补充：frmLeavel.tblEmployees.Buttons("modify").Visible = False '窗体上的修改的按钮设置为不可见

frmLeavel.tlbPrint.Left = 30 '窗体frmLeavel上的tlbPrint控件离窗体左边距离为30



－－－－－－－－－－－－－－－－－－－－－－－－－－－
另外 下面我给了我自己编写的一个用户登录代码，供你参考：
Private Sub Cmd_ok_Click()
Dim User As String
Dim Pwd As String
Static Pwd1 As String '当用户名正确时将数据表中的密码保存
Static ncount As Integer
Static Iscan As Boolean


User = Trim(Me.Txt_username.Text)
Pwd = Trim(Me.Txt_password.Text)


If Iscan = True Then GoTo Next1 '如果上次用户名正确则直接跳转到next1处 不用再出入数据表进行核对了

if rs_login.state then rs_login.close '如果数据已经打开则关闭它

rs_login.open "select * from 用户信息",conn,adOpenStatic, adLockOptimistic '连接数据表

Do While (rs_login.EOF = False)
If User = rs_login.Fields("用户名").Value Then
Iscan = True
Pwd1 = rs_login.Fields("密码").Value '从数据库中取出正确的密码以便当再次核对密码时用
End If

If Pwd = Pwd1 And Iscan = True Then
MsgBox "登录成功！", vbOKOnly + vbExclamation, ""
Curr_user = User
Curr_pwd = Pwd
User_Pow = rs_login.Fields("权限").Value
Unload Me
Exit Sub
Else
rs_login.MoveNext
End If
Loop

If Iscan = False Then
MsgBox "对不起，没有此用户！", vbOKOnly + vbExclamation, ""
Me.Txt_username.Text = ""
Me.Txt_password.Text = ""
Me.Txt_username.SetFocus
Exit Sub
End If

Next1:
ncount = ncount + 1

If ncount = 3 Then
MsgBox "密码三次输入错误，非法用户！", vbOKOnly, ""
ncount = 0
Unload Me
Else
If Pwd = Pwd1 Then
MsgBox "登录成功！", vbOKOnly + vbExclamation, ""
Curr_user = User
Curr_pwd = Pwd
User_Pow = rs_login.Fields("权限").Value
Unload Me
Exit Sub
Else
MsgBox "密码第" & ncount & "次输入错误！", vbOKOnly + vbExclamation, ""
Me.Txt_password.Text = ""
Me.Txt_password.SetFocus
End If
End If

没有，不过你自己都可以翻译。
方法：将这段代码复制到记事本中，然后“查找”=》“替换”
然后批量把"if"替换成”如果“;"then"替换成"那么";等等。。。。。。

你太有才了，这都能想得出来!

你所要的这种软件估计是没有的。另外，你是不是以为VB是跟英语一样的，是人说的语言呢？

没有。

msdn

---

邻水县19377901734： 求用vb编写一个'文字翻译成代码'的软件 - ？
函厘舒心： 两个批处理 第一输入的 color d echo off echo. 两次输入内容 set /p dosname=请输入内容:echo %dosname%>>test.txt set /p dosname=请输入内容:echo %dosname%>>test.txt pause ———————————————————— 保存成批处理...

邻水县19377901734： 有没VB的代码翻译器? - ？
函厘舒心： 怎么可能有呢,就算有也是收费的!最近微软和IBM都在构建一个平台!就是要达到什么功能只要按一个命令键就能产生一段此功能的代码!

邻水县19377901734： 打一个字母,会自动补全单词的是什么软件啊? 如图 - ？
函厘舒心： 这不算是自动补全... 这是VB软件,一种计算机语言撰写软件,你说的里面那些补全的其实是整个软件里面以那个字母(就是所谓的输入的那个)开头的所有命令、执行方法等命令或操作而已,很多变成软件都有这个功能,这是为了方便编程人员不必费力去记住一些难记的命令.如果你想试一下,我记得灵格斯词霸或者金山词霸都有类似功能

邻水县19377901734： VB能生成exe文件,有没有什么软件把exe翻译成VB或者代码什么的?？
函厘舒心： 可以用VB反编译精灵 一款VB程序反编译工具,能够反编译VB5/VB6的部分程序代码. 主要功能如下: 1、分析程序所用窗体,模块,类模块API,图标,图像; 2、反编译P-CodeExe代码; 3、重建VB工程; 4、加密模块,防止其它软件反编译; 5、抓取内存映射文件. 但前提是软件没有加密,没有加壳,否则的话需要脱壳才能反编译

邻水县19377901734： 能用VB做个语言翻译的软件么,比如把汇编翻译成C语言？
函厘舒心： 前端时间我就是这样想的,不过差别是我是将汇编语言翻译为机器码,相比你这个难度要大的多 你的这个只用将每个指令的意思与c指令的意思相近 然后在匹配就行 纯粹脑力活(也可以找些命令翻译文档进行有格式的匹配就不用那么复杂了) 比如 字符串 mov eax,ecx 复制内存,你找到c对应的指令,然后匹配就行了

邻水县19377901734： vb怎么做翻译器 - ？
函厘舒心： 需要数据库定义单词以及语法.

邻水县19377901734： 有没有用vb做的,用来翻译英语单词的工程文件?使用access数据库 - ？
函厘舒心： VB做翻译英文单词的软件非常简单,关键是存储英-汉 或 汉-英的数据库,如果你有这样的Access数据库,帮你做一个.

邻水县19377901734： VB怎么做中英文翻译器?请提供代码和所需要文件! - ？
函厘舒心： 采用数据库,比较方便:先谈谈简单思路:把所有单词,放入一个数据表,只要2个字段,英文,中文.然后,在窗体上添加2个文本框,1个按钮.2个文本框,1个用来处理英文,另1个用来处理中文 当输入英文,单击按钮,就到数据表查询,若找到,就显示中文,若没找到就显示“错误提示” 当输入中文,单击按钮,就到数据表查询,若找到,就显示英文,若没找到就显示“错误提示” 这是最简单的思路:当单词不断增加,可以分别以第1个字母为表名,建立多个表;还可以建立索引;等等方法.

邻水县19377901734： 好用的VB反编译软件 - ？
函厘舒心： 我用过,反编译精灵,也是用vb写的,它能反编译出所有定义的api,所有窗体,但不完全!

邻水县19377901734： 什么叫做“vB编程”.？
函厘舒心： VB 是Visual Basic编程语言 编写计算机程序需要使用计算机编程语言.计算机编程语言是人和计算机“对话”的桥梁.就像人类的语言一样,计算机编程语言也有很多.目前较为广泛使用的语言有“C ”、“Pascal”、“Basic”等.在众多的...