參考:網(wǎng)頁鏈接
成都創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供敘永網(wǎng)站建設(shè)、敘永做網(wǎng)站、敘永網(wǎng)站設(shè)計、敘永網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、敘永企業(yè)網(wǎng)站模板建站服務(wù),十年敘永做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
或者變相實現(xiàn)
Private?Sub?RichTextBox1_DblClick()
Dim?n?As?Long,?s?As?String,?t?As?String,?tt?As?String
n?=?RichTextBox1.SelStart
t?=?RichTextBox1.Text
If?n??1?Then
If?Len(t)?=?3?Then
tt?=?Mid(t,?n?-?1,?1)??Mid(t,?n,?1)??Mid(t,?n?+?1,?1)
Else
tt?=?Mid(t,?n?-?1,?1)??Mid(t,?n,?1)
End?If
Else
If?Len(t)?=?2?Then
tt?=?Left(t,?2)
End?If
End?If
If?InStr(tt,?"百度")??0?Then
MsgBox?tt?'打開鏈接
End?If
End?Sub
目測應(yīng)該是系統(tǒng)的問題,我用win7系統(tǒng)都無法讀取運行VS2008 的VB.NET ,換成XP系統(tǒng)后就沒一點問題了。
你這個要求實在是不對路子。是思路不對。
應(yīng)該是將窗體一和窗體二中的控件分別用一個panel裝起來,設(shè)為隱含狀態(tài)。都放在主窗體的panel1中。
點擊 窗體一時,第一個panel的Visible=True,第二個panel的Visible=False
點擊 窗體二時,第一個panel的Visible=False,第二個panel的Visible=True
就達到你要的效果了。
窗體不能裝來裝去的。
再有一個方法就是創(chuàng)建自定義控件。那個說起來太麻煩,看看書吧。
點擊菜單:項目=》添加引用 彈出窗口后選擇“COM”項,然后找到你要加載的控件。
記得先調(diào)用CMD使用 regsvr32 注冊你準備加載的控件哈。