2022-11-06 12:09来源：m.sf1369.com作者：宇宇
在VB中，控件的Stretch属性设置为（False ）时，图像框可自动改变大小以适应其中的图形。 图像框是一个简化的图形控件。在窗体设计时，用于显示保存的图片数据，其上是无法进行绘图的。图像控件的常用属性与其他控件类似。它的独立属性是Stretch属性和Picture属性。 其中Stretch属性决定控件能否将加载的图片缩放到控件本身的大小来显示。该属性的值是一个布尔型数据。
为True时，加载图形后，改变图形大小使之适应图像框的大小。为False 时，改变控件大小是之符合图形大小。
Private Sub Form_Load()；
Me.Picture = LoadPicture("E:\Users\xjn\Pictures\Lotus.jpg") '自己改图片路径；
Me.AutoRedraw = True；
End Sub；
Private Sub Form_Resize()；
Me.PaintPicture Me.Picture, 0, 0, Me.Width, Me.Height；
End Sub。
在VB6中可以通过设置对象的Font属性设置字体字号，ForeColor属性设置字体颜色。 例如，下面代码实现设置文本框中的字体为”隶书“字号28磅，字体颜色为红色 PrivateSubCommand1_Click() Text1.Font.Size=28 Text1.Font.Name="隶书" Text1.ForeColor=vbRed EndSub
VB的按钮的背景色修改步骤：
1）设置按钮的Style属性为VbButtonGraphical。
2）在按钮的BackColor属性中选择需要的背景色或在程序代码中设置。Private Sub Form_Load() Command1.BackColor = vbGreenEnd SubStyle属性，返回或设置一个值，该值用来指示控件的显示类型和行为。在运行时是只读的。BackColor属性，BackColor－返回或设置对象的背景颜色。效果：
在这两句
中间加入单元格格式设置代码。
用宏录制可以很快的获得你需要的代码。
设置字体可以参考
With Selection.Font
.Color = -16776961 '这里你可以按自己喜欢的颜色改，这个代码是红色
.TintAndShade = 0
End With
设置背景色可以参考
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535 '这里你可以按自己喜欢的颜色改，这个代码是黄色
.TintAndShade = 0
.PatternTintAndShade = 0
End With
VB的复选框按钮颜色是无法改变的，但是可以改变它的背景色，背景色修改步骤：
第一：设置按钮的Style属性为VbButtonGraphical。
第二：在按钮的BackColor属性中选择需要的背景色或在程序代码中设置。
先把command1属性窗口中的Style设为1，否则不能改变按钮颜色。 Command1.BackColor默认绿色 Option Explicit Dim cFT As Long Private Sub Command1_Click() If cFT = 0 Then Command1.BackColor = vbRed cFT = 1 ElseIf cFT = 1 Then Command1.BackColor = vbRed cFT = 2 ElseIf cFT = 2 Then Command1.BackColor = vbGreen cFT = 0 End If End Sub
让标签的背景颜色与窗口颜色相同，是透明看不到的， 让标签的可视等于假，效果一样 用PS做一个透明的字， 在软件上 其实有透明标签，你非要用其它 的，只能靠自己创造
Windows 窗体 RichTextBox 控件用于显示、输入和操作格式文本。RichTextBox 控件除了做 TextBox 控件所做的每件事外，还可以显示字体、颜色和链接，从文件加载文本和加载嵌入的图像，以及查找指定的字符。RichTextBox 控件通常用于提供类似字处理程序（如 Microsoft Word）的文本操作和显示功能。RichTextBox 控件可以显示滚动条，这一点与 TextBox 控件相同；但是与 TextBox 控件不同的是，RichTextBox 控件的默认设置是水平和垂直滚动条均根据需要显示，并且拥有更多的滚动条设置。
与 TextBox 控件一样，显示的文本由 Text 属性设置。RichTextBox 控件有许多格式文本属性。有关这些属性的详细信息，请参见为 Windows 窗体 RichTextBox 控件设置字体属性和在 Windows 窗体 RichTextBox 控件中设置缩进、悬挂缩进和带项目符号的段落。为操作文件，LoadFile 和 SaveFile 方法可以显示和编写包括纯文本、Unicode 纯文本和 RTF 格式在内的多种文件格式。可能的文件格式在 RichTextBoxStreamType 枚举中列出。可以使用 Find 方法查找文本字符串或特定字符。
也可以通过将 DetectUrls 属性设置为 true 并编写处理 LinkClicked 事件的代码，将 RichTextBox 控件用于 Web 样式的链接。有关更多信息，请参见使用 Windows 窗体 RichTextBox 控件显示 Web 样式的链接。将 SelectionProtected 属性设置为 true 可以防止用户操作控件中的部分或全部文本。
在 RichTextBox 控件中可以通过调用 Undo 和 Redo 方法撤消和重复大多数编辑操作。CanRedo 方法使您可以确定用户撤消的上一操作是否可以重新应用于控件。
例:
Private Sub Command1_Click()
With RichTextBox1
.SelStart = 0
.SelLength = 3
.SelColor = vbRed
.SelBold = True
End With
End Sub
Private Sub Command2_Click()
With RichTextBox1
.SelStart = 3
.SelLength = 3
.SelFontSize = 12
.SelItalic = True
End With
End Sub
Private Sub Form_Load()
RichTextBox1.Text = "123456"
End Sub
================================================================
With RichTextBox1
.SelStart = 0
.SelLength = 3 ’长度为3
.SelColor = vbRed ’颜色
.SelBold = True ’粗为真
End With
With RichTextBox1
.SelStart = 3
.SelLength = 3 ’长度3
.SelFontSize = 12 ’字大小：12号
.SelItalic = True
End With
==============================================================
With RichTextBox1
.SelStart = 0 ’从第0个字符开始选择(从0开始，然后1，2，……)
.SelLength = 3 ’一共选择3个字符
.SelColor = vbRed ’将选择了的字符的颜色设为红色
.SelBold = True ’将选择了的字符的粗体设为真
End With
==============================================================
Private Sub Form_Load()
RichTextBox1.Text = "中国人" & vbCrLf & "网络公司"
RichTextBox1.Font = "宋体"
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = 3
RichTextBox1.SelFontName = "宋体"
RichTextBox1.SelFontSize = 25
RichTextBox1.SelColor = vbBlue
RichTextBox1.SelStart = 5
RichTextBox1.SelLength = 4
RichTextBox1.SelFontName = "黑体"
RichTextBox1.SelFontSize = 18
RichTextBox1.SelColor = vbRed
RichTextBox1.SelLength = 0
End Sub
设置BackColor属性form1.BackColor = vbRedform1.BackColor = RGB(255,255,0)
