设置字体与颜色

设置字体

控件:FontDialog,label

注意:FontDialog1.showApply=true FontDialog1.showColor=true FontDialog1.showEffect=true

代码:

1. IfFontDialog1.ShowDialog=Windows.Forms.DialogResult.OKThen
2. Label1.Font=FontDialog1.Font
3. EndIf

设置颜色:

控件:ColorDialog1

1. IfColorDialog1.ShowDialog=Windows.Forms.DialogResult.OKThen
2. Label1.ForeColor=ColorDialog1.Color
3. EndIf

关于复选框

1. Dimitalicfont,regfontAsSystem.Drawing.Font
2. italicfont=NewSystem.Drawing.Font(Label4.Font,FontStyle.Italic)
3. regfont=NewSystem.Drawing.Font(Label4.Font,FontStyle.Regular)
4. IfCheckBox4.CheckState=CheckState.CheckedThen
5. Label4.Font=italicfont
6. Else
7. Label4.Font=regfont
8. EndIf

判断这个复选框被选中时,应该发生什么行为? 下面的仅为借鉴

1. PrivateSubopt486_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesopt486.CheckedChanged
2. Ifsender.checkedThen
3. strcomputer="486"
4. Calldisplaycaption()'调用某一个过程函数
5. EndIf
6. EndSub