vb中如何使用combobox设计一个能够调节textbox内容字体颜色的东西...
发布网友
发布时间:2024-06-01 00:59
我来回答
共2个回答
热心网友
时间:2024-06-06 12:35
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "红色"
Text1.ForeColor = &HFF&
Case "绿色"
Text1.ForeColor = &HC000&
Case "黑色"
Text1.ForeColor = &H0&
Case "蓝色"
Text1.ForeColor = &HFF0000
Case "紫色"
Text1.ForeColor = &HFF00FF
Case Else
Exit Sub
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "红色"
Combo1.AddItem "绿色"
Combo1.AddItem "黑色"
Combo1.AddItem "蓝色"
Combo1.AddItem "紫色"
End Sub
热心网友
时间:2024-06-06 12:34
Private Sub Combo1_Click()
Text1.ForeColor = QBColor(Val(Combo1.Text))
End Sub
Private Sub Form_Load()
For i = 0 To 15
Combo1.AddItem i & " 号颜色"
Next
Combo1.Text = Combo1.List(0)
End Sub
vb中如何使用combobox设计一个能够调节textbox内容字体颜色的东西...
Combo1.AddItem "紫色"End Sub
VB中如何用combobox来更改label中文本的字体,代码是什么?
Private Sub Combo1_Click()Label1.Font.Name = Combo1.TextEnd SubPrivate Sub Form_Load()Dim i As IntegerFor i = 1 To Screen.FontCount - 1 Combo1.AddItem Screen.Fonts(i)NextEnd Sub
VB里关于Rich textbox控件的方法
要打印 RichTextBox 控件,可以使用 SelPrint 方法。该方法需要一个参数,即用来打印 RichTextBox 控件内容的 Printer 对象的 hDC 属性。如果用户选中了某些文本,则只打印选中的文本。如果没有选中任何文本,则打印该控件的所有内容。在控件中显示嵌入对象 在运行时,最终用户可拖动任何嵌入对象,并放入 ...
用VB编制一个设置文字字体的程序怎么设置?主要用到的工具箱里的哪些东西...
用VB编制一个设置文字字体的程序主要用到的工具箱里的OptionButton 控件对显示字体文本控件的Fnot属性进行设置。用ComboBox 控件或ListBox控件设置显示字体及它的尺寸。OptionButton 控件,OptionButton 控件显示一个可以打开或者关闭的选项。ComboBox 控件,组合框控件将文本框和列表框的功能结合在一起。有了这...
VB中如何对combobox的list各项分别设置不同字体?
楼主您好!可以用这种方法试试,代码如下:Option ExplicitPrivate Sub Combo1_Click() Me.Combo1.FontName = Me.Combo1.TextEnd SubPrivate Sub Form_Load() Me.Combo1.AddItem "宋体" Me.Combo1.AddItem "新宋体" Me.Combo1.AddItem "隶书" Me.Combo1.AddItem "幼圆"End Sub...
vb里的form一段文字怎么设置不同字体啊?
还有一种方法就是使用richtextbox,这个控件功能很多,甚至还能插入图片和flash,在一段文字中设置不同字体和颜色当然不在话下。添加方法:工程-->部件-->找到Microsoft Rich Textbox Control 6.0-->确定 然后在Form中添加一个RichTextbox控件,命名为RichTextBox1 代码部分:Private Sub Form_Load()R...
vb中在下拉组合框中改变richtextbox中选中的文字的字体和字号的代码怎...
我简单写一个,供你参考,字体的名字可以在控件的font属性里找到.Private Sub Form_Load()Combo1.AddItem "1"Combo1.AddItem "2"Combo1.AddItem "3"Combo1.AddItem "4"Combo1.ListIndex = 0 End Sub Private Sub Combo1_Click()If Combo1.Text = "1" Then RichTextBox1.SelFontName = "...
VB中combobox如何使用
combobox里面的list属性就是可以设置下拉里面的值,具体操作时,按ctrl+enter就可以输入下一行的值,而其text的值是设置显示的默认值
VB的中combobox和command两个控件使用方法
Private Sub Command1_Click()If Combo1.Text = "蔬菜" Then Label1.Caption = "萝卜,青菜,小白菜。。"Else Label1.Caption = "本子,笔,小刀。。"End If End Sub Private Sub Form_Load()Combo1.AddItem "蔬菜"Combo1.AddItem "文具"End Sub ...
vb 如何在msgbox中显示组合框和列表框里选定的内容?
在Visual Basic中,若需通过 MsgBox 显示组合框或列表框中选定的内容,可利用 Combobox 和 Listbox 的 text 属性实现。具体实现代码如下:MsgBox Combo1.text 或 MsgBox List1.text。为了确保 MsgBox 指令生效,需确保在 MsgBox 触发之前,组合框和列表框的内容已被选定。在设计代码时,应首先确保用户...