抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

kevinchengcw · 发表于 2010-3-18 10:08

原帖由 zm0115 于 2010-3-18 08:29 发表
楼主这么快就整出来了？好记得前几天还在您那个设想的帖子里面才留过言。
谢谢分享

的确意外，我最初以为要写一个月呢，不过最近几次的经验告诉我，如果有思路的话，很多东西写起来没有想象的那么困难，只是在最后的完善阶段反而耗时最长

小虫网络 · 发表于 2010-3-18 11:04

谢谢楼主的无私精神，向楼主致敬！

mail906 · 发表于 2010-3-18 11:34

谢谢楼主，我等的福音啊

zwacml · 发表于 2010-3-18 11:39

好，对我有帮助

joforn · 发表于 2010-3-18 12:04

大家一致都是高调的赞美。
我来挑几个刺，希望不要介意啊……

Option Explicit '强制定义变量(如果有本句存于开始，则所有变量需定义)
'
Private Declare Function SetFocusAPI Lib "user32.dll" Alias "SetFocus" (ByVal hWnd As Long) As Long '私有的Declare函数SetFocusAPILib"user32.dll"Alias"SetFocus"(变量hWnd类型为长整型值)类型为长整型值
Private Declare Function CreateWindowEx Lib "user32.dll" Alias "CreateWindowExW" (ByVal dwExStyle As Long, lpClassName As Any, lpWindowName As Any, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, ByRef lpParam As Any) As Long
Private Declare Function CreateFont Lib "gdi32.dll" Alias "CreateFontW" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, F As Any) As Long
Private Declare Function DestroyWindow Lib "user32.dll" (ByVal hWnd As Long) As Long '私有的Declare函数DestroyWindowLib"user32.dll"(变量hWnd类型为长整型值)类型为长整型值
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageW" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long '私有的Declare函数SendMessageLib"user32.dll"Alias"SendMessageW"(变量hWnd类型为长整型值,变量wMsg类型为长整型值,变量wParam类型为长整型值,ByReflParam类型为Any)类型为长整型值
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long '私有的Declare函数ShowWindowLib"user32.dll"(变量hWnd类型为长整型值,变量nCmdShow类型为长整型值)类型为长整型值

复制代码

上面的代码翻译后只有第一条是有意义的解释，其它的让人看了只能是一头雾水……

kevinchengcw · 发表于 2010-3-18 12:11

原帖由 joforn 于 2010-3-18 12:04 发表
大家一致都是高调的赞美。
我来挑几个刺，希望不要介意啊……
Option Explicit '强制定义变量(如果有本句存于开始，则所有变量需定义)
'
Private Declare Function SetFocusAPI Lib "user32.dll" A ...

说的没错，对API调用这一块也没有加进来，还包括正则，SQL等这些高级应用的，说真的，我也不会，所以没办法写出来，不知有没有人肯帮忙

[ 本帖最后由 kevinchengcw 于 2010-3-18 12:42 编辑 ]

joforn · 发表于 2010-3-18 12:13

Private Sub Class_Initialize() '私有的子程序Class_Initialize()
  Dim byteT() As Byte '定义变量byteT()类型为Byte 基本上没有意义
'
  mvarWidth = 65 ' mvarWidth=65 这种情况下不翻译也行
  mvarHeight = 28 ' mvarHeight=28
  mvarCaption = "Button" ' mvarCaption="Button"
  mvarVisible = SW_SHOW ' mvarVisible=SW_SHOW
  byteT = "Tahoma" & vbNullChar 'byteT="Tahoma" & vbNullChar
  mFonthWnd = CreateFont(15, 0, 0, 0, FW_REGULAR, 0, 0, 0, DEFAULT_CHARSET, _ ' mFonthWnd=CreateFont(15,0,0,0,FW_REGULAR,0,0,0,默认值_CHARSET,_
         OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, _ 'OUT_默认值_PRECIS,CLIP_默认值_PRECIS,默认值_QUALITY,_
         DEFAULT_PITCH Or FF_DONTCARE, byteT(0)) '默认值_PITCH或者FF_DONTCARE, byteT(0)) 估计是DeFAULT这个词造成的，结果翻译成了天书
  Erase byteT 'ErasebyteT 这句翻译有问题，其意思应该是销毁ByteT数组
End Sub '子程序结束

上面测试的是声明部分，这一段是代码部分，看来还是有许多关键字没有正确的翻译。加颜色部分是我加的说明……

blackttea · 发表于 2010-3-18 12:45

谢谢楼主的奉献，得益非浅。

kevinchengcw · 发表于 2010-3-18 13:31

原帖由 joforn 于 2010-3-18 12:13 发表

上面测试的是声明部分，这一段是代码部分，看来还是有许多关键字没有正确的翻译。加颜色部分是我加的说明……

未翻译是因为没有相应的关键字词条在查询库中，如果加入就可以翻译了，我所收集的是个人使用范围内的词条，所以期待各位来扩大查询库的词汇量，说真的，您列的这些都是我未使用过的，我也翻译不出来具体的意思，所以不敢误人子弟

本程序适合辅助初接触VBA的人学习VBA，但因本人能力有限对高级别的没用过，所以有赖各位帮忙了

txzhuer · 发表于 2010-3-18 13:57

初学

		自动登录	找回密码
密码			免费注册

[分享] 抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

评分