VB工程--百例74--窗体变色
来源:互联网 发布:如何提升淘宝星级 编辑:程序博客网 时间:2024/05/18 03:57
Option Explicit
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then '若单击鼠标右键
PopupMenu mnuformcolor '在窗体上创建弹出式菜单
End If
End Sub
Private Sub mnucolor_Click(index As Integer) '出错点错把mnucolor打成mnuformcolor 运行不了
Select Case index '以子菜单的索引作为变量
Case 0 '若索引为0
Me.BackColor = vbRed '窗体的背景色为红色
Case 1
Me.BackColor = vbGreen
Case 2
Me.BackColor = vbBlue
End Select
End Sub
- VB工程--百例74--窗体变色
- VB工程--百例92---拍照窗体
- VB工程--实例93--图形窗体
- VB工程---百例45--同心圆.
- VB工程--百例47--球体.
- VB工程---百例75--状态栏
- VB工程--百例76--工具栏
- VB工程7---百例1 改编
- VB工程9--百例3--改编
- VB工程10---百例12--密码校验
- VB工程11---百例13--求和
- VB工程12--百例16--比较大小
- VB工程15---百例28---图像缩放
- VB工程17--百例25--古诗测试
- VB工程18--百例34--喷泉
- VB工程19--百例37--交通红绿灯
- VB工程20---百例43----群星闪烁
- VB工程--百例43--图形绘制
- ADO.NET
- 【背包模板】
- Ubuntu Linux JDK 安装
- android 开发指南
- 什么是Android?
- VB工程--百例74--窗体变色
- Greedy——HDOJ 1051
- 排序算法之归并排序
- 除数为2的N次方取模可以用与运算替代,效率更高
- Zen 初始化主题的安装 基础篇
- 《银行的秘密》读书札记(一)
- 启明星辰2011校园招聘(二) c++部分笔试题
- Unity3D视频资源
- linux下c++多线程下统计程序运行时间(非常注意)