Visual Basic 2008 Express的界面(DIALOG)增加Ruby编制乐趣。

第一次上传我的插件, 请多多指教!:-#
这是关于利用Visual Basic 2008 Express 的界面(DIALOG FORM) 来处理数据输入 RUBY SCRIPT 里头.
谢谢! OscarVB.zip (33.51 KB, 下载次数: 13)

2009-10-27 22:22 上传

点击文件名下载附件

最新版（27 Oct 09）

本贴附件下载

OscarVB.zip

33.51 KB , 吧币: 200 , 请登陆后再进行下载！

立即下载

gracias por compartir algo

2# elcorto

???:-?

这有什么作用吗？之前没接触过

楼主能给点介绍吗？是您原创的吗？

创意不错的说！不过有一个问题没有解决：
弹出的界面只是调用vb做的界面，并不是su的子窗口。如果能做到类似WebDIALOG就很好了！

6# powermedia

请问su的子窗口有什么不同和好处?
我不太了解WebDIALOG, 也不会用, 所以我才另外开发 VBNET 界面.
请你介绍WebDIALOG的好处!

谢谢!

5# 影月和风
基本上, 以下是 RUBY 的写法:-

1. def test
   
2. input = UI.inputbox ["Ruby says"], ["Hello! VB!"], "Make Friend with VB"
   
3. OscarVB.dialog(File.join(File.dirname(__FILE__),"HelloVB.exe"))
   
4. OscarVB.execute_script("HelloVB.exe","Label2_text","Ruby says : " + input[0])
   
5. OscarVB.execute_script("HelloVB.exe","TextBox1_text","Hello! RB!")
   
6. end

复制代码

我们用 OscarVB.execute_script(vb_dialog,vb_script,vb_parameter)
vb_dialog -- type string, vb.net form.
vb_script -- type string, vb.net Sub or Function which you defined and want to call.
vb_parameter -- type string, the parameter of the above Sub or Function.
来执行 VB.NET 的 SUB() 或 FUNCTION().

1. OscarVB.execute_script("HelloVB.exe","Label2_text","Ruby says : " + input[0])
   
2. OscarVB.execute_script("HelloVB.exe","TextBox1_text","Hello! RB!")
   

复制代码

用 OscarVB.dialog(vb_exe)
vb_exe -- type string, the vb.net form and its' path.
来呼叫 VB.NET 的 DIALOG FORM.

1. OscarVB.dialog(File.join(File.dirname(__FILE__),"HelloVB.exe"))
   

复制代码

最后要记得, 在 RUBY 写上 Sketchup::require 'OscarVB.rbs'

以下是 VB.NET 的写法 :-

RUBY 里边的 OscarVB.execute_script("HelloVB.exe","Label2_text","Ruby says : " + input[0])
执行 VB.NET 的 DIALOG FORM 叫 "HelloVB.exe", VB.NET 的 SUB 叫 "Label2_text" 及 输入 PARAMETER 写上 "Ruby says : " + input[0]

1.     Sub Label2_text(ByVal tx As String)
   
2.         Label2.Text = tx
   
3.     End Sub
   
4. 
   
5.     Sub TextBox1_text(ByVal tx As String)
   
6.         TextBox1.Text = tx
   
7.     End Sub

复制代码

我们用 rb.Open(ByVal vb_dialog As Form)
vb_dialog -- type form, it is the vb.net form.
来启动 RUBY 和 VB.NET 的衔接.

1. 
   
2.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
3.         rb.Open(Me)
   
4.     End Sub

复制代码

用 rb.execute_script(ByVal From_dialog As Form, ByVal To_rbscript As String, Optional ByVal To_rbparameter As String = "")
From_dialog -- type Form, it is the vb.net form.
To_rbscript -- type String, this is the ruby script name which you defined and want to call.
To_rbparameter -- type Optional, String, the parameter of the above def which is ruby script.
来执行 RUBY 的 DEF()

1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
2.         End
   
3.     End Sub
   
4.     Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
   
5.         rb.execute_script(Me, "draw_text", TextBox1.Text)
   
6.     End Sub
   

复制代码

Ver 27 Oct 09 是最新的版本， 在一楼找的到。
这可说是完整版。它是利用Visual Basic 2008 Express 的Dialog 来增加 Ruby 所缺乏的Dialog 界面。