VB文本框中 怎么改变字体大小

在VB上面加上combo 和 textbox(文本框)控件，并输入以下代码。
在Form_Load中加入字型大小数值于combo控件中。
Private Sub Form_Load()
Combo1AddItem "12"
Combo1AddItem "14"
Combo1AddItem "16"
End Sub
于文本框中输入任何字，之后点选Combo1数值时Text1文字大小将同时转变。
Private Sub Combo1_Click()
Text1FontSize = Combo1Text
End Sub

以word为例，具体 *** 作步骤如下：

1、首先，进入“开始”选项，单击“选择”，然后在下拉菜单中单击“选择对象”选项，如下图所示，然后进入下一步。

　    

2、其次，完成上述步骤后，拖动鼠标以选择所有文本框，如下图所示，然后进入下一步。  

　    

3、接着，单击“字号列表”，选择一个大小以统一所有文本框中的文本大小，如下图所示，然后进入下一步。  

　    

4、然后，完成上述步骤后，右键单击文本框的边缘，在菜单中单击“设置文本框格式”选项，如下图所示，然后进入下一步。  

　    

5、随后，在d出窗口中点击大小选项卡，设置文本框的高度和宽度，之后单击“确定”按钮，如下图所示，然后进入下一步。  

　    

6、最后，可以看到所有文本框和字体的大小就统一了，如下图所示。这样，问题就解决了。  

　    

　  

1，判断是大写还是小写 ，这通过字符的比较即可得
2，对字符的ascci码加或减（‘a’- ‘A’= 32）实现大小写转化
private void button1_Click(object sender, SystemEventArgs e)
{
string inputStr = textBox1Text;
char[] outputStr = new char[inputStrLength];
string s = stringEmpty;
for(int i = 0; i < textBox1TextLength; i ++)
{
if(inputStr[i] >= 'a' && inputStr[i] <= 'z')
outputStr[i] = (char)(inputStr[i]- ('a' - 'A'));
if(inputStr[i] >= 'A' && inputStr[i] <= 'Z')
outputStr[i] = (char)(inputStr[i] + ('a' - 'A'));
}
for(int i = 0; i < outputStrLength; i ++)
{
s = s + outputStr[i]ToString();
}
label1Text = s;

}
试试这个
textBox2Text = textBox1TextToUpper(); //转换为 大写

在文本框上加onchange方法 每次改变的时候调用下面的方法
function test(){
var a = "获取到文本框的值"；
a =areplace(/[^A-Za-z]+/,'');
a = atoUpperCase();
把a赋值给文本框
}

---