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

第一次上傳我的插件, 請多多指教!:-#
這是關于利用Visual Basic 2008 Express 的界面(DIALOG FORM) 來處理數(shù)據(jù)輸入 RUBY SCRIPT 里頭.
謝謝! OscarVB.zip (33.51 KB, 下載次數(shù): 14)

2009-10-27 22:22 上傳

點擊文件名下載附件

最新版（27 Oct 09）

本貼附件下載

OscarVB.zip

33.51 KB , 吧幣: 200 , 請登陸后再進行下載！

立即下載

gracias por compartir algo

2# elcorto

???:-?

這有什么作用嗎？之前沒接觸過

樓主能給點介紹嗎？是您原創(chuàng)的嗎？

創(chuàng)意不錯的說！不過有一個問題沒有解決：
彈出的界面只是調(diào)用vb做的界面，并不是su的子窗口。如果能做到類似WebDIALOG就很好了！

6# powermedia

請問su的子窗口有什么不同和好處?
我不太了解WebDIALOG, 也不會用, 所以我才另外開發(fā) 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.
來執(zhí)行 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])
執(zhí)行 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.
來執(zhí)行 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 界面。