#region
" 限制文字輸入"
private editingcontrol as datagridviewtextboxeditingcontrol
private
sub dgv1_editingcontrolshowing(byval sender as system.object, byval e as system.windows.forms.datagridvieweditingcontrolshowingeventargs) handles dgv1.editingcontrolshowing
editingcontrol = ctype(e.control, datagridviewtextboxeditingcontrol)
addhandler editingcontrol.keypress, addressof editingcontrol_keypress
endsub
private
sub editingcontrol_keypress(byval sender as system.object, byval e as keypresseventargs) '
寫上處理語句(限制字元錄入)
e.keychar = testtext(e.keychar, "0123456789", true)
endsub
#region
" 限制字元輸入(過程)"
'''
'''
限制字元在文字框中輸入的函式。
'''
'''
請使用e.keychar(在vb2005中)
'''
要限制的字串（可以輸入的字串）如"0123456789/-"
'''
是否可以使用backspace(退格鍵)，true為可以，flase為不可以。
'''
'''
function testtext(byval keyin as
string, byval liststring as
string, byval editbasp as
boolean) as
string
'textbox
限制字元輸入
dim testdatlist as
string
'定義限制字元表變數
dim keyout as
string
'返回值變數
if editbasp = true
then
'測試是否有效
testdatlist = ucase(liststring) & chr(8) '
得到含字元的大寫表(其中8為退格鍵)
else
testdatlist = ucase(liststring) '
得到無字元的大寫表
endifif instr(1, testdatlist, ucase(keyin), comparemethod.text) > 0 then
'鍵值是否在表中
keyout = keyin '
是則附鍵值
else
keyout = ""
'否則鍵值無效
beep() '
響聲警告
endiftesttext = keyout '
返回結果
endfunction''
方法：在需要限制輸入的控制項的keypress 加入以下**：
' e.keychar = testtext(e.keychar, "0123456789/-", true)''
這時textbox只接受字元："0123456789/-"
'第三個引數決定能(true)否(false)使用[backspace] 鍵。
#end
region
#end
region
datagridview 匯出Excel檔案
以datagridview 匯出excel檔案 public void exportexcel datagridview dgv microsoft.office.interop.excel.workbook workbook workbooks.add microsoft.office.inter...
DataGridView繫結資料來源後限制列顯示
winfrom的datagridview繫結資料來源後，缺省會顯示所有資料屬性的列。msdn中微軟告訴我們可以用datagridview物件的autogeneratecolumns來控制是否建立所有屬性列。如果將datagridview物件的autogeneratecolumns值設為false，則...
限制ip訪問 dtcms限制部分IP訪問文章
是否存在於ip列表 public bool getip string ipa 是否存在於ip列表 protected bool getip 1 新建頻道 控制面板 站點管理 頻道管理 新增 以kaohetongbao為例 2 頻道url配置 列表頁kaohetongbao all表示式 1 kaoh...