VBNET常用技巧代码Word格式文档下载.docx
- 文档编号:20425849
- 上传时间:2023-01-22
- 格式:DOCX
- 页数:18
- 大小:23.89KB
VBNET常用技巧代码Word格式文档下载.docx
《VBNET常用技巧代码Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VBNET常用技巧代码Word格式文档下载.docx(18页珍藏版)》请在冰豆网上搜索。
广州"
哈尔滨"
长春"
沈阳"
西安"
兰州"
银川"
太原"
}
Dimno()AsString={"
010"
021"
022"
020"
0451"
0431"
024"
029"
0931"
0951"
0351"
Dimi%=0
While(i<
UBound(no)AndStrComp(no(i),TextBox7.Text)<
>
0)
i=i+1
EndWhile
IfStrComp(no(i),TextBox7.Text)=0Then
Label5.Text="
对应城市为:
"
&
city(i)
Else
没有所对应城市"
4.随机数生成、在原基础扩增数组、逐行扩增文本显示
Int(Rnd()*80)+20、ReDimPreservescore(n+1)、mystr=mystr+String(i)&
Chr(13)&
Chr(10)
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
Dimn%,score!
(),i%,sum!
DimmystrAsString="
n=Val(TextBox8.Text)
ReDimscore(n-1)
Fori=0Ton-1
score(i)=Int(Rnd()*80)+20
sum=sum+score(i)
Next
ReDimPreservescore(n+1)
score(n)=sum/n'
score(n)平均数计算,score(n+1)计算超过平均数的个数
Ifscore(i)>
score(n)Then
score(n+1)=score(n+1)+1
mystr=mystr+Str(score(i))&
TextBox9.Text=mystr
TextBox10.Text=score(n)
TextBox11.Text=score(n+1)
5.骗过文本框TextChanged事件
Dima#
a=Val(TextBox1.Text)
TextBox1.Text="
TextBox1.Text=a
6.LinkLabel单击后文字切换
定义全局变量、Not
DimjudgeAsBoolean
PrivateSubLinkLabel1_LinkClicked(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.LinkLabelLinkClickedEventArgs)HandlesLinkLabel1.LinkClicked
judge=Notjudge
Ifjudge=FalseThen
LinkLabel1.Text="
温度/℃"
温度/℉"
7.限制文本框数字输入
KeyPress事件、CType(转换类型)、InStr(字符查找)、TextBox1.SelectionStart=0(光标在起始位置)
PrivateSubT11_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)HandlesT11.KeyPress,T12.KeyPress,T13.KeyPress
Dimbool0AsBoolean,bool1AsBoolean,bool2AsBoolean,bool3AsBoolean
'
对输入的小数点进行判断
IfInStr(CType(sender,TextBox).Text,"
."
)>
0Then
bool0=True'
如果已经输入了一个小数点,则第二个小数点不能再输入
ElseIfCType(sender,TextBox).TextLike"
*e"
=TrueOrCType(sender,TextBox).TextLike"
*e*"
=TrueThen
IfCType(sender,TextBox).SelectionStart>
=InStr(CType(sender,TextBox).Text,"
e"
)Then
如果没有输入小数点,当出现如“1e”字符时,则光标从“e”往后不能输入小数点;
如果出现如“1e32”,则“e”后面的不能输入小数点
ElseIfMid(CType(sender,TextBox).Text,1,1)="
-"
Then
IfCType(sender,TextBox).SelectionStart=0Then
如果有负号,则负号前不能输入小数点
bool0=False
对输入e进行判断
bool1=True'
如果已经输入一个e,则第二个e不能再输入
ElseIfCType(sender,TextBox).Text="
如果文本框为空值,则不能以e打头
OrCType(sender,TextBox).Text="
-."
如果文本框第一个字符为小数点、负号、“-.”,则不能紧接着输入e
*"
IfCType(sender,TextBox).SelectionStart<
Len(CType(sender,TextBox).Text)Then
如果文本框已经有字符,则只有当光标在字符串最右侧时可以输入e
bool1=False
对负号输入判断
IfCType(sender,TextBox).Text="
bool2=True'
如果文本框为空值,则可以输入负号
IfCType(sender,TextBox).SelectionStart=InStr(CType(sender,TextBox).Text,"
如果文本框当前字符如“1e”,紧接着可以输入负号
ElseIfCType(sender,TextBox).SelectionStart=0AndMid(CType(sender,TextBox).Text,1,1)<
"
如果文本框当前字符如“1e”,光标在起始位置并且第一个字符不是负号时,可以在起始位置输入负号
*e#*"
如果文本框当前字符如“1e3”,则当光标移到e后面才能输入负号
如果文本框当前字符如“1e3”,光标在起始位置并且第一个字符不是负号时,可以在起始位置输入负号
ElseIfMid(CType(sender,TextBox).Text,1,1)<
如果文本框当前第一个字符不是负号,则当光标移动到起始位置时可以输入负号
bool2=False
对已经输入内容的部分再次输入数字进行判断
IfCType(sender,TextBox).SelectionStart=0OrCType(sender,TextBox).SelectionStart=InStr(2,CType(sender,TextBox).Text,"
)-1Then
bool3=True'
两种情况,一种是负号在前面部分,则负号前不能输入数字;
另一种是负号在e后面,负号前不能输入数字
bool3=False
KeyPress事件的核心部分,对文本框仅限制输入数字、小数点、负号、退格键、e,并通过以上的判断来具体体现限制字符输入
IfChar.IsDigit(e.KeyChar)Ore.KeyChar="
Ore.KeyChar=Chr(8)Ore.KeyChar="
Ife.KeyChar="
Andbool0Then
e.Handled=True
ElseIfe.KeyChar="
Andbool1Then
ElseIfChar.IsDigit(e.KeyChar)Andbool3Then
e.Handled=False
Andbool2Then
8.小数位处理
Format()、递归调用
该函数为格式化数字显示格式函数。
示例中浮点数显示最多占9个字符,如-0.000001,
科学计数显示最多占12个字符,如-1.0000e+004。
如需修改格式显示,只需修改如
“10000”、“0.0001”、“"
0.000000"
”等标识符,注意SelectCase的个数。
Functionformatdigit$(ByVala#)
Dimb$="
n%
Ifa>
=10000Then
Forn=1To999
IfInt(a/10^n+0.1)>
0AndInt(a/10^n+0.1)<
10Then'
加0.1是为了消除浮点运算误差
ExitFor
b=Format(a/(10^n),"
0.0000"
)&
e+"
Format(n,"
000"
)'
10000以上以科学计数显示,并保留四位小数
ElseIfa>
=0.0001Anda<
10000Then
SelectCasea
CaseIs<
10
b=Format(a,"
)
100
0.00000"
1000
10000
0.000"
随着数字位数的变化,保留小数也相应变化
EndSelect
0Anda<
0.0001Then
IfInt(a*10^n+0.1)>
0AndInt(a*10^n+0.1)<
10Then
b=Format(a*10^n,"
e-"
小于0.0001时以科学计数显示,并保留四位小数
ElseIfa=0Then
当数字为零时显示
ElseIfa<
b="
formatdigit(-a)'
递归调用,求小于零的情况
formatdigit=b
EndFunction
9.对限制字符输入的文本框使用快捷键
e.Control、e.KeyCode
PrivateSubTextBox1_KeyDown(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyEventArgs)HandlesTextBox1.KeyDown,TextBox2.KeyDown,TextBox3.KeyDown
Ife.ControlAnde.KeyCode=Keys.AThen
CType(sender,TextBox).SelectAll()
Ife.ControlAnde.KeyCode=Keys.CThen
CType(sender,TextBox).Copy()
Ife.ControlAnde.KeyCode=Keys.VThen
CType(sender,TextBox).Paste()
Ife.ControlAnde.KeyCode=Keys.XThen
CType(sender,TextBox).Cut()
10.批量为某一容器中的全部文本框赋值
Control、TypeOf
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimcAsControl
ForEachcInTabControl1.TabPages(0).Controls'
这里以TabControl1中的第一个页面为容器
IfTypeOfcIsTextBoxThen
c.Text="
其实这样操作效率不高
Fori=1To3
ForEachc1InMe.Controls
ForEachc2InMe.Controls
IfTypeOfc1IsTextBoxThen
IfTypeOfc2IsTextBoxThen
Ifc1.Name="
T1"
iThen
Ifc2.Name="
T2"
c1.Text=i
c2.Text=Val(c1.Text)*(i+1)
11.复制光标所在文本框并着色显示
Clipboard.SetText()、GotFocus事件
DimTAsNewTextBox
IfT.Text<
Clipboard.SetText(T.Text,TextDataFormat.Text)
ForEachcInMe.Controls
Ifc.Name=T.NameThen
c.BackColor=T.BackColor
ExitSub
对单击鼠标后光标所在的文本框复制内容
PrivateSubT11_GotFocus(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesT11.GotFocus,T12.GotFocus,T13.GotFocus,T21.GotFocus,T22.GotFocus,T23.GotFocus
T.Text=CType(sender,TextBox).Text
T.Name=CType(sender,TextBox).Name
T.BackColor=Color.DeepPink
c.BackColor=Color.Empty'
让文本框背景色恢复到原来
对单击鼠标光标所在的文本框又进行了文字编辑的文本框内容复制
PrivateSubT11_TextChanged(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesT11.TextChanged,T12.TextChanged,T13.TextChanged,T21.TextChanged,T22.TextChanged,T23.TextChanged
Ifc.FocusedThen
T.Text=c.Text
EndSub
12.DataGridView控件显示标题行号
DataGridView,RowPostPaint事件
PrivateSubDataGridView1_RowPostPaint(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.DataGridViewRowPostPaintEventArgs)HandlesDataGridView1.RowPostPaint
通过RowPostPaint事件画行号
DimrectAsNewRectangle(e.RowBounds.Left,e.RowBounds.Top,_
DataGridView1.RowHeadersWidth-3,e.RowBounds.Height)
定义一个矩形,矩形边界贴左和上,矩形的宽度为行标题的高度减去一个数值(这里是)
TextRenderer.DrawText(e.Graphics,(e.RowIndex+1).ToStrin
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBNET 常用 技巧 代码
![提示](https://static.bdocx.com/images/bang_tan.gif)