谁能帮我把这个易语言的代码翻译成VB的？

悲衰的事实 · 发表于 2012-4-13 19:38:41

本帖最后由悲衰的事实于 2012-4-13 19:41 编辑

谢谢了

代码：

[e]
.版本 2
.程序集窗口程序集1
.子程序 _按钮1_被单击
.如果 (编辑框1.内容＝ “” 且编辑框2.内容＝ “”)
信息框 (“请输入完整内容！”, 0, “提示”)
.否则
.如果 (编辑框1.内容＝ “”)
      信息框 (“请输入完整内容！”, 0, “提示”)
.否则
      .如果 (编辑框2.内容＝ “”)
         信息框 (“请输入完整内容！”, 0, “提示”)
      .否则
         .如果 (信息框 (“将会在软件运行目录下生成一个导出图片.jpg 的文件，如果存在会直接覆盖，确认继续吗？？”, 4, “询问”) ＝ #是钮)
            写到文件 (取运行目录 () ＋ “\” ＋ “导出图片.jpg”, 快照 (图片框1.取窗口句柄 (), , ))
            信息框 (“创建完毕，已放至程序运行目录下”, 0, “提示”)
         .否则
            返回 ()
         .如果结束
      .如果结束
.如果结束
.如果结束

[/e]

这个代码抽了，文字在楼下

悲衰的事实 · 发表于 2012-4-13 19:39:37

本帖最后由悲衰的事实于 2012-4-13 19:40 编辑

抽了......
直接发文字源码吧

.版本 2
.程序集窗口程序集1
.子程序 _按钮1_被单击
.如果 (编辑框1.内容＝ “” 且编辑框2.内容＝ “”)
信息框 (“请输入完整内容！”, 0, “提示”)
.否则
.如果 (编辑框1.内容＝ “”)
      信息框 (“请输入完整内容！”, 0, “提示”)
.否则
      .如果 (编辑框2.内容＝ “”)
         信息框 (“请输入完整内容！”, 0, “提示”)
      .否则
         .如果 (信息框 (“将会在软件运行目录下生成一个导出图片.jpg 的文件，如果存在会直接覆盖，确认继续吗？？”, 4, “询问”) ＝ #是钮)
            写到文件 (取运行目录 () ＋ “\” ＋ “导出图片.jpg”, 快照 (图片框1.取窗口句柄 (), , ))
            信息框 (“创建完毕，已放至程序运行目录下”, 0, “提示”)
         .否则
            返回 ()
         .如果结束
      .如果结束
.如果结束
.如果结束

乖乖仔 · 发表于 2012-4-14 19:01:36

汗。。发个易文件源码来。。好看点

悲衰的事实 · 发表于 2012-4-15 12:44:13

乖乖仔发表于 2012-4-14 19:01
汗。。发个易文件源码来。。好看点

百度.zip (17.57 KB, 下载次数: 10)

ㄣ负二代 · 发表于 2012-4-29 09:55:10

这个我也不知道。。。。。。。。

yzq993883 · 发表于 2013-3-11 23:42:47

if text1.text="" and text2.text="" then
msgbox "请输入完整内容！"，0,"提示"
else
  if text1.text="" then
  msgbox "请输入完整内容！"，0,"提示"
  else
if text2.text="" then
msgbox "请输入完整内容！"，0,"提示"
else
   if msgbox("将会在软件运行目录下生成一个导出图片.jpg的文件，如果存在会直接覆盖，如果存在会直接覆盖，确认继续吗？？"，4，"询问"=yes) then
   Open App.path & "\导出图片.jpg" For Output As #1
   Line Input #1, C
   msgbox "创建完毕，已放至程序运行目录下”, 0, “提示”
   else
   end if
end if
  end if
end if

NeverLoveAgain · 发表于 2013-9-23 08:26:01

6楼正解。

简单的生活 · 发表于 2013-10-13 05:34:54

支持下不错啊

King°王 · 发表于 2013-10-20 01:23:07

6楼正解啊亲~

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

[已解决] 谁能帮我把这个易语言的代码翻译成VB的？