文本控件

[1]这几个都跟选区有关的，就是选中一串字符串，选中的会变蓝色
selstart就是选区的第一个字符
sellength就是选中的长度
seltext就是选中的字符了，就是这串字符串变蓝色。
比如：
文本框text1.text="1234567890"
现在选中"456"
就这样
text1.selstart=3
text1.selength=3
就行了
如果你想得到鼠标选中的字符串，那就这样str1=text1.seltext

 

[2]利用复选框改变文本的格式：

(1)If Check1.Value = 1 Then
Text1.FontName = "黑体"
Else
Text1.FontName = "宋体"
End If

 

(2)If Check2.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If

 

(3)Text1.FontSize = 24

 

(4)If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = Not (Text1.FontBold)

总结：

object.FontBold [= boolean]

object.FontItalic [= boolean]

object.FontStrikethru [= boolean]

object.FontUnderline [= boolean]
End If

 

[3]图片框和图像框

图片框是比其他控件更加高级的控件，它相当于一个小的窗体来使用，它可以在里面放其他的控件并且拖动的时候连同里面的控件一起拖动，而图像框是透明的，只是能加载图片而已

 

Picture1.Picture = LoadPicture   '清除图片框的内容。

 

[4]今天终于给我找到了这个很好用的语句了

Dim G = 61Print IIf(G >= 60, "合格", "不合格")