vb 滚动条 hscorllbar 控制 textbox 的背景颜色和大小

原创 2007年10月11日 15:27:00

三、程序设计:

    1、创建如图一的程序界面。

    文本框的属性:
  Name:TxtContent  Text:None

    三个表示色彩的标签:

    红色标签,Name:LblRed  Caption:红色
  绿色标签,Name:LblGreen  Caption:绿色
  蓝色标签,Name:LblBlue  Caption:蓝色

    三个表示色彩的横向滚动条:
  Min:0  Max:255  SmallChange:1  LargeChange:5

    显示“大小”字样的标签:
  Name:LblSize  Caption:大小

    对文本框大小进行控制的竖向滚动条:
  Name:VsbSize  Min:0  Max:100  SmallChange:1  LargeChange:5

    用于显示大小变化尺寸的标签:
  Name:LblShow  Caption:None

    2、双击红色滚动条,在弹出的程序代码窗口中输入:

    Private Sub HsbRed_Change()
  TxtContent.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)
  End Sub

    另外,就 HsbRed 的 Scroll 事件也输入上面的代码:

    Private Sub HsbRed_Scroll()
  TxtContent.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)
  End Sub

    3、同理所得,在绿色与蓝色滚动条中输入相应代码。这样,通过滚动条控制文本框背景色的目的达到了。

    4、在“通用”选项中定义全局全量,用来储存文本框的原始尺寸:

    Dim Iwidth As Integer
  Dim Iheight As Integer

    5、用来改变文本框尺寸的竖向滚动条:

    Change 事件:
  Private Sub VsbSize_Change()
  TxtContent.Width = Iwidth * (VsbSize.Value / 100)
  TxtContent.Height = Iheight * (VsbSize.Value / 100)
  LblShow.Caption = VsbSize.Value & "%"
  End Sub

    Scroll 事件:
  Private Sub VsbSize_Scroll()
  TxtContent.Width = Iwidth * (VsbSize.Value / 100)
  TxtContent.Height = Iheight * (VsbSize.Value / 100)
  LblShow.Caption = VsbSize.Value & "%"
  End Sub

    6、调试:

    按 F5 键进行调试,发现文本框的尺寸无法调整。这是因为,没有在初始状态下将原文本框的宽度、高度赋值给变量。

    在 Form 的 Load 事件中输入以下代码:

    Private Sub Form_Load()
  Iwidth = TxtContent.Width
  Iheight = TxtContent.Height
  LblShow.Caption = "100%"
  End Sub

详细代码如下:

Dim Iwidth As Integer
Dim Iheight As Integer

Private Sub Form_Load()
    Iwidth = TxtContent.Width
    Iheight = TxtContent.Height
    LblShow.Caption = "100%"

End Sub

Private Sub hsbblue_Change()
TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
End Sub

Private Sub hsbblue_Scroll()
TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
End Sub

Private Sub hsbgreen_Change()
TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
End Sub

Private Sub hsbgreen_Scroll()
TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
End Sub

Private Sub hsbred_Change()
TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
End Sub

Private Sub hsbred_Scroll()
TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
End Sub

Private Sub VsbSize_Change()
TxtContent.Width = Iwidth * (VsbSize.Value / 100)
TxtContent.Height = Iheight * (VsbSize.Value / 100)
LblShow.Caption = VsbSize & "%"
End Sub

Private Sub VsbSize_Scroll()
TxtContent.Width = Iwidth * (VsbSize.Value / 100)
TxtContent.Height = Iheight * (VsbSize.Value / 100)
LblShow.Caption = VsbSize & "%"
End Sub
 

版权声明:本文为博主原创文章,未经博主允许不得转载。

vb.net 修改滚动条的背景色

  • 2013年12月11日 01:28
  • 37KB
  • 下载

【Qt开发】QTextEdit 外观属性设置

一、给QTextEdit添加背景图片,有下面两种方法:   QTextEdit* iEdit  = new QTextEdit(); 1:使用样式表:      iEdit->...
  • LG1259156776
  • LG1259156776
  • 2016年09月17日 23:10
  • 1679

C# WinForm 滚动条换肤

滚动条换肤是C#WinForm中的难点,因为很多控件的滚动条是由系统来进行绘制的,所以滚动条的绘制就不得不使用大量的API函数来进行绘制。如果对API函数不熟悉的话,就很难达到自己想要的效果,而这部分...
  • fhzh520
  • fhzh520
  • 2014年01月17日 15:22
  • 9534

Android 调整控件位置和大小(以textView为例,并设置字体与背景颜色)

1:控件调整位置 代码实现:以textview为例 TextView mTextView = new TextView(context); mTextView.setPadding(left, top...
  • ws1836300
  • ws1836300
  • 2016年06月24日 11:35
  • 6373

用range实现滚动条改变背景颜色

实现如下图的效果 range实例 #frmTmp { height: 300px; width: 350px; float: none; } #spnColor {...
  • HowCanYouDoIt
  • HowCanYouDoIt
  • 2017年01月09日 11:49
  • 1082

PagerSlidingTabStrip的字体颜色大小,滚动条长度功能添加

  • 2016年04月28日 18:35
  • 18KB
  • 下载

mfc 中列表控件头的设置(背景颜色,字体大小等)

  • 2014年12月01日 19:01
  • 28.8MB
  • 下载

给VB的ListBox滚动条皮肤添加图片背景和渐变色

  • 2013年07月07日 12:11
  • 15KB
  • 下载

定时改变背景颜色及无缝滚动

  • 2017年04月20日 15:22
  • 29KB
  • 下载

另类思路解决textbox不支持(半)透明背景颜色的问题

由于net平台的普及问题  为了尽可能的增加用户使用量  很多应用基于2.0写的 所以不考虑wpf 众所周知 winform 的textbox的颜色不能使用 带有 Alpha 属性的颜色 即半透...
  • rayyu1989
  • rayyu1989
  • 2012年07月25日 11:42
  • 1060
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb 滚动条 hscorllbar 控制 textbox 的背景颜色和大小
举报原因:
原因补充:

(最多只允许输入30个字)