甜橘子，专注成都网站制作网站设计与营销型网站建设与优化
QQ :532337155
电话：028-86922220
combobox控件是由一个文本输入控件和一个下拉菜单组成的。用户可以从一个预先定义的列表里选择一个选项，同时也可以直接在文本框里面输入文本。
10余年的辽宁网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整辽宁建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联从事“辽宁网站设计”,“辽宁网站推广”以来，每个客户项目都认真落实执行。
vb6.0中combobox使用斜体字，在combobox属性面板定义Font属性即可。如下图：
文字编辑结束后，选择“移动”工具（工具箱第一个工具，快捷键V），然后按Ctrl+T快捷键进行“自由变换”，会在文字上出现控制框，把鼠标移到控制框外边指针就会变成旋转的样式，按住鼠标左键拖动就可以进行任意角度旋转了。
该参数枚举值，采用位运算，那么可以用Or把两者连接起来即可；
New Font(CurrentFont.FontFamily, CurrentFont.Size, FontStyle.Bold Or FontStyle.Italic)
Text1．FontItalic＝True
字体相关设置代码：
1．设置特定字体大小：
Text1．ps：双引号内的大小可以随意改变；Text1。字形大小＝text1。字形大小＋1
2．设置特定字体
Text1．ps：双引号中的字体可以改为其他内容
3．设置特定的颜色
Text1．前驱色＝vred：可以将后一种红色改为另一种颜色；或text1。ps：＝number是颜色代码，在预测色中
4．将字体设置为粗体
Text1．FontBold＝True
扩展资料：
一、字体放大示例：
Dima％
PrivateSubCommand1＿Click（）＇加大键
a＝a＋10
If a = 70 Then a = 70: Exit Sub '加大到70就停止
Label1．Font．Size＝a＇设定Label1的字体大小
EndSub
二、字体缩小的例子：
私人潜艇Command2＿Click（）的缩小
A等于A－10
如果a = 2，则a = 2: Exit Sub '缩小为2，然后停止
Label1．font。size＝a＇设置Label1的字体大小
终止子
VBText控件中使字体加粗和倾斜的代码是：
加粗 Label1.FontBold = True
斜体 Label1.FontItalic = true
拓展资料：
TextBox控件：
a. 控制Textbox输入格式，我想大多人都遇到这个问题，在TextBox作为输入接口时，有时我们希望用户只能输入数字、大写、字母等，一般的做法是对用户输入的字符这个检查。但是如果我们使用API，将很容易实现这些功能，比如：
1、只允许输入数字：
Const ES_NUMBER = H2000
Public Function NumbersOnly(tBox As TextBox)
Dim DefaultStyle As Long
DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
NumbersOnly = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_NUMBER)
End Function
2、只允许大写：
Public Function UpperCaseOnly(tBox As TextBox)
Dim DefaultStyle As Long
DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
UpperCaseOnly = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_UPPERCASE)
End Function
3、只允许小写：
Public Function LowerCaseOnly(tBox As TextBox)
Dim DefaultStyle As Long
DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
LowerCaseOnly = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_LOWERCASE)
End Function
当然上边三个函数可以合成一个函数，因为他们方法是一样的，只是风格参数不同而已。