表單名稱為字串，用字串show 出表單- 藍色小舖 BlueShop

台灣最具影響力的-資訊專家社群 - 讓您成為最有價值的IT專業人才

∣登入

∣回首頁∣

線上人數
2644

會員總數：219466
接案會員：6630
文章總數：2320
討論主題：166205

登入

購買VP

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

網站/多媒體

系統/應用軟體

數位新天地

生活綜合資訊

IT職涯/認證

小舖站務區

討論區列表 >> VB.NET >> 表單名稱為字串，用字串show 出表單

[變換順序]

[我要回覆]

表單名稱為字串，用字串show 出表單
價值 : 200 QP 點閱數:320 回應數:7

點圖分享到Plurk吧!

樓主

暗黑

50	28
1139	113

發送站內信

請教各位先進

我有一個表單叫 StartForm
一般呼叫 form 為
dim ShowForm as StartForm
ShowForm .show
就可以開啟 ShowForm 的表單

但因為表單的名稱關係
所取得的表單名稱皆為字串

我要如何將表單名稱叫 StartForm 的字串
用字串開啟 StartForm 的表單呢

ps 不能寫死的如

select case 字串
case "StartForm "
StartForm .show
end select

本篇文章發表於2012-02-04 23:41

網站想要搬家嗎？再送你好禮二選一

2010年藍色小舖認證專家風雲榜完全名單

1樓回應說好的QP呢	請參考如何用陣列字串的模式開啟表單本篇文章回覆於2012-02-05 00:05 --未登入的會員無法查看對方簽名檔--
2樓回應說好的QP呢	你呼叫的語法應該長這樣 ^^ Select Case 字串 Case "StartForm " ' StartForm.show() CType(Activator.CreateInstance(GetType(StartForm)), Form).Show() End Select 本篇文章回覆於2012-02-05 00:23 --未登入的會員無法查看對方簽名檔--
3樓回應香帥	幫您寫一個如下(專案下載http://ap.a168a.com/test/formname.zip) Public Class starform Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim abc As New starform Dim good As New starform Dim formname As String = TextBox1.Text abc.Name = "abc" abc.Text = "abc" good.Name = "good" good.Text = "good" Select Case formname Case "abc" abc.TextBox1.Text = "這form是abc" abc.Show() Case "good" good.TextBox1.Text = "這form是good" good.Show() Case Else MsgBox("找不到" & formname & "這個視窗") End Select End Sub End Class 本篇文章回覆於2012-02-05 00:30 --未登入的會員無法查看對方簽名檔--
4樓最有價值解答小琳	::: Dim str As String = "Form2" Dim objtype As Type = Type.GetType("WindowsApplication1." + str) Dim obj As Form = System.Activator.CreateInstance(objtype) obj.Show() WindowsApplication1是專案名稱!!! 本篇文章回覆於2012-02-05 07:29 --未登入的會員無法查看對方簽名檔--
5樓作者回應暗黑	謝謝各位先進的回覆，可是我的描述讓大家誤解了，小琳大大的格式才是我所需要的但是，我用小琳大大的方式，在重新開啟一個專案執行是ok的但在我的專案裡確是不行的 Dim FormName_Str = Me.DataGridView1.Item(0, DataGridView_RowIndex).Value Dim objtype As Type = Type.GetType("電子簽核平台." + FormName_Str) Dim obj As Form = System.Activator.CreateInstance(objtype) obj.Show() 在執行 objtype 後它還是 null ，我查 FormName_Str 裡是有我表單的名稱原已為是中文的關係，改成英文原是不行.... 請教我該如何解決呢本篇文章回覆於2012-02-05 12:40 --未登入的會員無法查看對方簽名檔--
6樓作者回應暗黑	找出來了，原來要用根目錄的名稱謝謝各位大大的指導本篇文章回覆於2012-02-05 13:14 --未登入的會員無法查看對方簽名檔--
7樓回應說好的QP呢	回樓主本人無意冒犯但你真的試過 #2 CType(Activator.CreateInstance(GetType(StartForm)), Form).Show() 這行確定沒辦法開啟表單嗎? 本篇文章回覆於2012-02-08 17:18 --未登入的會員無法查看對方簽名檔--

[變換順序]

回覆

如要回應,請先登入.

1樓回應說好的QP呢	請參考如何用陣列字串的模式開啟表單本篇文章回覆於2012-02-05 00:05 --未登入的會員無法查看對方簽名檔--
2樓回應說好的QP呢	你呼叫的語法應該長這樣 ^^ Select Case 字串 Case "StartForm " ' StartForm.show() CType(Activator.CreateInstance(GetType(StartForm)), Form).Show() End Select 本篇文章回覆於2012-02-05 00:23 --未登入的會員無法查看對方簽名檔--
3樓回應香帥	幫您寫一個如下(專案下載http://ap.a168a.com/test/formname.zip) Public Class starform Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim abc As New starform Dim good As New starform Dim formname As String = TextBox1.Text abc.Name = "abc" abc.Text = "abc" good.Name = "good" good.Text = "good" Select Case formname Case "abc" abc.TextBox1.Text = "這form是abc" abc.Show() Case "good" good.TextBox1.Text = "這form是good" good.Show() Case Else MsgBox("找不到" & formname & "這個視窗") End Select End Sub End Class 本篇文章回覆於2012-02-05 00:30 --未登入的會員無法查看對方簽名檔--
4樓最有價值解答小琳	::: Dim str As String = "Form2" Dim objtype As Type = Type.GetType("WindowsApplication1." + str) Dim obj As Form = System.Activator.CreateInstance(objtype) obj.Show() WindowsApplication1是專案名稱!!! 本篇文章回覆於2012-02-05 07:29 --未登入的會員無法查看對方簽名檔--
5樓作者回應暗黑	謝謝各位先進的回覆，可是我的描述讓大家誤解了，小琳大大的格式才是我所需要的但是，我用小琳大大的方式，在重新開啟一個專案執行是ok的但在我的專案裡確是不行的 Dim FormName_Str = Me.DataGridView1.Item(0, DataGridView_RowIndex).Value Dim objtype As Type = Type.GetType("電子簽核平台." + FormName_Str) Dim obj As Form = System.Activator.CreateInstance(objtype) obj.Show() 在執行 objtype 後它還是 null ，我查 FormName_Str 裡是有我表單的名稱原已為是中文的關係，改成英文原是不行.... 請教我該如何解決呢本篇文章回覆於2012-02-05 12:40 --未登入的會員無法查看對方簽名檔--
6樓作者回應暗黑	找出來了，原來要用根目錄的名稱謝謝各位大大的指導本篇文章回覆於2012-02-05 13:14 --未登入的會員無法查看對方簽名檔--
7樓回應說好的QP呢	回樓主本人無意冒犯但你真的試過 #2 CType(Activator.CreateInstance(GetType(StartForm)), Form).Show() 這行確定沒辦法開啟表單嗎? 本篇文章回覆於2012-02-08 17:18 --未登入的會員無法查看對方簽名檔--