源**如下：
option explicit
'自定義文字框輸入控制項
'檢測使用者輸入是否為數值
private sub text1_change()
if isnumeric(text1.text) = false and trim(text1.text) <> "-" and trim(text1.text) <> "" then
msgbox "輸入中含有非法字元!", 16, ""
text1.setfocus
text1.selstart = 0
text1.sellength = len(text1.text)
end if
end sub
private sub text1_keypress(keyascii as integer)
dim str as string
str = trim(text1.text)
select case keyascii
case 8, 9, 13, &h30 to &h39
keyascii = keyascii
case 45 '負號[只充許字元的第乙個字元是負號]
if str = "" then
keyascii = keyascii
else
keyascii = 0
end if
case 46 '小數點處理[前面字元中沒有小數點則可以輸入]
if (isnumeric(str) = true and instr(1, str, ".") = 0) or str = "" then
keyascii = keyascii
else
keyascii = 0
end if
case else
keyascii = 0
end select
end sub
private sub text1_lostfocus()
if isnumeric(text1.text) = false and trim(text1.text) <> "" then
msgbox "輸入中含有非法字元!", 16, ""
text1.setfocus
text1.selstart = 0
text1.sellength = len(text1.text)
end if
end sub
'text屬性
public property get text() as string
text = text1.text
end property
public property let text(str1 as string)
text1.text = str1
propertychanged "text"
end property
'文字框高度
public property get txtheight() as integer
txtheight = text1.height
end property
public property let txtheight(iheight as integer)
text1.height = iheight
end property
'width
'文字框寬度
public property get txtwidth() as integer
txtwidth = text1.width
end property
public property let txtwidth(iwidth as integer)
text1.width = iwidth
end property
'字型
public property get fontsize() as integer
fontsize = text1.fontsize
end property
public property let fontsize(isize as integer)
text1.fontsize = isize
end property
p:怎樣寫自定義控制項的?~就是像你上面的原始碼~~怎樣轉成控制項的?~~請指教~~
-----------------------------------
是這樣的,新建乙個使用者控制項,[注意不是建乙個窗體,看好選項.]
然後在上面放乙個文字框.然後將我的**全面複製到**欄中就可以了.
然後在工具箱中就會出現這個自定義控制項了.
開發自定義控制項
學習自定義控制項的開發不僅可以使你開發出更靈活的系統更重要的是它可以使你加深對已有伺服器控制項的理解，得以更靈活的應用。先說一下伺服器控制項的概念吧 所謂伺服器控制項，就是在伺服器上執行，並可以對映到所有瀏覽器支援的標準 html 標記的控制項，在你的web窗體中，凡是包含 runat server...
iOS基礎開發 自定義控制項
自定義控制項,設定子控制項的尺寸和位置 當系統提供的控制項滿足不了我們的需求,我們可以自定義乙個控制項,繼承系統自帶的控制項,寫乙個屬於自己的控制項.自定義控制項的好處是可以把封裝控制項內部的細節,不容易被外界隨意修改.如果乙個view內部的子控制項比較多，一般會考慮自定義乙個view，把它內部子控...
IOS開發自定義CheckBox控制項
ios本身沒有系統的checkbox元件，但是實際開發中會經常用到，所以專門寫了乙個checkbox控制項，直接上 效果圖 uicheckboxbutton.h檔案如下 import import common.h inte ce uicheckboxbutton uicontrol uilabel...