十年網(wǎng)站開發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營(yíng)維護(hù)+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
參考:網(wǎng)頁(yè)鏈接
成都創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供敘永網(wǎng)站建設(shè)、敘永做網(wǎng)站、敘永網(wǎng)站設(shè)計(jì)、敘永網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、敘永企業(yè)網(wǎng)站模板建站服務(wù),十年敘永做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
或者變相實(shí)現(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
目測(cè)應(yīng)該是系統(tǒng)的問題,我用win7系統(tǒng)都無法讀取運(yùn)行VS2008 的VB.NET ,換成XP系統(tǒng)后就沒一點(diǎn)問題了。
你這個(gè)要求實(shí)在是不對(duì)路子。是思路不對(duì)。
應(yīng)該是將窗體一和窗體二中的控件分別用一個(gè)panel裝起來,設(shè)為隱含狀態(tài)。都放在主窗體的panel1中。
點(diǎn)擊 窗體一時(shí),第一個(gè)panel的Visible=True,第二個(gè)panel的Visible=False
點(diǎn)擊 窗體二時(shí),第一個(gè)panel的Visible=False,第二個(gè)panel的Visible=True
就達(dá)到你要的效果了。
窗體不能裝來裝去的。
再有一個(gè)方法就是創(chuàng)建自定義控件。那個(gè)說起來太麻煩,看看書吧。
點(diǎn)擊菜單:項(xiàng)目=》添加引用 彈出窗口后選擇“COM”項(xiàng),然后找到你要加載的控件。
記得先調(diào)用CMD使用 regsvr32 注冊(cè)你準(zhǔn)備加載的控件哈。