VB如何使标签或Text中的部分字改变颜色.

caption属性是窗体显示的内容 例：把label1中显示的内容赋值给var1变量：var1=label1.caption 想读取文本框的内容则是用text属性，把caption换成text即可。

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)form1.backcolor = vbRed endsubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)form1.backcolor = vbGreen end sub ...

你可以用Text1.Locked = True，这样Text1为只读，而且可以改变颜色 '点击Text1时焦点回到Text2 Private Sub Text1_Click()Text2.SetFocus End Sub '如果有多个Textbox控件，在每个Textbox的GotFocus事件写代码，以下是例子 Dim FCs As Integer Private Sub Text1_GotFocus()Select Case FCs 'FCs的...

vb的clipboard只复制内容，不复制格式，可以在复制时用变量记住其格式，粘贴时先粘贴内容，再从变量中读取其格式进行设置

Label控件是没有办法实现多种颜色的文字的，只能用RichTextBox来实现，而且你的自定义格式字符串也没有结尾的，这样很不好，至少也要<red>红色字</red><yellow>黄色字</yellow>，而且实现也很麻烦的，下面的代码我没有检测正确性，有错误的自己改一改吧 Dim colortag() as string dim colors() ...

然后拷贝以下代码到编码窗口。Private Sub cmdFont_Click ()CommonDialog1.CancelError = True On Error GoTo ErrHandler '设置 Flags 属性。CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects '显示“字体”对话框。CommonDialog1.ShowFont '根据用户的选择来设置 '文本属性。Text1.Font.Name = Common...

VBText控件中使字体加粗和倾斜的代码是：加粗 Label1.FontBold = True 斜体 Label1.FontItalic = true

1、打开VB软件，在窗体上面，添加两个文本框，如下图所示。2、单击文本框，在属性窗口分别设置文本框的属性，清空文本的内容，如下图所示。3、在窗体上面，添加一个命令按钮，如下图所示。4、单击命令按钮，在属性窗口中，设置命令按钮的属性，如下图所示。5、双击命令按钮，编写其代码，如下图所示。...