Private Sub Combo1_Click()
在万安等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都做网站、成都网站制作 网站设计制作按需开发网站,公司网站建设,企业网站建设,品牌网站制作,全网营销推广,成都外贸网站建设,万安网站建设费用合理。
If Combo1.Text = "红" Then
Label1.ForeColor = RGB(255, 0, 0) '无论哪种色彩都是可以根据这三个数值调的
ElseIf Combo1.Text = "黄" Then
Label1.ForeColor = RGB(0, 255, 0)
ElseIf Combo1.Text = "黑" Then
Label1.ForeColor = RGB(0, 0, 0)
End If
End Sub
Private Sub Form_Load()
Label1 = "写入你想改变颜色的字体"
Combo1.AddItem "红"
Combo1.AddItem "黄"
Combo1.AddItem "黑"
End Sub
'上面的代的是VB6的
不知道你是想实现多少功能
读取文件内容的处理你自己做了么？
实现方法是在代码中判断，如果是1那么读D盘1的文本数据就行
您好，这种方法可以通过按钮的MouseDown和MouseUp事件来实现，比如说，当单击按钮RedColor（RedColor为这个按钮的Name属性的属性值）的时候，要使按钮的颜色变成红色，这可以在代码视图中的控件选择下拉列表中选择RedColor这个控件，然后在右边的事件下拉列表中选择MouseDown事件（当按下鼠标时发生），这时，Visual Studio会自动生成如下代码：
Private Sub RedColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseDown
End Sub
接下来就在当前生成的代码中写入如下代码：
RedColor.BackColor = Color.FromArgb(255, 0, 0)
这句代码的作用是利用Color下的FromArgb方法来设置RGB颜色参数，在RGB颜色系统中，R代表红色，G代表绿色，B代表蓝色，根据这三种颜色的不同程度的调和，就会得到不同的颜色，如果您要得到深色的天蓝色，则可以设置FromArgb(0, 191, 255)，这个颜色转换为HTML中的RGB颜色就是#00BFFF。
当然颜色还原最好是写在MouseUp事件里面，这样就不必在单击其他按钮时来还原上一次按下的按钮的颜色，在这里，为了方便描述，我们假设按钮的默认颜色为白色，也就是FromArgb方法设置为FromArgb(255, 255, 255)的时候，所标示的颜色就是白色
所以选择了RedColor按钮的MouseUp事件后，Visual Studio会自动生成下列代码：
Private Sub RedColor_MouseUp(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseUp
End Sub
MouseUp的含义是当鼠标弹起时发生，所以在这个事件就可以设置按钮颜色的还原，即添加下列代码来实现：
RedColor.BackColor = Color.FromArgb(255, 255, 255)
当然，这就编写好了一个按钮按下时变色，回弹时还原的功能，至于另外一个按钮的功能，这与这个按钮的功能一样，只是代码有一些细微的差别而已，假设这个按钮的Name属性的属性值为BlueColor，相应的代码对应如下：
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown
BlueColor.BackColor = Color.FromArgb(0, 0, 255) '蓝色的FromArgb
End Sub
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown
BlueColor.BackColor = Color.FromArgb(255, 255, 255)
End Sub
另外，为了避免代码的冗余，可以将RedColor和BlueColor的MouseUp事件进行合并，这合并后的代码如下：
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown, RedColor.MouseUp
BlueColor.BackColor = Color.FromArgb(255, 255, 255)
RedColor.BackColor = Color.FromArgb(255, 255, 255)
End Sub
当然，这个你只要分析了控件事件代码的基本结构，一切就一目了然了，控件事件代码的基本结构如下：
[作用域] Sub 事件名([参数列表]) Handles 控件事件1 [, 控件事件2, 控件事件3...]
[事件代码区域]
End Sub
如果此回答对您有帮助，别忘了采纳哦，如果没有解决您的问题，您可以在互联网上寻找更多关于此问题的解决方案，谢谢！
这就是普通的菜单，向上弹出，还是向下弹出，是操作系统自动判断的（根据可视的空间区域大小）打勾，很简单，只要将菜单的CheckOnClick设为True就可以了