Public Class ControlValue
創(chuàng)新互聯(lián)公司主要從事網(wǎng)站設(shè)計、成都做網(wǎng)站、網(wǎng)頁設(shè)計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)前進,十多年網(wǎng)站建設(shè)經(jīng)驗,價格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):028-86922220
Inherits Control
''' summary
''' 獲取或設(shè)置控件的值。
''' /summary
System.ComponentModel.Browsable(True)
System.ComponentModel.Category("布局")
System.ComponentModel.Description("獲取或設(shè)置控件的值。")
Public Property Value As String
End Class
直接添加一個MID父窗體或在已有窗體的屬性中找到IsMDIContainer屬性,然后設(shè)置為True,然后創(chuàng)建第二個窗體 ,需要加載子窗體的時候:
Dim NewMDIChild As New Form2
NewMDIChild.MdiParent = Me
NewMDIChild.Show()
Public?Shared?Sub?CheckMDIChildForm(ByVal?MDIForm?As?Windows.Forms.Form,?ByVal?MDIChildForm?As?Windows.Forms.Form,?ByVal?MDIChildFormName?As?String)
If?MDIForm.MdiChildren.Length??1?Then
'如果沒有任何一個MDI子窗體,則創(chuàng)該MDI子窗體的窗體實例
Dim?MDIChildFrm?As?Windows.Forms.Form?=?MDIChildForm?'?定義MDI子窗體
MDIChildFrm.MdiParent?=?MDIForm?'指定父窗體
MDIChildFrm.Show()?'打開窗體
Exit?Sub
Else
Dim?x?As?Integer
Dim?frmyn?As?Boolean
For?x?=?0?To?(MDIForm.MdiChildren.Length)?-?1
Dim?tempChild?As?Windows.Forms.Form?=?CType(MDIForm.MdiChildren(x),?Windows.Forms.Form)
If?tempChild.Name?=?MDIChildFormName?Then
'檢測到有該MDI子窗體,設(shè)為激活?并退出循環(huán)
frmyn?=?True
tempChild.BringToFront()
Exit?For
Else
frmyn?=?False
End?If
Next
If?Not?frmyn?Then
'在打開的窗體中沒檢測到則新建
Dim?MDIChildFrm?As?Windows.Forms.Form?=?MDIChildForm?'?定義MDI子窗體
MDIChildFrm.MdiParent?=?MDIForm?'指定父窗體
MDIChildFrm.Show()?'打開窗體
End?If
End?If
End?Sub
Visual Basic .NET支持動態(tài)屬性,其動態(tài)屬性儲存在一個應(yīng)用程序配置文件中,該文件在應(yīng)用程序執(zhí)行時將會被讀到。使用動態(tài)屬性可以在不重新編譯應(yīng)用程序的情況下改變一些屬性值。你可以使用它們保存數(shù)據(jù)庫連接字符串、應(yīng)用程序日志信息或者服務(wù)器連接信息。
要看動態(tài)屬性的例子,首先在Visual Basic中創(chuàng)建一個Windows應(yīng)用程序。添加一個TextBox到默認窗體中;確認TextBox是被選中的,然后在屬性窗口中定位Dynamic屬性。
點擊Advanced標簽旁邊的省略號按鈕,打開一個對話框,該對話框中列出了TextBox所有的屬性,選擇Text屬性,鍵映射框?qū)患せ?。鍵映射決定了鍵儲存在配置文件中的值。點擊確定關(guān)閉對話框。
注意下你給ButtonTop的Image屬性賦值的地方,你的屬性SET里是針對【上】這個類的改變,你如果這樣寫是觸發(fā)不了屬性改變的:
ButtonTop.背景?=?Image.FromFile("C:/1.png")
正確的處理辦法應(yīng)該是new一個【上】類的對象,初始化時進行賦值就可以了
Me.ButtonTop?=?New?Class1()?With?{.背景?=?Image.FromFile("C:/1.png")}
如控件自身無法設(shè)置滾動條,那就在父容器控件中(如FORM)使用滾動條解決問題。另外,也可將日期控件放在彈出窗口中,
onselectedindexchanged是一個觸發(fā)事件,可以在此事件里面添加代碼,當然不能賦值了。你的意思應(yīng)該是更改radiobutton的selected狀態(tài)吧,你應(yīng)該給radiobuttonlist的屬性賦值,應(yīng)該是selectedindex之類的,而且也不應(yīng)該把字符串賦給它啊。canshuselect應(yīng)該寫成function,返回值為integer類型,返回selectedindex